Noch eine With Schleife für K.Rola
25.10.2003 15:26:44
Christoph
Mit nachfolgendem Code suche in in einem Tabellenblatt in Spalte A
nach Variablennamen. Allerdings muss hierbei die Datei aktiv sein.
Funktioniert so etwas auch mit einer With Schleife
Gruss Christoph
Kom_Datei.Activate
k = 0
For k = 0 To i
If Variablenname(k) <> "" Then
Set suchbegriff = Kom_Datei.Columns("A"). _
Find(Variablenname(k), lookat:=xlWhole, MatchCase:=True)
If suchbegriff Is Nothing = False Then
Call finden(Variablenname(k))
Zeile = ActiveCell.Row
Cells(Zeile, Komspalte).Select
If IsEmpty(ActiveCell.Value) Then
Variableninhalt(k) = ""
Else
Variableninhalt(k) = ActiveCell.Value
End If
Benennung(k) = Cells(Zeile, 2)
Dimension(k) = Cells(Zeile, 3)
End If
End If
Next k