Hallo Zusammen,
Aufbau meiner Tabelle:
Spalten A-C sind mit Formeln hinterlegt (werden automatisch ausgefüllt, wenn in Spalte D etwas eingetragen wird)
Spalten D-J sind leer und werden via Eingabeformular gefüllt (funktioniert auch, aber...)
Spalte K ist mit Formel hinterlegt
Zeile 1 ist Überschriftenzeile
Mein Eingabeformular habe ich wie folgt codiert:
Private Sub CommandButton1_Click()
Dim x As Long
With Worksheets("number")
x = Cells(Rows.Count, 4).End(xlUp).Row + 1 'Definition X sucht erste leere Spalte D
.Cells(x, 4) = Cells(3, 4) 'Region'
Cells(3, 4) = ""
.Cells(x, 5) = Cells(5, 4) 'Kind'
Cells(5, 4) = ""
.Cells(x, 6) = Cells(5, 7) 'Topic'
Cells(5, 7) = ""
.Cells(x, 7) = Cells(7, 4) 'Subject'
Cells(7, 4) = ""
.Cells(x, 8) = Cells(3, 7) 'Date of Release'
Cells(3, 7) = ""
.Cells(x, 9) = Cells(10, 3) 'Title'
Cells(10, 3) = ""
.Cells(x, 10) = Cells(7, 7) 'Owner'
Cells(7, 7) = ""
MsgBox "Daten wurden übertragen!"
End With
Jetzt mein Problem:
die Daten werden in die richtige Spalten übernommen, allerdings immer in Zeile 8 - diese wird auch ständig überschrieben.
Kann mir da jemand helfen - finde den Fehler in meinem Code nicht:-(
Danke und Grüße,
Sima
|