VBA Zelle suchen und heutiges Datum hinzufügen
13.01.2020 11:17:35
Foradh
ich habe leider folgendes Problem bei einer VBA Excel Programmierung.
Bei einem UserForm_Formular soll ein ausgewählter Wert in einer Listbox in einem Excelblatt gesucht werden und in einer bestimmten Zelle das aktuelle Datum eingefügt werden. Wenn in dieser Zelle schon ein Datum steht soll das neue Datum hinzugefügt werden. Bei meinem jetzigen Code habe ich das Problem, dass mir extrem viele Werte in die Zeile geschrieben werden. Bei einem Einzelwert (also Überschreiben der Zelle) funktioniert alle einwandfrei.
Kann mir jemand helfen?
Code:
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer
Dim zeilemax As Integer
zeilemax = ActiveSheet.Cells(65536, 1).End(xlUp).Row
If langswitch = 1 Then
For i = 1 To zeilemax
For j = 1 To zeilemax
If Cells(i, 1) = ListBox1.List(ListBox1.ListIndex, 0) Then
Cells(i, 13) = Cells(i, 13) & Now
End If
Next j
Next i
ElseIf langswitch = 2 Then
For i = 1 To zeilemax
For j = 1 To zeilemax
If Cells(i, 1) = ListBox2.List(ListBox2.ListIndex, 0) Then
Cells(i, 13) = Cells(i, 13) & Now
End If
Next j
Next i
ElseIf langswitch = 3 Then
For i = 1 To zeilemax
For j = 1 To zeilemax
If Cells(i, 1) = ListBox3.List(ListBox3.ListIndex, 0) Then
Cells(i, 13) = Cells(i, 13) & Now
End If
Next j
Next i
Else
End If
End Sub
Beste Grüße
Foradh