1 | Kommt dir dieser Zusammenhang nicht auch etwas absurd vor?
|
Durch die uni und selbstgeschriebenes/gelesenes Zeug bin ich noch lange kein Experte. Mein Code könnte noch sehr viel optimierungspotential vertragen. Zumal ich nichts Richtung Informatik studiert habe.
Wer prüft eigentlich ob du an dem Makro nicht irgendeinen Schaden fabrizierst?
Das Makro habe ich komplett selbst geschrieben. Außer mir wird es keiner nutzen. Und wenn es nicht funktiert, dann muss ich es per Hand stundenlang lösen:)
Was auch immer du gesucht/gestöbert hast, es hat offensichtlich nicht s mit der angestrbten Lösung zu tun. denn das was du suchst ist eines der häufigsten Probleme in dem Bereich. Somit auch eines der am häufigst gelösten Probleme.
1. das Ermitteln der ersten freien Zelle am Ende des Bereiches (Überschriftenspalte)
2. Die Suche nach einem Wert in einen Zellbereich(Überschriftenspalte)
3. Die Einsortierung der Werte zu den passenden Überschriften
Normalerweiße werden lösungen für Zeilenprobleme in sämtlichen Foren angeboten. Ich selbst habe versucht es in einem Zwischenschritt einzubauen, aber eine For oder Do schleife versagt in dem Fall...
Hier mal ein vorschlag:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | Public Sub HEAD_Erg()
Dim Headline_Quelle, HeaZiel, HZiel, HQUelle As String
Headline_Quelle = 1
HeaZiel = 1
HQUelle = Tabelle6.Cells(1, Headline_Quelle)
HZiel = Tabelle8.Cells(1, HeaZiel)
Do Until HQUelle = ""
If HQUelle = HZiel Then
Headline_Quelle = Headline_Quelle + 1
ElseIf HZiel = "" Then
HZiel = HQUelle
HeaZiel = 1
Headline_Quelle = Headline_Quelle + 1
Else
HeaZiel = HeaZiel + 1
End If
Loop
End Sub
|
|