Hey ich suche einen guten Laptop um CS2 zu zocken. Der Laptop muss nichts anderes können.

Die Grafikeinstellungen sind mir ziemlich egal solange keine fürs Gameplay relevanten Details verloren gehen. Die FPS sollten möglichst hoch gehen können. Wenn ich wieder mit CS anfange dann will ich das wieder auf kompetitivem Niveau machen und das Maximum rausholen (auch mit der Hardware).

Budget sollte also möglichst niedrig sein aber nicht auf Kosten von framerate, reaktionszeiten etc.

Hallo zusammen,

ich möchte in meinem Excel Sheet einrichten, dass wenn der Nutzer einen Wert in Zelle A2 eingibt, welcher keinem der Werte in Spalte V entspricht eine Fehlermeldung ausgegeben wird. Bisher habe ich den Code unten.

Sub Worksheet_Change(ByVal Target As Excel.Range)



If Target.Address = "$A$2" And Cells(2, 1).Value <> Range("V:V").Select Then
MsgBox "Sie haben gerade Zelle A2 verändert!"
End If
End Sub

Das Problem ist, dass mein Code durchläuft als würde es die zweite If-Bedingung (unten) nicht geben

And Cells(2, 1).Value <> Range("V:V").Select

Kann mir jemand helfen das Problem zu fixen / eine Alternative vorschlagen?

Hallo zusammen,

ich greife gerade im Rahmen eines Projekts per Datenüberprüfung auf eine Auswahl von 6000+ Zellen zu und möchte falls ein Teil, das nicht zu den 6000 gehört eine Fehlermeldung ausgeben. Nun habe ich die Problematik, dass die Zelle mit der Datenüberprüfung eine Eingabezelle sein wird, d. h. der Benutzer wird Werte aus anderen XML Dokumenten hereinkopieren. Dies Formatiert die Zelle aber Standardmäßig um und entfernt die eingerichtete Datenüberprüfung.

Gibt es hier eine einfache Lösung dies zu verhindern? Ich habe es auch schon mit Excel VBA versucht (s. Quelltext) aber hier konnte ich nur die Datenüberprüfung nachdem sie entfernt wurde wieder hinzufügen. Das Problem hierbei ist, dass dem User keine Fehlermeldung angezeigt wird nachdem er den Text in die Zelle kopiert hat.

Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$2" Then

With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning, Operator _
        :=xlBetween, Formula1:="='Zuord. Teil-Kart. Datenquelle '!$A$1:$A$6168"
        .IgnoreBlank = True
        .InCellDropdown = False
        .InputTitle = ""
        .ErrorTitle = "Teil nicht verfügbar"
        .InputMessage = ""
        .ErrorMessage = _
        "Teil nicht verfügbar, da:" & Chr(10) & "a) Teil existiert nicht" & Chr(10) & "b) Teil existiert, wird aber nicht in Kartonage verpackt --> Manuelle Frachtberechnung nötig" & Chr(10) & "c) Teil ist neu --> Rückmeldung an *** / ***"
        .ShowInput = True
        .ShowError = True
    End With
End If

Hallo zusammen,

ich suche eine Lösung um eine Schaltfläche mit folgender Funktion in meinen Code zu integrieren.

1. Klick auf schaltfläche --> Mache X
2. Klick auf Schaltfläche --> Mache Y

wie geht das am einfachsten?

_________________________________________________________

Anbei mein Code:

Sub NeuePosHinzu()

'

' NeuePosHinzu Makro

'

'1. Klick

   Range("A1:F4").Select

   Selection.Copy

   Range("B8").Select

   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

       :=False, Transpose:=False

' Soll beim 2. Klick auf den Button ausgelöst werden

   Range("A1:F4").Select

   Selection.Copy

   Range("B14").Select

   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

       :=False, Transpose:=False

' Soll beim 3. Klick auf den Button ausgelöst werden

   Range("A1:F4").Select

   Selection.Copy

   Range("B20").Select

   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

       :=False, Transpose:=False

   Range("A14:G17").Select

   Application.CutCopyMode = False

   Selection.Copy

   Range("A20:G23").Select

   Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

       SkipBlanks:=False, Transpose:=False

   Application.CutCopyMode = False

   Range("A20").Select

   ActiveCell.FormulaR1C1 = "Pos. 3"

'Soll beim 4. Klick auf den Button ausgelöst werden

   Range("A1:F4").Select

   Selection.Copy

   Range("B26").Select

   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

       :=False, Transpose:=False

   Range("A20:G23").Select

   Application.CutCopyMode = False

   Selection.Copy

   Range("A26:G29").Select

   Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

       SkipBlanks:=False, Transpose:=False

   Application.CutCopyMode = False

   Range("A26").Select

   ActiveCell.FormulaR1C1 = "Pos. 4"

   Range("I21").Select

End Sub

Hallo zusammen, ich suche gerade nach einer allgemeinen Formel zur Berechnung wie viele kleine Rechtecke der Seitenlängen c und d maximal in ein größeres Rechteck der Seitenlänge a und b passen.

Bedingung ist c<=d; c<=a; c<=b und d<=a; d<=b

Die Rechtecke dürfen dabei beliebig rotiert werden.

Ich möchte das Problem so allgemein wie möglich halten, da ich einige Probleme habe, welche nochmals auf diesem Problem aufbauen und da die Anzahl an kombinierbaren kleinen Rechtecken mind. 50 und die Anzahl an kombinierbaren großen Rechtecken mind. 20 beträgt.

Anbei eine Skizze zum Problem:

Wenn mir jemand Lösungsansätze hat, auf denen ich aufbauen kann würde das schon helfen, da ich gerade auf dem Schlauch stehe.

Hallo ich würde gerne mal anfangen bisschen zu mixen und in die Materie der DJs eintreten. Ich nutze Spotify, Sonos Boxen und einen Windows 10 PC. Ich habe im Internet gehört, dass djay pro Spotify unterstützung bietet und die Wlan Boxen von Sonos unterstützen (bestätigt sich in meinem Alltag) ebenfalls Spotify, deshalb sehe ich djay pro als gute Schnittstelle, jedoch stellt sich mir die frage ob ich meinen Mix auch live über die Boxen laufen lassen kann oder muss ich dies dann über Aux verbinden? Praktisch gesehen spielt die gemixte Musik dann ja über djay und nicht über Spotify und somit fehlt die Wlan Verbindung zu den Boxen oder liege ich da falsch?

Witz: Klop Klopf Wer ist da? [eine sehr lange Pause] Java.

Habt ihr noch weitere Informatiker Witze (am Besten welche die nur Leute vom Fach verstehen) und eine Erklärung dazu?

Hallo, ich habe eine Physik Aufgabe in der eine Kugel eine schiefe Ebene herunterrollt. Ich soll hierbei die Zeit berechnen welche diese Kugel benötigt. Mein Problem ist, dass ich nun nach umstellen der Formeln zwei verschiedene Geschwindigkeiten in meiner Gleichung habe (Bahngeschwindigkeit und die Geschwindigkeit der Kugel) kann man sagen dass diese gleich sind (bezweifel ich)? Oder kann mir jemand einen Denkanstoß geben, da ich mich schon Nahe am Ziel wähne, jedoch gerade auf der Leitung stehe. Gegeben ist die Länge der Strecke der schiefen Ebene und die Neigung.

Wenn er nach oben oder unten beschleunigt oder wenn er sich im freien Fall befindet (a=g) oder wenn er mit v=const. nach oben fährt? Ich meine, dass die Waage am meisten anzeigt wenn er nach oben beschleunigt. Begründung: 1. Im ruhenden Zustand: Fg=Fboden. 2. Beschleunigung nach oben: Fboden+Maufzug*a=Fgneu (Actio=Reactio) 3. v=const: Analog zu 2. aber a=0 da v=const. 4. Beschleunigung nach unten (wie groß a ist wird in der Aufgabe nicht definiert also a!=g um das zu vereinfachen): Fboden-Maufzug*a=Fgneu.

Hallo, ich habe soeben meine Sonos Play 5 in Betrieb genommen und versuche sie nun an meinen TV anzuschließen. Habe mir direkt ein Chinch auf Klinke Kabel mitliefern lassen, jedoch habe ich festgestellt, dass der Chinchanschluss ein Audio-in ist und dass dieser TV statdessen ein Optical Digital Audio Out Anschluss besitzt. Nun meine eigentliche Frage: Gibt es ein Kabel, das eben diesen Anschluss mit dem Aux Anschluss von dem Sonos verbindet. Bin ziemlich unbewandert auf dem Gebiet und möchte nicht nochmal das Falsche kaufen ^^

Liegt der starke Preisunterschied (teilweise das doppelte oder dreifache) nur an dem Namen? Könnten die anderen dann nicht auch mehr verlangen? Von den Materialien her sind die Produkte sich ja relativ ähnlich (Hermès Preise bei "normalen" Produkten streben ja schon fast in Richtung der Gucci Preise mit Krokoleder).

Hallo, habe mich in der letzten Zeit etwas mit (aus meiner Sicht) teureren Uhren befasst und wollte hier nochmal fragen ob jemand schon Erfahrungen mit der Tag Heuer Carrera bzw. mit Tag Heuer gemacht hat und ob es evtl. empfehlbare Alternativen (zwischen 1000 & 2000€) gibt. Wenn ich mir das gute Stück zulegen sollte möchte ich mir natürlich vorher ganz Sicher damit sein. Ich weiß für manche scheint der Preis absurd, aber manche Leidenschaften kann man halt nicht immer ganz rational für andere erklären, deshalb bitte keine Vorschläge à la Kauf dir doch ne Casio. Eine schweizer Automatikuhr, die eine Weile halten soll (am Besten fürs Leben) kostet halt.