Servus liebe Community!
ich steh vor folgenden Problem: Im Zuge meiner Masterarbeit möchte ich nur die Daten von eingeblendeten Tabellenblätter übernehmen.
Ausgangspunkt sind 35 Tabellen, welche jedoch nicht jede Daten beinhalten, welche dann zu einem Profil (ohen Lücken) zusammengestellt werden sollen.
Programm funktioniert hat jedoch leeren Tabellen oft Lücken.
Hier sehen Sie, wie es bis jetzt gelöst habe:
Alle Tabellen mit Inhalt werden nach vorne gereiht und am Ende werden die leeren Tabellenblätter angehängt.
For tag = 1 To tagMax
zufall = Int((35 * Rnd) + 1) 'Zufallszahl zwischen 1 und 35 (Berichtstage der 5 zu untersuchenden Gemeinden)
Cells(tag, 6) = zufall 'Ausgabe der Zufallszahl
For tz = 1 To tzMax
'TP Montag1
If zufall = 1 And Tabelle53.Visible = xlSheetVisible Then
Tabelle53.Cells(tz, 1).Copy Destination:=Tabelle88.Cells(n, 1) 'Tagesuhrzeit 1-24h
Tabelle53.Cells(tz, 2).Copy Destination:=Tabelle88.Cells(n, 2) 'Start- und Ankunftzeitpunkt dezimal
Tabelle53.Cells(tz, 3).Copy Destination:=Tabelle88.Cells(n, 3) 'binäre Auswertung Fahrzeug vorhanden oder unterwegs
Tabelle53.Cells(tz, 12).Copy Destination:=Tabelle88.Cells(n, 4) 'Ladestand
Tabelle53.Cells(tz, 15).Copy Destination:=Tabelle88.Cells(n, 4) 'Ladestandsmittel
n = n + 1
End If
'TP Dienstag1
If zufall = 2 And Tabelle54.Visible = xlSheetVisible Then
Tabelle54.Cells(tz, 1).Copy Destination:=Tabelle88.Cells(n, 1) 'Tagesuhrzeit 1-24h
Tabelle54.Cells(tz, 2).Copy Destination:=Tabelle88.Cells(n, 2) 'Start- und Ankunftzeitpunkt dezimal
Tabelle54.Cells(tz, 3).Copy Destination:=Tabelle88.Cells(n, 3) 'binäre Auswertung Fahrzeug vorhanden oder unterwegs
Tabelle54.Cells(tz, 12).Copy Destination:=Tabelle88.Cells(n, 4) 'Ladestand
Tabelle54.Cells(tz, 15).Copy Destination:=Tabelle88.Cells(n, 4) 'Ladestandsmittel
n = n + 1
End If
Nur ein Ausschnitt meines Programmes, für die restlichen Tabellen genau das Gleiche
Danke im Voraus für Eure Hifle!