Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1560to1564
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 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

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
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
Anzeige
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige