Noch eine With Schleife für K.Rola

Bild

Betrifft: Noch eine With Schleife für K.Rola
von: Christoph
Geschrieben am: 25.10.2003 15:26:44

Hallo K.Rola

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

Bild


Betrifft: AW: Noch eine With Schleife für K.Rola
von: K.Rola
Geschrieben am: 25.10.2003 20:22:55

Hallo,

besser, du postest nicht direkt an einen bestimmten Namen,
die Chancen, eine Antwort zu erhalten, sinken deutlich.
With ist keine Schleife und schon gar kein Wundermittel, der
With- Rahmen erspart nur, ein Objekt mehrfach zu nennen.
Also statt:
Sheets("tabelle1").[a1]
Sheets("tabelle1").[a2]
Sheets("tabelle1").[a3]

with Sheets("tabelle1")
.[a1]
.[a2]
.[a3]
end with

Wenn du was "selecten" willst, warum auch immer, gehts nur im
aktiven Blatt, da hilft auch kein With- Rahmen.

Gruß K.Rola


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Noch eine With Schleife für K.Rola"