Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1392to1396
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
Inhaltsverzeichnis

Excel 2003 Zellen mit Inhalt nach rechts verschieb

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

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

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige