Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1108to1112
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

Per maktor Cursor positionieren

Per maktor Cursor positionieren
Nibio
Hallo Profis,
wie kann ich per makro, den Cursor von C1 auf die nächste nicht leere Zelle (im selbe Spalte) positionieren und dann ab diesere Position 2 stelle nach links gehen und von hier den Bereich kopieren bis auf weitere 40 Zeile tiefe.
Beispiel:
Ab position C1 ist die nächste nicht leere Zelle C500, dann geht er auf A500 und kopiert den Bereich A500:A540.
Aber Achtung" Nur Zellen mit Werte zählen als nicht leer, Zellen die kein Wert haben aber Formel enthalten, müssen als leer betrachtet werden.
Vielen Dank im Voraus.
Nibio

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Per makro Cursor positionieren
17.10.2009 14:53:45
Nibio
Sorry mein Schreibfehler, ich meinte "Per Makro Cursor positionieren"
Gruß
Nibio
AW: Per maktor Cursor positionieren
17.10.2009 15:06:20
Tino
Hallo,
versuche es mal hiermit.
Dim rZelle As Range
Dim LRow As Long
LRow = Columns(3).Find("*", , xlValues, xlWhole, xlByRows, xlNext, False, False).Row
Set rZelle = Cells(LRow + 1, 3).End(xlUp).Offset(0, -2)
rZelle.Resize(40).Copy
Gruß Tino
Korrektur...
17.10.2009 15:09:01
Tino
Hallo,
besser so.
Dim rZelle As Range
Dim LRow As Long
LRow = Columns(3).Find("*", , xlValues, xlWhole, xlByRows, xlNext, False, False).Row
Set rZelle = Cells(LRow, 3).Offset(0, -2)
rZelle.Resize(40).Copy
Gruß Tino
Anzeige
AW: Korrektur...
17.10.2009 15:21:42
Nibio
wow!!!
Danke sehr Tino, funktioniert super.
Gruß
Nibio.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige