|
Der Zweck der Frage war es in meinem Programm einen weiteren Zwischenbaustein einzufügen. Durch das Kompletieren der Überschriften kann der restliche Code funktionieren und alle Daten werden übernommen. In dem nächsten Baustein gleicht er die Überschrift beider Tabellenblätter ab und falls diese Vorhanden ist, kopiert er die Daten zur passenden Spalte, bis in Tab.6 alle spalten abgearbeitet sind. Fehlt eine Überschrift, weil irgendwer auf die Idee kam aus Name1 -> Name2 zu generieren, so werden die Spalten ignoriert/ nicht übernommen. Deshalb soll er im vorfeld die Überschriften angleichen.
Habe es aber nun nach Stunden Schritt für schritt angepasst. Wird wahrscheinlich was smarteres mit besserer performance geben, aber für mich passt es.
Sub Head()
Dim HZiel, HQUelle As String
Dim HeaZiel, Zae_Quelle As Integer
Zae_Quelle = 1
HeaZiel = 1
HQUelle = Tabelle6.Cells(1, Zae_Quelle)
HZiel = Tabelle8.Cells(1, HeaZiel)
Do While HQUelle <> "" And Zae_Quelle < 25
If HQUelle <> HZiel And HZiel <> "" Then
HeaZiel = 1
Do While HeaZiel < 25
If HQUelle = HZiel Then
Exit Do
ElseIf HZiel = "" Then
HQUelle = Tabelle6.Cells(1, Zae_Quelle)
HZiel = HQUelle
Exit Do
Else
End If
HeaZiel = HeaZiel + 1
HZiel = Tabelle8.Cells(1, HeaZiel)
Loop
Else
End If
Tabelle8.Cells(1, HeaZiel) = HQUelle
Zae_Quelle = Zae_Quelle + 1
HQUelle = Tabelle6.Cells(1, Zae_Quelle)
Loop
End Sub
|