wenn Zelle besetzt -> nutze übernächste Spalte
23.02.2017 14:30:16
Snervt
mein erster Eintrag. Deshalb möchte ich mich zunächst mal bedanken für alle bisherigen Beiträge, die mir bisher sehr viel weitergeholfen haben. DANKE!
Jetzt bin ich aber an einer Stelle angekommen wo ich nicht weiter weiß.
folgenden Code habe ich bereits erstellt:
Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Bitte Nummer eingeben!"
Exit Sub
End If
Dim x As Long
Z = Sheets(1).UsedRange.Rows.Count
x = TextBox1
temp = 0
For i = 4 To Z
If Cells(i, 1) = x And Cells(i, 6) = "" Then
temp = 1
Exit For
End If
Next
If temp = 1 Then
Cells(i, 6) = Date
TextBox1.Text = ""
TextBox1.SetFocus
End If
End Sub
2. Anschließend wird in Cells(i,6) das dazugehörige Datum eingetragen.
Ich möchte jetzt, dass automatisch Cells(i,8) verwendet wird, wenn (i,6) bereits belegt ist. und das gleiche dann für (i,10).
Also müsste irgendwie eine Prüfschleife integriert werden. Leider fehlen mir dazu die nötigen Kentnisse.
Ich würde mich sehr freuen, wenn mir jemand einen hilfreichen Ansatz geben könnte.
Vielen Dank snervt