Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Excel 2003 Zellen mit Inhalt nach rechts verschieb
03.12.2014 17:54:01
Dennis
Hallo zusammen,
ich brauche bitte kompetente Hilfe. Ich habe eine Datei, die jede Woche etwas anders befüllt ist, und die ich "glattziehen" möchte. Ein Großteil der Makros dafür steht, aber ich finde nix, wie ich Excel folgendes sagen kann: Suche in den Spalten B, D, F, J, H und L jede Zelle nach Inhalt ab. Findest Du etwas, verschiebe den Inhalt bitte um eine Zelle nach rechts, also bspw. von B1 nach C1. Das Problem ist vermutlich sehr simpel zu lösen, aber ich sitze da momentan wie ein Ochse vor'm Berg.
Vielen Dank für jede Hilfe schon mal vorab. :-)
Gruß aus Hamburg
Dennis

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel 2003 Zellen mit Inhalt nach rechts verschieb
04.12.2014 14:12:55
Uduuh
Hallo,
Range("B:B,D:D,F:F,H:H,J:J,L:L").SpecialCells(xlCellTypeConstants).Insert Shift:=xlToRight
Gruß
Rudi

AW: Excel 2003 Zellen mit Inhalt nach rechts verschieb
05.12.2014 11:51:13
Dennis
Hallo Rudi,
vielen Dank für Deine schnelle Antwort. Ich hab das mal geteste, und das funktioniert in Spalte B wunderbar. Leider wird es danach chaotisch, ich hab mal Screenshots davon gemacht. Anscheinend kopiert er nicht den Zelinhalt eine Spalte nach rechts, sondern verschiebt das ganze. Gibt es da eine Lösung für?
Hier mal als Screenshot, vielleicht wird dann klarer was ich meine:
So sieht es vor dem Makro aus:
Userbild
So soll es nach Ausführung des Makros aussehen:
Userbild
So sieht es nach Ausführung des Makros aus:
Userbild
Beste Grüße
Dennis

Anzeige
AW: Excel 2003 Zellen mit Inhalt nach rechts verschieb
08.12.2014 17:54:51
Simon
Guten Abend
was hällst du von einem einfachen Austauschen?

Sub verschiebe()
Dim laufvariable As Long
Dim letztezeile As Long
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For laufvariable = 2 To letztezeile
If Cells(laufvariable, 2)  "" Then
Cells(laufvariable, 3) = Cells(laufvariable, 2)
Cells(laufvariable, 2) = ""
End If
If Cells(laufvariable, 4)  "" Then
Cells(laufvariable, 5) = Cells(laufvariable, 2)
Cells(laufvariable, 4) = ""
End If
If Cells(laufvariable, 6)  "" Then
Cells(laufvariable, 7) = Cells(laufvariable, 2)
Cells(laufvariable, 6) = ""
End If
If Cells(laufvariable, 8)  "" Then
Cells(laufvariable, 9) = Cells(laufvariable, 2)
Cells(laufvariable, 8) = ""
End If
If Cells(laufvariable, 10)  "" Then
Cells(laufvariable, 11) = Cells(laufvariable, 2)
Cells(laufvariable, 10) = ""
End If
If Cells(laufvariable, 12)  "" Then
Cells(laufvariable, 13) = Cells(laufvariable, 2)
Cells(laufvariable, 12) = ""
End If
Next laufvariable
End Sub
Gruß
Simon

Anzeige

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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