Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variable anstatt feste Zeilenangabe

Forumthread: Variable anstatt feste Zeilenangabe

Variable anstatt feste Zeilenangabe
13.06.2017 13:32:46
Steve
Hallo Könner.
Ich hätte da noch - für euch - eine Kleinigkeit:
bei folgendem Schleifenteil habe ich zu Probezwecken die feste Angabe A443:A.....
angegeben.
Variable besteht mit dem Namen : EndZeilefürsZählwerk + 2
starre Eingabe funktioniert:
ElseIf Not Intersect(Target, Sh.Range("A443:A" & Cells(Rows.Count, 1).End(xlUp).Row)) Is Nothing Then
mein Umbau - geht in die Hose:
ElseIf Not Intersect(Target, Sh.Range.Cells(EndZeilefürsZählwerk + 2, 1), Cells(Rows.Count, 1)) Is Nothing Then
Bitte wer kann mir das richten.
Danke und mfg STeve
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variable anstatt feste Zeilenangabe
13.06.2017 14:21:01
Steve
Habe noch ein bisschen probiert: Weitere Info:
...hier zählt er zwar aber sobald ich außerhalb der Range komme zeigt er:
Laufzeitfehler 450: Falsche Anzahl an Argumenten oder ungültige Zuweisung einer Eigenschaft
an.
ElseIf Not Intersect(Target, Sh.Range.Cells(EndZeilefürsZählwerk + 2, 1), Cells(Rows.Count, 1)) Is Nothing Then
Hier zählt er auch alles richtig nur bei Eingabe außerhalb der Range zeigt er:
ElseIf Not Intersect(Target, Sh.Range("A & EndZeilefürsZählwerk + 2 :A" & Cells(Rows.Count, 1).End(xlUp).Row)) Is Nothing Then
Laufzeitfehler 1004 : Anwendung- oder objektdefinierter Fehler
an
Besten Dank für eure Einbringung. Bin mit meinem Latein am Ende.....:-((
mfg STeve
Anzeige
AW: Variable anstatt feste Zeilenangabe
13.06.2017 14:28:52
Matthias
Hallo! Probiere es mal so, ist aber ungetestet:
ElseIf Not Intersect(Target, Sh.Range(Cells(EndZeilefürsZählwerk + 2, 1), Cells(Rows.Count, 1))) Is Nothing Then
Du hattest m.E. die Range nicht richtig angesprochen. Die Zellen gehören da in der Range in Klammern.
VG
Matthias auf dich ist immer Verlass- Danke
13.06.2017 14:36:54
Steve
Besten Dank Matthias...natürlich war es das.
Reinkopiert und schon läuft es perfekt.

Tausend Dank und noch schönen Tag.
lg STeve
Anzeige
AW: Variable anstatt feste Zeilenangabe
13.06.2017 14:32:18
Matthias
Ergänzung in deiner zweiten Variante müsste es glaube ich so heißen:
ElseIf Not Intersect(Target, Sh.Range("A" & EndZeilefürsZählwerk + 2 & ":A" & Cells(Rows.Count, 1).End(xlUp).Row)) Is Nothing Then
Werde ich mir speichern
13.06.2017 14:38:36
Steve
Danke... deinen zweiten Code werde ich mir speichern. Spitze
Das brauch ich immer wieder und jedesmal fuchst es mich.
Danke dir .........lg
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige