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