AW: Schreibeweise eines Godes
31.07.2021 18:29:45
Thomas
Hallo onur, entschuldige diesen Formfehler Gode....
Also das man an solchen Codes nicht ändern soll mag ja plausibel sein. Hätte ich über dieses Thema nicht gegoogelt so wäre hier wohl nie eine Frage danach erschienen.
Wenn ich in Google das hier eingebe: "Excel VBA
Private Sub Worksheet_Change(ByVal Target As Excel.Range)"
Dann kommt folgendes Thema dazu, ich versuche diese Passage hier mal reinkopieren:
Beispiel
Im folgenden Codebeispiel wird die Farbe der geänderten Zellen in Blau geändert.
vb
kopieren
Private Sub Worksheet_Change(ByVal Target as Range)
Target.Font.ColorIndex = 5
End Sub
Im folgenden Codebeispiel wird überprüft, ob sich die geänderte Zelle in Spalte A befindet und ob der geänderte Wert der Zelle größer als 100 ist, wenn sich ein Zellwert ändert. Wenn der Wert größer als 100 ist, wird die benachbarte Zelle in Spalte B in die Farbe Rot geändert.
vb
kopieren
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
ThisRow = Target.Row
If Target.Value > 100 Then
Range("B" & ThisRow).Interior.ColorIndex = 3
Else
Range("B" & ThisRow).Interior.ColorIndex = xlColorIndexNone
End If
End If
End Sub
Im folgenden Codebeispiel werden die Werte im Bereich A1:A10 in Großbuchstaben festgelegt, wenn die Daten in die Zelle eingegeben werden.
vb
kopieren
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
'Set the values to be uppercase
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End Sub
Nun du siehst hier jetzt, das es Beispiele gibt wo steht Excel.Range und solche wo nur Range geschrieben wird.
Wie erklärst du dir das denn jetzt?
Denn das war meine Frage wieso man das so macht.
Ich gehe aber mal davon aus das die Antworten von Hajo und Daniel plausibel sind oder?