Code funktioniert nur im Einzelschritt (F8)
20.03.2005 18:26:19
Peter
Ich hab folgenden Code mir gebastelt, zumindest versucht.
Das merkwürdige an ihm ist aber das er von einem Command_Button (MAkro zugewiesen) aus nicht funktioniert, aber im Einzelschrit.
Kann mir bitte jemand erklären warum ? Danke
aawert = Sheets("Monatsplanung").Range("a101") 'tag 14
zaawert = Sheets("DB").Range("u370") ' Zeile tag14 db
bwert = Sheets("Monatsplanung").Range("a102") ' tag 13
zbwert = Sheets("DB").Range("u371") ' Zeile tag13 db
cwert = Sheets("Monatsplanung").Range("a103") ' tag 12
zcwert = Sheets("DB").Range("u372") ' Zeile tag12 db
dwert = Sheets("Monatsplanung").Range("a104") ' tag 11
zdwert = Sheets("DB").Range("u373") ' Zeile tag11 db
ewert = Sheets("Monatsplanung").Range("a105") ' tag 10
zewert = Sheets("DB").Range("u374") ' Zeile tag10 db
fwert = Sheets("Monatsplanung").Range("a106") ' tag 9
zfwert = Sheets("DB").Range("u375") ' Zeile tag9 db
gwert = Sheets("Monatsplanung").Range("a107") ' tag 8
zgwert = Sheets("DB").Range("u376") ' Zeile tag8 db
hwert = Sheets("Monatsplanung").Range("a108") ' tag 7
zhwert = Sheets("DB").Range("u377") ' Zeile tag7 db
iwert = Sheets("Monatsplanung").Range("a109") ' tag 6
ziwert = Sheets("DB").Range("u378") ' Zeile tag6 db
jwert = Sheets("Monatsplanung").Range("a110") ' tag 5
zjwert = Sheets("DB").Range("u379") ' Zeile tag 5 db
kwert = Sheets("Monatsplanung").Range("a111") ' tag 4
zkwert = Sheets("DB").Range("u380") ' Zeile tag 4 db
lwert = Sheets("Monatsplanung").Range("a112") ' tag 3
zlwert = Sheets("DB").Range("u381") ' Zeile tag3 db
mwert = Sheets("Monatsplanung").Range("a113") ' tag 2
zmwert = Sheets("DB").Range("u382") 'Zeile tag2 db
nwert = Sheets("Monatsplanung").Range("a114") ' tag 1
znwert = Sheets("DB").Range("u383") 'Zeile tag1 db
ywert = Sheets("Monatsplanung").Range("f48") ' name
xwert = Sheets("Monatsplanung").Range("aa62") ' Spalten-Zahl bezogen auf Zimmer-Nr
If aawert 0 Then
Sheets("Monatsplanung").Cells(aawert + 6, xwert) = ywert
Sheets("DB").Cells(zaawert, xwert) = Cells(zaawert, 1)
P.S.: das ganze nur in Auszügen, da sich If aawert Zeile bis If nwert wiederholt.
Er meldet auch keinen Fehler er schreibt "nur" die falschen Werte. Außer im Einzelschritt... usw.
MfG
Peter