Z verschieben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub n() Dim i As Long Application.ScreenUpdating = False For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 2 Range("a" & i & ":Z" & i).Cut Range("AA" & i - 1) Next Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Application.ScreenUpdating = False End Sub

hallo hary
vielen dank für den code - funktioniert perfekt !
jetzt zeichnet es sich ab, dass die inhalte der ersten zeile manchmal bis spalte z geht, manchmal aber auch bis spalte ak ... also: die letztbefüllte spalte ist nicht immer eindeutig
kann man das makro so ändern, dass er die inhalte der zweiten spalte immer NACH der letztbefüllte spalte der ersten zeile einfügt ?
also: wenn die letzte spalte Z ist - füge in spalte AA ein / wenn die letzte spalte AK ist - füge in AL ein / usw
ideal wäre es natürlich auch, wenn jede zweite zeile nach dem verschieben automatisch gelöscht wird
das wäre dann superperfekt :)
besten gruss peter
hier den code, den ich bis heute nutze

Sub Zeile2inZeile1()
Dim i As Long
Application.ScreenUpdating = False
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 2
Range("a" & i & ":BZ" & i).Cut Range("CA" & i - 1)
Next
Leere_Spalten_loeschen
Application.ScreenUpdating = True
End Sub

Sub Leere_Spalten_loeschen()
'lösche alle leeren Spalten
Dim Spalte As Integer
Application.ScreenUpdating = False
For Spalte = 256 To 1 Step -1
If Application.CountA(Columns(Spalte)) = 0 Then
Columns(Spalte).Delete
End If
Next
Application.ScreenUpdating = True
End Sub

Sub JedeZweiteZeileLoeschen()
'dauert ziemlich lange ;(
Application.ScreenUpdating = False
For l& = 65536 To 2 Step -2  'ggfs anpassen an letzte gefüllte Zeile
Rows(l & ":" & l).Select
Selection.Delete Shift:=xlUp
Next l
Application.ScreenUpdating = True
End Sub

Sub n() Dim i As Long Dim Spalte Application.ScreenUpdating = False For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 2 'jede gerade Zeile Spalte = Cells(i - 1, Columns.Count).End(xlToLeft).Column 'letze Spalte in jeder _ ungeraden Zeile Range(Cells(i, 1), Cells(i, Cells(i, Columns.Count).End(xlToLeft).Column)).Cut Cells(i - 1, _ Spalte + 1) 'Bereich ausschneiden Next Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'leere zeilen löschen Application.ScreenUpdating = True End Sub

Sub Zeile2_in_Zeile1() Dim i As Long Dim Spalte Application.ScreenUpdating = False For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 2 'jede gerade Zeile Spalte = Cells(i - 1, Columns.Count).End(xlToLeft).Column 'letze Spalte in jeder _ ungeraden Zeile Range(Cells(i, 1), Cells(i, Cells(i, Columns.Count).End(xlToLeft).Column)).Cut Cells(i - 1, _ Spalte + 1) 'Bereich ausschneiden Next Leere_Spalten_loeschen Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'leere zeilen löschen Application.ScreenUpdating = True End Sub

Sub Leere_Spalten_loeschen() Dim Spalte As Integer Application.ScreenUpdating = False For Spalte = 256 To 1 Step -1 If Application.CountA(Columns(Spalte)) = 0 Then Columns(Spalte).Delete End If Next Application.ScreenUpdating = True End Sub

hallo hary
erstmal zur beantwortung deiner frage:
die inhalte der zeile 1 und 2 sind unterschiedlich.
z.b. ist die zelle a1 immer leer, dann sind die zellen in zeile 1 immer mal gefüllt, mal leer.
dito für die zweite zeile.
deshalb lasse ich die leerSPALTEN mit dem makro löschen - funktioniert auch sehr schnell.
merkwürdig ist nur, dass der code zur löschung der leeZEILEN die kompletten inhalte des tabellenblattes löscht.
Es sind aber definitiv in jeder 2. zeile (ab der spalte a) inhalte enthalten :O? (es sind immer 2 Buchstaben)
irgendwie werde ich daraus nicht schlau
zuhause bei einer einer kleineren datei (ca 1000 zeilen) hatte es funktioniert.
hier auf der arbeit ist die datei 34000 zeilen lang.
hast du einen tip woran das liegt, dass ALLES gelöscht wird ?
ich hab auch mal den weg wie folgt probiert:
spalte a markieren - dann bearbeiten - gehe zu - inhalte - leerzellen
dann schreibt excel: markierung zu gross
kann es sein, dass "range("a:a") das gleiche macht ?
bin am rätseln :(
gruss peter

Beliebteste Forumthreads (12 Monate)

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread