Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
1728to1732
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
Inhaltsverzeichnis

Variable ab bestimmten Wert

Variable ab bestimmten Wert
18.12.2019 09:56:26
Georg
Hi,
ich möchte die Variable j so definieren, dass sie ab der Zeile einer weiteren Variable "myRng" zählt.
Habe aber gerade einen Klemmer...
Für einen konkreten Fall:
i = 2
myRng.Row = 6
For j = Worksheets(i).Row(myRng.Row) To 60
j soll also in der Tabelle 2 von 6 bis 60 zählen.
Im Lokal-Fenster wird j jedoch immer nur als 0 angegeben.
Mein Fehler liegt bestimmt bei "Row" vor der Klammer?
Danke im Voraus und VG,
Georg

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

Betreff
Datum
Anwender
Anzeige
AW: Variable ab bestimmten Wert
18.12.2019 10:00:03
Hajo_Zi
Hallo Georg,
For j = myRng To 60
Du möchteszt nichts aus der Tabelle auslesen, würde ich vermuten?

AW: Variable ab bestimmten Wert
18.12.2019 10:12:35
Georg
Hi,
ich hätte erwähnen sollen, dass "myRng" ein Wort ist. Sinnvoller ist es also die Variable "myRng" als ab sofort als "Suchbegriff" zu definieren.
Variable j soll ab dem Zeilenwert von "Suchbegriff" starten.
Es kann aber sein, dass im Worksheet 2 der Suchbegriff in Zeile 6 vorkommt und im Worksheet 3 der Suchbegriff in Zeile 10 vorkommt. Deswegen sollte "Worksheet(i) ..." darin enthalten bleiben.
VG
AW: Variable ab bestimmten Wert
18.12.2019 10:44:45
fcs
Hallo Georg,
wenn die Startzeile für deine For-anweisung variable sein soll, dann muss man ersteinmal die Zelle mit dem Startwert suchen.
Kann dann beispielsweise wie folgt aussehen.
LG
Franz
Sub Test()
Dim i As Integer
Dim j As Long
Dim varSuch, myRng As Range
Dim wks As Worksheet
i = 2
Set wks = ActiveWorkbook.Worksheets(i)
varSuch = "Test"
With wks
'Zellbereich für die Suche ggf. anpassen
Set myRng = .Range("A:A").Find(what:=varSuch, LookIn:=xlValues, lookat:=xlWhole)
End With
If myRng Is Nothing Then
MsgBox "Suchbegriff """ & varSuch & """ nicht gefunden!"
Else
For j = myRng.Row To 60
Next j
End If
End Sub

Anzeige

186 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige