Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
380to384
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Next

Next
10.02.2004 17:54:56
Ali
guten abend
ich will einigee zahlen welche in einer spalte eingetragen sind in die spalte (a) verschieben, jedoch untereinander. also wenn a1 ein wert hat soll in a2 verschoben werden. ich denke es hat mit next funktion zu tun. kann jemand mir helfen.
so sieht mein makro aus...

Sub Makro1(verschieben)
Selection.Copy
Range("A1").Select
ActiveSheet.Paste
End Sub


freundliche grüsse
ali

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

Betreff
Datum
Anwender
Anzeige
AW: Next
10.02.2004 18:05:06
PeterW
Hallo Ali,
die Aufgabenstellung ist mir nicht ganz klar. Folgender Code listet alle Zellinhalte des markierten Bereiches in Spalte A.

Sub verschieben()
Dim rngC As Range
Dim lgRow As Long
If IsEmpty(Cells(1, 1)) Then
lgRow = 1
Else
lgRow = Range("A65536").End(xlUp).Row
End If
For Each rngC In Selection
If Not IsEmpty(rngC) Then
Cells(lgRow, 1) = rngC
'soll die Ursprungszelle gelöscht werden dann zusätzlich
'rngC = ""
lgRow = lgRow + 1
End If
Next
End Sub

Gruß
Peter
AW: Next
10.02.2004 18:33:38
Ali
hallo peter
es funktioniert! jedoch kopiert den wert immer in zelle a1. mein wunsch wäre, wenn a1 nicht leer ist soll in zelle a2 hinzugefügt werden.
danke für deine hilfe
ali
Anzeige
AW: Next
10.02.2004 18:39:02
PeterW
Hallo Ali,
kleiner Lapsus, es muss heißen
Else
lgRow = Range("A65536").End(xlUp).Row + 1
End If
Gruß
Peter
AW: Next
10.02.2004 18:42:55
Ali
danke peter
du bist super !!!
einen schönen abend
(auch an dir eine danke Markus ;-)
bin zwar noob aber es geht.. :-)
10.02.2004 18:13:28
Markus H.
Moin,

Sub verschieben()
For I = 1 To 65536
If Range("A" & I) <> "" Then
Range("A" & I + 1).Copy 'zeile unter dem der wert steht wird kopiert
Range("B" & I + 1).Select 'und in spalte b gleiche zeile eingefügt
ActiveSheet.Paste
End If
Next I
End Sub

mfg
markus

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige