Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1212to1216
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
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

jede zeile um vier verschieben

jede zeile um vier verschieben
amintire
Hallöchen alle zusammen,
wie kann ich am besten jede Zeile um vier Zeilen verschieben?
Klingt komisch aber benötige es dringend.
Danke Gruß Amina

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: jede zeile um vier verschieben
28.04.2011 15:08:52
Daniel
Hi
probiers mal mit
Range("1:4").Insert
wenn das nicht hilft, präzisier nochmal deine Problembeschreibung.
Gruß, Daniel
AW: jede zeile um vier verschieben
28.04.2011 15:10:24
amintire
Hallo Daniel,
wie gebe ich den code ein?
Sub versch()
range("1:4").insert
End 


Sub
Gruß Amina
AW: jede zeile um vier verschieben
28.04.2011 15:18:53
Daniel
ja, wenn du End Sub in eine Zeile schreibst.
Gruß, Daniel
AW: jede zeile um vier verschieben
28.04.2011 15:09:44
Uppe
Hallo Amina,
alles was verschoben werden soll markieren, Rand anfassen, um 4 Zeilen verschieben.
Gruß Uppe
AW: jede zeile um vier verschieben
28.04.2011 15:16:53
amintire
Hallo Uppe,
verstehe nicht so ganz was mit Rand anfassen gemeint ist, funktioniert irgendwie nicht.
Es müssen wirklich ab Zeile1 - Zeile 2737 jede Zeile um vier verschoben werden.
Was in Zeile 2 stand steht dann in Zeile 6, Zeile 3 steht dann in Zeile 11 usw.
Das mit dem Code funktioniert auch nicht, der macht mir nur die ersten vier Zeilen frei.
Gruß Amina
Anzeige
AW: jede zeile um vier verschieben
28.04.2011 15:38:40
Daniel
Hi
ok, jetzt ist auch klar, was du willst.
gehe mal so vor.
1. nimm die erste freie Spalte am Ende der Daten (z.B. Spalte X) und trage in die erste Zeile eine 1 ein
2. trage in die 2. Zeile der Spalte X eine 2 ein
3. markiere beide Zellen. in der unteren rechten Ecke der Markierung ist ein kleines Rechteck. Dieses Klickst du an und ziehst es bei gedrückter Maustaste bis zur letzten befüllten Zeile 2737.
wenn in der Spalte links daneben alle Zellen befüllt sind, reicht auch ein Doppelklick auf das kleine Rechteck des Markierungsrahmens.
jetzt sollte in der Spalte X in jeder Zelle die Zeilennummer stehen.
4. kopiere die Zellen X1-X2737 und füge sie direkt darunter wieder ein (in X2738).
das wiederholst du 4x, bis die Spalte X bis zur Zeile 13685 gefüllt ist (jede Zahl von 1-2737 sollte 5x vorkommen)
5. sortiere jetzt die ganze Tabelle nach der Spalte X
6. lösche die Spalte x wieder.
Gruß, Daniel
Anzeige
AW: jede zeile um vier verschieben
28.04.2011 15:15:53
Rudi
Hallo,
so? 
Sub yyyy()
Dim lngRow As Long
Application.ScreenUpdating = False
For lngRow = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
Cells(lngRow, 1).Resize(3).EntireRow.Insert
Next
End Sub

Gruß
Rudi
AW: Perfekt Rudi ;))
28.04.2011 15:18:02
amintire
Hallo Rudi,
perfekt, genau so. Vielen lieben Dank.
Hast mir echt geholfen.
Gruß Amina

301 Forumthreads zu ähnlichen Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzeige
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Anzeige
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
Tasten während der Eingabe in einer Zelle abfragen
Arthur

Hallo.
Wie kann man in Excel auf die Eingabe in einer Zelle schon beim Tastendruck reagieren?
Beispiel: Schon während der Eingabe von Werten soll reagiert werden. Bspw. ist eine fünfstellige Bestelnummer einzutragen. Nachdem fünf Ziffern eingetragen sind soll automatisch in die nächste...
22.10.2008 11:44:52
Thread-ID: 1018286
4 Beiträge
Zeilen ausblenden, außer wenn in Zelle ...?
Selma

Hallo Leute,
ich möchte mit einem CommandButton ab Zeile 4 die Zeilen wie folgt ausblenden:
- wenn in Spalte M die Zelle diesen "plt" Inhalt hat, dann soll die Zeile nicht ausgeblendet werden
- wenn in Spalte M die Zelle die Füllfarbe 15 hat., dann soll die Zeile nicht ausgeblendet...
27.10.2008 18:13:00
Thread-ID: 1019700
10 Beiträge
Zweite Zeile Einfügen bis letztem Wert
Andreas

Hallo Zusammen
Das nachstehende Makro habe ich im Forum gefunden. Funktioniert einwandfrei. Nun möchte ich einfach, dass die jeweils zweite Zeile nur bis zum letzten Wert in Spalte R eingefügt wird.
Kann mir jemand helfen?
Vielen Dank
Andreas
Sub ZweiteZeilenEinfuegen() D...
05.11.2008 08:07:54
Thread-ID: 1021750
3 Beiträge
Zelleninhalt in Kopfzeile Seitenansicht zeigen?
Heiner

Hallo Forum,
ich bin Excel-Neueinsteiger habe ein grosses Problem...
In der Kopfzeile (Mitte) einer Seitenansicht soll automatisch der Eintrag aus Tabelle1 / Zelle B3 angezeigt werden.
Ist das möglich? Und wenn ja, wie kann das realisiert werden?
Wer kann mir mit einem Formel- o...
05.11.2008 12:10:35
Thread-ID: 1021845
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
9
5
2
4
3
3
9
2
1
4
2
11
5
1
4
3
2
4
6
13
5
5
10
5