der Inhalt der Variablen:"TagVorhanden" enthält z.B. folgende Einträge: ",3,4,5,6,9,10,13,16,17,18,20,24,25,26,27,30"
Nun will ich nacheinander den Inhalt auslesen und den jeweiligen Wert (zwischen zwei Kommas, von links) an die "VariableTag" übergeben. Beim ersten Durchlauf soll lediglich eine "3" in "VariableTag" geschrieben werden. Beim nächsten Durchlauf soll dort "4" stehen, usw. bis beim letzten Durchlauf die "30" übergeben wird.
In einem anderen Projekt habe ich seinerzeit diverse Zelladressen mit Spalten- und Zeilenadressierung aus einer Variablen ausgelesen nach dem folgenden Programmcode und damit die jeweiligen Zellen markiert:
Private Sub VariableAuslesen()
Dim Markierung$, AddString As String, TeilString As Variant, VariableTag%
Markierung = Mid(TagVorhanden, 3)
AddString = Markierung
For Each TeilString In Split(AddString, ",")
' Intersect(Range(TeilString).EntireRow, Range("A:H")).Font.Bold = True
mit vorstehender Zeile war es möglich Zelladressen auszulesen und in der Tabelle zu markieren.
Next
End Sub
Im aktuellen Projekt soll lediglich ein Zahlenwert wie oben beschrieben extrahiert und an anderer Stelle im Makro verarbeitet werden.Meine Frage lautet: Wie muss der Programmcode umgeschrieben werden damit die "VariableTag" mit Inhalt gefüllt wird?
mfg
reiner