Makro Daten übertrag funktioniert nicht
Chris
ich habe ein Problem mit einem Makro zum Drucken und komme einfach nicht weiter.
Folgender Sachverhalt:
Ich habe eine Tabelle mit Daten für Überseecontainer. Kommt ein Container im Depot an oder wird abgeholt gibt es einen sogenannten "Inter Change". Für Ankunft "CheckIn" und für Abholung "CheckOut".
Bei jeder Bewegung wird der Beladezustand des Containers in der Tabelle geändert z.B. von "unterwegs" zu "Voll WE Depot" usw. Das ganze wird über zwei entsprechende Makros gesteuert. Beide Makros funktionieren auch bis auf einen Fall.
Kommt ein Container an, wird der Beladezustand von "unterwegs" auf "Voll WE Depot" gesetzt und das funktioniert auch. Irgendwann wird der Container dann abgeholt und der Beladezustand wird auf "abgeholt VOH" gesetzt. Auch das funtioniert. Kommt der Container dann allerdings wieder und ich setze den Container auf "leer im Depot", setzt das Makro den Beladezustand aber auf "Voll WE Depot" und hier bin ich langsam am Verzweifeln.
Ich hoffe ich hab den Sachverhalt verständlich rüber gebracht.
Vielen Dank schon einmal im Voraus.
Gruß
Der Chris
Hier der Makroabschnitt für Drucken:
Sub Drucken()
Dim ExY As Integer
With Sheets("Depotverwaltung")
ExY = .Cells(6, 4)
z = Cells(2, 1)
Cells(2, 1) = Empty
'laufende Nummer aus Depotverwaltung holen und um 1 erhöhen.
Cells(3, 9) = .Cells(7, 4) + 1
'Überprüfen des Jahres und Zurücksetzung der lfd Nummer bei Jahreswechsel
If ExY Cells(3, 7).Value Then Cells(3, 9).Value = 1
'Übertrag der laufenden Nummer, sowie dem aktuellen Jahr in die Depotverwaltung
.Cells(7, 4) = Cells(3, 9)
.Cells(6, 4) = Cells(3, 7)
'Übertrag der noch nicht vorhandenen Daten
If .Cells(z, 5) Empty Then
If Cells(2, 11) = "1" Then .Cells(z, 13) = "leer im Depot" Else .Cells(z, 13) = "voll WE _
Depot"
Cells(2, 11) = Empty
Else:
.Cells(z, 1) = Cells(6, 4) 'Anlieferung
.Cells(z, 3) = Cells(6, 4) 'Verlad. Hafen
.Cells(z, 5) = Cells(8, 4) 'ContNr
.Cells(z, 6) = Cells(9, 4) 'ContTyp
.Cells(z, 8) = Cells(10, 4) 'Frachtführer
.Cells(z, 9) = Cells(11, 4) 'Reederei
'Ausdrucken des aktuellen Datenblattes
ActiveSheet.PrintOut
ActiveSheet.PrintOut
'Übertrag neuer Beladezustand
.Cells(z, 13).Value = Cells(12, 4) 'Beladezustand
End If
End With
'Depotverwaltung-Tabelle aktivieren
Worksheets("Depotverwaltung").Activate
End Sub