Schleife einbauen?
18.07.2022 12:37:13
GMO
Folgendes Makro habe ich bereits:
Private Sub CommandButton1_Click()
With Sheets("MRSA")
Set C = .Columns("D").Find(CDate(TextBox1.Value))
If Not C Is Nothing Then
.Cells(C.Row, 6).Value = TextBox2.Value
.Cells(C.Row, 7).Value = TextBox3.Value
.Cells(C.Row, 8).Value = TextBox4.Value
Else
MsgBox "Es gibt noch keinen Eintrag für das Datum " & TextBox1.Value
End If
End With
Unload Me
Dieses Makro füllt die Werte aus TextBox2-4 in die Zellen neben die Zelle mit dem gesuchten Datum aus TextBox 1
Ich habe eine Tabelle bei welcher in Zeile D mehrmals die gleichen Daten vorkommen, nun füllt mein Makro aber nur die Zellen neben dem ersten gefundene Datum.
Was muss man tun, damit alle Zellen neben dem gesuchten Datum gefüllt werden.
Ich habe versucht eine Schleife einzubauen, aber das check ich absolut nicht.
https://www.herber.de/bbs/user/154227.xlsm
LG
GMO