Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzeilen einfügen

Leerzeilen einfügen
20.01.2005 18:46:33
Andreas
Hallo,
ich habe folgendes Problem.
Im Blatt "Personaldaten" stehen
in Spalte A bis E (A6-E120) in einer Tabelle ca. 100 Datensätze (Pers.Nr., Nr., Gruppe, Name und Vorname)
Nun sollen diese Datensätze in das Tabellenblatt "Umformer" übertragen werden wobei zwischen den Datensätzen jeweils eine Leerzeile eingefügt werden soll.
Vielen Dank für eure Hilfe

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeilen einfügen
20.01.2005 20:37:19
Cardexperte
Hello Andreas, vielleicht so:

Sub Makro1()
zeilenanzahl = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row - 5
k = 0
For i = 1 To 6
For j = 6 To zeilenanzahl
wert = Cells(j, i).Value
Sheets("Umformer").Cells(j + k - 5, i).Value = wert
k = k + 1
Next j
k = 0
Next i
End Sub

AW: Leerzeilen einfügen
22.01.2005 06:34:16
Andreas
Hallo,
sorry das ich erst jetzt antworte, aber meine ISDN-Karte hatte den Geist aufgegeben.
Dein Makro ist genial, DANKE
Gruß Andreas
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige