Namen anwenden per VBA
02.03.2004 16:40:13
Michael
da hab ich doch schon das nächste Problem (eigentlich ein altes um das ich mich bisher gedrückt habe)
Wie kann ich in einer Tabelle verwendete Namen per VBA wieder aufrufen?
Ich weiß zwar wie ich sie per Makro neu definiere, aber wenn ich versuche sie innerhalb eines Makros als Range heranzuziehen, scheitere ich regelmäßig.
Das folgende Makro sollte mir vorerst nur einen, durch den Namen "Bereich" definierten, Range durchsuchen und jeweils die Zeile benennen in der der Wert "halb" gefunden wurde:
Sub summieren2()
Dim Bereich As Name
Dim Zelle As Range
Dim Zeile As Integer
For Each Zelle In Bereich
If Zelle.Value = "halb" Then
Do Until Zelle.Value = "halb"
Zelle.Offset(1, 0).Select
Zeile = Selection.Row
MsgBox "Zeile " & Zeile & " !"
Loop
Else
Zelle.Offset(1, 0).Select
End If
Next
End Sub
Die Geschichte mit der MsgBox wird natürlich später durch die echte Funktion ersetzt.