Excel Macro - Zeilen einfügen?

SR530 · 05.02.2007

Code:

Sub LeerZeilenEinfügen()
Dim i As Long
For i = 1 To Range("A65536").End(xlUp).Row
    If Range("A" & i).Value = "Herrn" Then Rows(i + 1).Insert
Next i
End Sub

Obiges "gefundenes" Macro fügt mir in Spalte A eine Zeile nach dem Begriff "Herrn" ein. Ich brauche diese Zeile allerdings davor.

Gruß SR30

PS: Ich habe überhaupt keinen Plan, von dem was ich da tue ...

WhiskeyCola16 · 05.02.2007

Code:

Sub LeerZeilenEinfuegen()
    Dim i As Long
    For i = Range("A65536").End(xlUp).Row To 1 Step -1
        If Range("A" & i).Value = "Herrn" Then Rows(i).Insert
    Next i
End Sub

büddesehr

SR530 · 05.02.2007

Erstmal Danke für deine Mühe, aber so wirklich klappt das nicht. Es wird vor "Herrn" in Zeile 76 eine Leerzeile eingefügt.

Noch mal zur Erklärung meines Problems. Ich habe hier einen Haufen Adressdaten alle schön in einer Spalte untereinander. Um später Transponieren zu können, brauche ich vor jedem "Herrn" eine Leerzeile. "Herrn" kommt natürlich öfter vor.

Gruß SR530

Edit: Nicht nur in Zeile 76 sondern auch in 112, 154, 181 usw. ....

WhiskeyCola16 · 05.02.2007

bitte gerne.
aber der code, so wie ich ihn gepostet habe, macht immer wenn in spalte "A" ein "Herrn" vorkommt, davor eine Leerzeile... vor jedem herrn... bei mir funktioniert das ohne probleme...

SR530 · 05.02.2007

Hast recht, das funktioniert einwandfrei ... :ja:

Nur hast du nicht mit meiner unzureichenden Aufgabenstellung gerechnet bzw. arbeitet mein gefundenes Macro auch nicht so wie es soll ...

Steht "Herrn" allein in einer Zelle, funzt das wunderbar, nur in den meisten Fällen steht in der Zelle noch der Vorname und Name drin. Dann gehts nicht.

Gibts dfür vielleicht auch noch eine Lösung? ... *kopfeinziehundtiefduck

Gruß SR530

WhiskeyCola16 · 05.02.2007

Code:

Sub LeerZeilenEinfuegen()
    Dim i As Long
    For i = Range("A65536").End(xlUp).Row To 1 Step -1
        If Range("A" & i).Value Like "Herrn*" Then Rows(i).Insert
    Next i
End Sub

meinst so?

SR530 · 05.02.2007

Bestimmt wirds das sein. Werde es morgen testen. Aber ganz so blöd bin ich ja nun auch nicht. Auf das Sternchen bin ich noch gekommen. Nur zu dem "like" hat nun wieder nicht gereicht ... :cool:

Danke für deine Hilfe ... :goil:

Gruß SR530

Quellcode · 05.02.2007

Um einen Befehl herauszufinden, empfehle ich dir, ein Makro aufzuzeichnen, indem du das machst was du auch vor hast.

Dann wandelst du den fertigen Code auf deine Bedürfnisse um et voilà du hast es geschafft.

----

Alles Gute

SR530 · 06.02.2007

WhiskeyCola16 schrieb:

Code:

Sub LeerZeilenEinfuegen()
    Dim i As Long
    For i = Range("A65536").End(xlUp).Row To 1 Step -1
        If Range("A" & i).Value Like "Herrn*" Then Rows(i).Insert
    Next i
End Sub

meinst so?

Ja, so funktioniert das so wie es soll ... :goil:

Quellcode schrieb:
Um einen Befehl herauszufinden, empfehle ich dir, ein Makro aufzuzeichnen, indem du das machst was du auch vor hast.

Dann wandelst du den fertigen Code auf deine Bedürfnisse um et voilà du hast es geschafft.

Das Aufzeichnen von Macros stösst doch sehr schnell an seine Grenzen. Ein Laie wie ich, kann selbst mit dem einfachsten Code so gut wie nichts anfangen. Das ein oder andere kann man wohl schon deuten, aber viel mehr auch nicht.
Trotzdem Danke für deine Hilfe.

Gruß SR530

WhiskeyCola16 · 06.02.2007

SR530 schrieb:
Ja, so funktioniert das so wie es soll ...

Das Aufzeichnen von Macros stösst doch sehr schnell an seine Grenzen. Ein Laie wie ich, kann selbst mit dem einfachsten Code so gut wie nichts anfangen. Das ein oder andere kann man wohl schon deuten, aber viel mehr auch nicht.
Trotzdem Danke für deine Hilfe.

Gruß SR530

bitte, gern geschehen

ausserdem "erkennt" office nicht immer richtig, was genau du eigentlich willst, da vieles manchmal doch sehr individuell bzw. kontextbezogen ist. versuchen kann mans aber immer.
ansonsten einfach wieder melden

Excel Macro - Zeilen einfügen?

SR530

WhiskeyCola16

SR530

WhiskeyCola16

SR530

WhiskeyCola16

SR530

Quellcode

SR530

WhiskeyCola16

Excel Macro - Zeilen einfügen?

ANGEBOTE & SPONSOREN

Neueste Beiträge

Statistik des Forums