Einzelnen Beitrag anzeigen
Ungelesen 20.03.13, 16:10   #2
eitch100
Agnostiker
 
Benutzerbild von eitch100
 
Registriert seit: Dec 2009
Beiträge: 4.451
Bedankt: 4.866
eitch100 leckt gerne myGully Deckel in der Kanalisation! | 1176772568 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1176772568 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1176772568 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1176772568 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1176772568 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1176772568 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1176772568 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1176772568 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1176772568 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1176772568 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1176772568 Respekt Punkte
Standard

Hi...
solch eine Funktion kenne ich nicht, geht aber mit nem VBA Code...

Leg dir auf die Tabelle einen CommandButton (Menü Entwicklertools--Einfügen---Active X Steuerelement--Befehlsschaltfläche)

Darauf einen Doppelklick und folgenden Code einfügen...
Code:
Private Sub CommandButton1_Click()
Dim i, k, l
k = ActiveCell.Row 'aktive Zeile
l = 1235 'Anzahl Einfügungen
For i = 1 To l
    Rows(k).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    k = k + 2
Next
End Sub
Dann markierst du eine Zelle in der Zeile, wo die Einfügungen beginnen sollen und klickst auf den CommandButton... (Der Entwurfsmodus, der sich auch im Menü Entwicklertools befindet, muss deaktiviert sein)

Tschö
__________________
Der Klügere gibt nach... deshalb regieren die Dummen die Welt
eitch100 ist offline   Mit Zitat antworten