Set
wkb = Workbooks.Open(
"C:\Dokumente und Einstellungen\P325130\Desktop\kopie Neuwagen\Neuwagenmanagement.xls"
)
wkb.Activate
Sheets(
"Neuwagen"
).Activate
<strong> zeile = 2</strong>
<strong>spalte = 29
</strong>
If
(fin <>
""
Or
kennzeichen <>
""
)
Then
<strong>Cells(zeile, spalte).Value = TextBox28.Value
Cells(zeile, spalte + 3).Value = TextBox33.Value
Cells(zeile, spalte + 4).Value = TextBox34.Value
Cells(zeile, spalte + 1).Value = TextBox11.Value
Cells(zeile, spalte + 2).Value = TextBox30.Value
Cells(zeile, spalte + 6).Value = TextBox29.Value
Cells(zeile, spalte + 5).Value = TextBox31.Value
Cells(zeile, spalte + 7).Value = TextBox32.Value
</strong>
Poblem jetzt noch ist, dass immer wieder die erste Zeile überschrieben wird. Ich kann aber der Variablen (zeile) nur einen Wert zuweisen?
Grüße Sino