Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Anwählen der nächsten Zeile

Forumthread: 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?
Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige