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
276to280
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Anwählen der nächsten Zeile

Anwählen der nächsten Zeile
08.07.2003 08:19:19
IngoJohnen
Code:

Do
erste = Range("B1")
zweite = Range("B2")
If erste = zweite Then
Wert1 = erste + zweite
Range("A2") = Wert1
Range("A1:D1").Select
Range("D1").Activate
Selection.Cut
Sheets("Tabelle1").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Else
Range("A1:D1").Select
Selection.Cut
Sheets("Tabelle1").Select
Range.Address a
ActiveSheet.Paste
zeile = ActiveCell.Column + 1
Sheets("Sheet1").Select
Rows("1:1").Select
Selection.Delete Shift:=xlUp
End If

mein problem ist: ich möchte in der Schleife jedesmal mit der aktiven zelle automatisch eins herunter springen, ohne einen Range befehl zu benutzen. könnte mir jemand einen geeigneten befehl für vba verraten?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anwählen der nächsten Zeile
08.07.2003 12:48:49
xxx
Hallo,
Selection.offset(1,0).select.

Das select in VBA ist meit überflüssig und verlangsamt nur den Code.
sheets("Sheet1").Rows(1).delete shift:=xlup
funktioniert auch.

Gruß aus'm Pott
Udo


Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige