For Schleife.. etwas schwieriger

Computer: Software & Programmierung Office Software
1

Hallo

Habe gerad probiert diesen Code in eine Schleife umzuwandeln, doch er schiebt mir die Zeilen immer falsch ein.
Hat jemand eine Idee das zu realisieren ?

Rows(„14:14“).Insert Shift:=xlDown
Rows(„16:16“).Insert Shift:=xlDown
Rows(„18:18“).Insert Shift:=xlDown
Rows(„20:20“).Insert Shift:=xlDown
Rows(„22:22“).Insert Shift:=xlDown
Rows(„24:24“).Insert Shift:=xlDown
Rows(„26:26“).Insert Shift:=xlDown
Rows(„28:28“).Insert Shift:=xlDown
Rows(„30:30“).Insert Shift:=xlDown
Rows(„32:32“).Insert Shift:=xlDown

Danke

2

Hallo, Flexo.

Läuft das hier, wie Du es Dir vorstellst?

'Lokale Variablen

 Dim LoopA As Long

'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

 For LoopA = 32 To 14 Step -2
 Rows(LoopA & ":" & LoopA).Insert Shift:=xlDown
 Next LoopA

VG
Carsten

3

Habe gerad probiert diesen Code in eine Schleife umzuwandeln,
doch er schiebt mir die Zeilen immer falsch ein.
Hat jemand eine Idee das zu realisieren ?

hallo Flexo,

meinst du so:

Sub tt()
Dim Zei As Long
For Zei = 32 To 14 Step -2
 Rows(Zei).Insert
Next Zei
End Sub

Gruß
Reinhard

4

Hi

Geht leider nicht, es wird nicht richtig eingefügt und
am Schluss fliegt die Formatierung raus.

Danke

5

Hallo Reinhard

Die Verschiebung der Zeilen stimmt nicht und die Formatierung dann auch nicht mehr.

6

Hallo, Flexo.

Geht leider nicht, es wird nicht richtig eingefügt und
am Schluss fliegt die Formatierung raus.

Schade. Dann benötigen wir mehr Infos. Wie würde denn richtig eingefügt?

VG
Carsten

7

Hi Carsten

Danke erstmal für die Unterstützung

Ich möchte nur das sich zb. nach Zeile 13 ein Zelle einschiebt, anschliessend eine nach 15, nach 17 etc. so wie im ersten Blog beschrieben. So bleibt mir die Formatierung erhalten.

Wenn die Schleife von unten anfängt müsste man diese Zellen noch
formatieren… das will ich aber nicht.

Die Idee:
Ich habe Zellen 1 bis 10 und möchte jetzt jeweils eine darunter einfügen. Also 1b,2b,3b etc. Mit dem alten „schleifenlosen“ Code, klappt das. Aber eine Schleifenlsg. habe ich leider nicht gefunden.

Gruss

8

Ich möchte nur das sich zb. nach Zeile 13 ein Zelle
einschiebt, anschliessend eine nach 15, nach 17 etc. so wie im
ersten Blog beschrieben. So bleibt mir die Formatierung
erhalten.

Wenn die Schleife von unten anfängt müsste man diese Zellen
noch
formatieren… das will ich aber nicht.

Hallo Flexo,

erstelle mal eine neue Mappe.
In Tabelle1!A1 schreib eine 1, markiere die zelle, dann Strg halten und unten rechts in der zelle das kreuz runterziehen bis Zelle 50.
So hast du eine zahlliste von 1-50.
Nun formatiere das Ganze mit irgendeiner Zellfarbe.

Kopiere das dann in Tabelle2.

Bei tabelle1, laß mal tt laufen, aktiviere Tabelle2 und laß nn laufen, siehst du einen Unterschied zwischen den Blättern?

Sub tt()
Rows("14:14").Insert Shift:=xlDown
Rows("16:16").Insert Shift:=xlDown
Rows("18:18").Insert Shift:=xlDown
Rows("20:20").Insert Shift:=xlDown
Rows("22:22").Insert Shift:=xlDown
Rows("24:24").Insert Shift:=xlDown
Rows("26:26").Insert Shift:=xlDown
Rows("28:28").Insert Shift:=xlDown
Rows("30:30").Insert Shift:=xlDown
Rows("32:32").Insert Shift:=xlDown
End Sub
'
Sub nn()
Dim Zei As Long
For Zei = 32 To 14 Step -1
 Rows(Zei).Insert
Next Zei
End Sub

Gruß
Reinhard

1 „Gefällt mir“
9

Hallo Reinhard

Das funktioniert wunderbar… musste noch meine anschliessende Zellen-
formatierung anpassen. Darum sah es auch immer so komisch aus.

Danke