zeilen einfügen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: zeilen einfügen
von: huelgueuer
Geschrieben am: 04.03.2005 08:03:44
hallo an alle
habe folgenes problem:

$tc_tp3[12345]=1
$tc_tp3[23336]=1
$tc_tp3[23456]=1
$tc_tp3[23466]=1
$tc_tp3[83765]=1
$tc_tp3[93484]=1
...
...
...
m30
es ist immer nur eine spalte und zwischen 2 und 150 zeilen. letzte zeile ist immer m30. sortiert ist die spalte aufsteigend nach dem inhalt der [xxxxx]
nun soll zwischen jeder zeile eine neue eingefügt werden. inhalt ist immer der gleiche.
$tc_tp3[12345]=1
G04 F1
$tc_tp3[23336]=1
G04 F1
$tc_tp3[23456]=1
G04 F1
$tc_tp3[23466]=1
G04 F1
$tc_tp3[83765]=1
G04 F1
$tc_tp3[93484]=1
G04 F1
m30
wäre dankbar, wenn einer was weiss.
schönes wochenende
holger

Bild

Betrifft: AW: zeilen einfügen
von: Harald E
Geschrieben am: 04.03.2005 08:29:13
Moin Holger,
meinst Du sowas ?
Ist dann noch anzupassen.
For i = 4 To 30 Step 2
Cells(i, 1).Value = "G04 F1"
Gruß
Harald
Bild

Betrifft: AW: zeilen einfügen
von: huelgueuer
Geschrieben am: 04.03.2005 08:45:35
hallo harald
dank dir erstmal. zu meinem "level" excel gut, vba geht so gerade.
wenn ich das laufen lasse schreibt er mir einmal in zeile 32 ein G04F1.
ich möchte in zeile 2 anfangen und die spalte A durchgehen bis M30. dann soll schluss sein.
lg
holger
Bild

Betrifft: AW: zeilen einfügen
von: Harald E
Geschrieben am: 04.03.2005 08:59:49
Hi Holger,
hatte next i nicht mitkopiert. Bei deiner Levelangabe schien das überflüssig.
(Naja, die angebotenen Levelabstufungen sind auch eher suboptimal ;-> )

Sub test()
For i = 2 To 30 Step 2
Cells(i, 1).Value = "G04 F1"
Next i
End Sub

Also das läuft bei mir fehlerfrei. Von 2 bis 30 in jeder zweiten Zelle von Spalte A.
Gruß
Harald
P.S.: Bin damit auch am Ende meines Latein (Level: gerademal dem Rekorder entwachsen)
Bild

Betrifft: AW: zeilen einfügen
von: huelgueuer
Geschrieben am: 04.03.2005 09:11:54
hallo harald
ich bin gerade dabei dem rekorder zu entwachsen. :-)
es funktioniert fast. nur er überschreibt jede 2. zeile mit dem neuem inhalt. das soll er nicht machen. und er soll bei zeile m30 aufhören.
lg
holger
Bild

Betrifft: AW: zeilen einfügen
von: Matthias G
Geschrieben am: 04.03.2005 09:39:44
Hallo Holger,
Beispiel für Spalte A:
Sub test()
Dim lz As Range, i As Long
Set lz = Range("A:A").Find("m30")
If lz Is Nothing Then MsgBox "m30 nicht gefunden!": Exit Sub
For i = lz.Row To 2 Step -1
    Rows(i).Insert
    Cells(i, 1) = "G04 F1"
Next i
End Sub
Gruß Matthias
Bild

Betrifft: schäm
von: Harald E
Geschrieben am: 04.03.2005 09:53:12
Hallo Matthias,
prima Lösung.
...und ich trag bei Level wieder Rekorder ein.
Nette Grüße
Harald
Bild

Betrifft: AW: zeilen einfügen
von: Harald E
Geschrieben am: 04.03.2005 09:44:20
Grrrrrr..hätte besser lesen sollen. Mein Fehler. Allerdings ist dies auch nur zum weiterbasteln ;-)) nunja, besser als nix.

Sub test()
For z = 2 To 30 Step 1
Cells(z, 1).Insert shift:=xlDown
z = z + 1
Next z
For i = 2 To 30 Step 2
Cells(i, 1).Value = "G04 F1"
Next i
End Sub

Hoffe es hilft
harald
Bild

Betrifft: AW: zeilen einfügen
von: huelgueuer
Geschrieben am: 04.03.2005 13:23:48
hallo Matthias, hallo harald
Matthias seine lösung funktioniert sehr gut. deine harald geht nun auch, aber er macht nach dem m30 weiter. da die spaltenlänge von 3 bis 150 zeilen variiert, ist die lösung mit dem .find ("m30") ein wenig sauberer.
auf alle fälle vielen dank euch beiden.
schönes wochenende
holger
 Bild

Beiträge aus den Excel-Beispielen zum Thema "zeilen einfügen"