Microsoft Excel

Herbers Excel/VBA-Archiv

Ansprechen von eingefügten Zeilen

Betrifft: Ansprechen von eingefügten Zeilen von: Nicole
Geschrieben am: 01.09.2004 08:45:02

Guten Morgen!

Wie kann ich denn in diese Zeilen die ich da einfüge Abschnitttrennlinien (-------------) eingeben?
Merci für die Hilfe!

Sub Abstandszeile_einfügen()
Dim k As Integer
For k = 1 To Range("A65536").End(xlUp).Row
    If Range("A" & k).Value = "Other data=" Then Rows(k + 1).Insert
    If Range("A" & k).Value = "name=" Then Rows(k + 1).Insert
Next k

End Sub

  


Betrifft: AW: Ansprechen von eingefügten Zeilen von: EtoPHG
Geschrieben am: 01.09.2004 09:48:16

Hallo Nicole

Vielleicht so ?

Sub Abstandszeile_einfügen()
Dim k As Integer
   
    For k = 1 To Range("A65536").End(xlUp).Row
        If Range("A" & k).Value = "Other data=" Or Range("A" & k).Value = "name=" Then
            Rows(k + 1).Insert
            ActiveSheet.HPageBreaks.Add ActiveSheet.Range(Cells(k + 1, 1).Address)
        End If
    Next k
End Sub




Gruss Hansueli


  


Betrifft: AW: Ansprechen von eingefügten Zeilen von: Nicole
Geschrieben am: 01.09.2004 09:56:20

Super, Danke!

Was mach ich, wenn ich in diese eigefügten Zeilen ein Wort eingeben möchte?


  


Betrifft: AW: Ansprechen von eingefügten Zeilen von: EtopHG
Geschrieben am: 01.09.2004 10:00:40

Hallo Nicole

Sub Abstandszeile_einfügen()
Dim k As Integer
   
    For k = 1 To Range("A65536").End(xlUp).Row
        If Range("A" & k).Value = "Other data=" Or Range("A" & k).Value = "name=" Then
            Rows(k + 1).Insert
            Cells(k + 1, 1).Value = "Dein Wort"
            ActiveSheet.HPageBreaks.Add ActiveSheet.Range(Cells(k + 1, 1).Address)
        End If
    Next k

        
End Sub


Gruss Hansueli


  


Betrifft: AW: Ansprechen von eingefügten Zeilen von: Nicole
Geschrieben am: 01.09.2004 10:01:32

Habs schliesslich grad selber noch hingekriegt.............
Gruss!

Dim k As Integer

For k = 1 To Range("A65536").End(xlUp).Row
If Range("A" & k).Value = "Other data=" Or Range("A" & k).Value = "name=" Then
Rows(k + 1).Insert
Range(Cells(k + 1, 1).Address).Select
ActiveCell.FormulaR1C1 = "Test"
End If
Next k


 

Beiträge aus den Excel-Beispielen zum Thema "Ansprechen von eingefügten Zeilen"