Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

With Schleife

With Schleife
25.10.2003 09:47:28
Christoph
Hallo Excel Freunde
Mit nachfolgendem Code lese ich aus einem Tabellenblatt in Spalte A Werte
in eine Varaible ein. Das klappt auch wunderbar.

Dim X as Variant
Dim Anzvariable as Integer
DIM Variablenname() As String

Set Kom_Datei = Workbooks(wb_name_KDatei).Worksheets(ws_name_KDatei)
Kom_Datei.Activate
i = 0
For Each X In Kom_Datei. _
Range(Cells(1, 1), Cells(Anzvariable, 1))
If Not IsEmpty(X.Value) And _
X.Font.ColorIndex = 5 Then
Variablenname(i) = X.Value
End If
i = i + 1
Next X
Das gleiche Versuche ich nun in einer With Schleife allerdings ohne
das Tabellenblatt zu aktivieren.
With Kom_Datei
For Each rng In .Range(Cells(1, 1), Cells(Anzvariable, 1))
If Not IsEmpty(rng) And _
rng.Font.ColorIndex = 5 Then
Variablenname(i) = rng.Value
End If
i = i + 1
Next rng
End With

Hier erhalte ich die Fehlermeldung
Anwendungs oder objektdefinierter Fehler

Woran liegts.

Gruss Christoph

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: With Schleife
25.10.2003 10:36:54
K.Rola
Hallo,

beachte die Punkte vor Cells!

For Each rng In .Range(.Cells(1, 1), .Cells(Anzvariable, 1))

Gruß K.Rola
AW: With Schleife / Prima so klappts
25.10.2003 11:04:01
christoph
Schönen Dank
AW: noch ne With Schleife
25.10.2003 14:22:25
Christoph
Hallo User

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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige