myGully.com Boerse.SH - BOERSE.AM - BOERSE.IO - BOERSE.IM Boerse.BZ .TO Nachfolger
Zurück   myGully.com > Computer & Technik > Windows & Software
Seite neu laden

Excel Zeile automatisch eingeführt

Willkommen

myGully

Links

Forum

 
Antwort
Themen-Optionen Ansicht
Ungelesen 20.03.13, 12:55   #1
joachim71
Anfänger
 
Registriert seit: Apr 2009
Beiträge: 34
Bedankt: 16
joachim71 ist noch neu hier! | 0 Respekt Punkte
Standard Excel Zeile automatisch eingeführt

Hallo,

Habe da eine Frage zu Excel 2007.

Gibt es eine Funktion wo man jede zweite Zeile markieren kann automatisch und nicht von Hand?
Den es soll nach jede zweiten Zeile eine neue leere Zeile eingeführt werden automatisch.
Es handelt sich um 1235 Zeilen.

danke
joachim71 ist offline   Mit Zitat antworten
Ungelesen 20.03.13, 16:10   #2
eitch100
Agnostiker
 
Benutzerbild von eitch100
 
Registriert seit: Dec 2009
Beiträge: 4.435
Bedankt: 4.856
eitch100 leckt gerne myGully Deckel in der Kanalisation! | 1162455674 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1162455674 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1162455674 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1162455674 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1162455674 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1162455674 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1162455674 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1162455674 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1162455674 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1162455674 Respekt Punkteeitch100 leckt gerne myGully Deckel in der Kanalisation! | 1162455674 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
Ungelesen 21.03.13, 07:35   #3
joachim71
Anfänger
 
Registriert seit: Apr 2009
Beiträge: 34
Bedankt: 16
joachim71 ist noch neu hier! | 0 Respekt Punkte
Standard

danke "eitch100"
Genau so ging es.
joachim71 ist offline   Mit Zitat antworten
Antwort


Forumregeln
Du kannst keine neue Themen eröffnen
Du kannst keine Antworten verfassen
Du kannst keine Anhänge posten
Du kannst nicht deine Beiträge editieren

BB code is An
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist Aus.

Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:30 Uhr.


Sitemap

().