Sub Daten_eintragen
Dim Zeile As Long, Spalte As Integer, LZeile As Long,LSpalte As Integer
LSpalte = Tabelle1.Cells(1,Columns.Count).End(xltoLeft).Column
For Spalte = 1 To LSpalte Step 2
LZeile = Tabelle1.Cells(Rows.Count,Spalte).End(xlup).Row
For Zeile = 2 To LZeile
If Tabelle1.Cells(Zeile,Spalte).Value = Textfeld1.Value Then
If Tabelle1.Cells(Zeile,Spalte+1).Value = "" Then
Tabelle1.Cells(Zeile,Spalte+1).Value = Textfeld2.Value
Else
MsgBox "Zelle ist nicht leer",vbokonly,Title:="Bereits
belegt"
End if
End if
Next zeile
Next spalte
End Sub
Es kann sein, das Du diesen Vergleich noch mit Format anpassen musst.
"If Tabelle1.Cells(Zeile,Spalte).Value = Textfeld1.Value Then"
Gruß Gabor
Klaus