04.02.2015, 17:19
(04.02.2015, 17:00)atilla schrieb: [ -> ]Hallo Angelina,
wenn Du mit den gleichen Daten arbeitest, wie in der von Dir zuletzt eingestellten Datei, dann existiert die 54 so lange nicht, bis Du das Gegenteil beweist.
hallo atilla,
"schande über mein blondes haupt" :33:
stimmt - sorry - war mein Fehler
Aber nun mal eine ganz andere Frage.
Wie binde ich das neue Modul "Takter" - so nenne ich es mal - am besten bei mir ein?
Auf dem Tabellenblatt "Forecast" ist ein CommandButton1
Derzeit ist die Struktur/Ablauf so:
PHP-Code:
Option Explicit
Private Sub CommandButton1_Click()
Call Modul1
Call Modul2
Call Modul3
Call Modul4
Call Modul5
Call Modul6
Call Modul7
Call Modul8
Application.CutCopyMode = False
Worksheets("Forecast").Range("DE1").Copy
Worksheets("Forecast").Range("BT47").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Worksheets("Forecast").Range("DE1").Copy
Worksheets("Forecast").Range("BT48").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Worksheets("Forecast").Range("DE1").Copy
Worksheets("Forecast").Range("BT49").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Worksheets("Forecast").Range("DE1").Copy
Worksheets("Forecast").Range("BT52").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Worksheets("Forecast").Range("DE1").Copy
Worksheets("Forecast").Range("BT53").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Worksheets("Forecast").Range("DE1").Copy
Worksheets("Forecast").Range("BT54").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("DA1").Select
Application.CutCopyMode = True
'Schreibe in die Datenbanken
With Sheets("DatenbankA")
.Cells(IIf(.Range("A1") = vbNullString, 1, .Cells(Rows.Count, 1).End(xlUp).Offset(1).Row), 1).Resize(3, 13) = Range("BT47:CF49").Value
End With
With Sheets("DatenbankB")
.Cells(IIf(.Range("A1") = vbNullString, 1, .Cells(Rows.Count, 1).End(xlUp).Offset(1).Row), 1).Resize(3, 13) = Range("BT52:CF54").Value
End With
End Sub
Wenn ich nun z.B. in K diese Einträge mache
1000
900
Dann soll die 1000 in A:J angezeigt werden und dann mein o.g. Ablauf
Call Modul1
Call Modul2
Call Modul3
Call Modul4
Call Modul5
Call Modul6
Call Modul7
Call Modul8
usw. bis inkl. das Schreiben in die Datenbanken
und dann soll der zweite Eintrag in der Spalte K
die 900
abgearbeitet werden. Gleicher Ablauf wie beim Eintrag 1000.
Hat Spalte K dann keinen Eintrag mehr ist alles beendet.
Was würdest du mir empfehlen?
Nochmals viele viele liebe Grüße
Angelina