Code funktioniert nur im Einzelschritt (F8)

Bild

Betrifft: Code funktioniert nur im Einzelschritt (F8) von: Peter W
Geschrieben am: 20.03.2005 18:26:19

Servus,

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

Bild


Betrifft: erledigt von: Peter W
Geschrieben am: 20.03.2005 18:46:01

Servus,

Ich bin zu doof für die Welt , hab die Zuweisung vor cell vergessen und da ich die Werte im passenden Sheet im f8 Modus überprüft habe hats gepasst.

Mei, Mei, Mei

MfG
Peter


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Speichern"