Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon dvdh vom 24.01.2020, 14:55 Options

Zwischenzeilen einfuegen

hallo zusammen,
ich habe das folgende problem, dass ich eine datei habe mit ca. 500 untereinander folgend eintragen.
ich moechte nun zwischen jede zeile eine leerzeile einfuegen. dies ist bei 500 befuellten zeilen haendisch eine menge arbeit. gibt es hierzu einen kleinen trick?

danke und gruss

Antwort schreiben

Antwort 1 von rainberg vom 24.01.2020, 15:43 OptionsLösung

Hallo,

folgendes Makro fügt ab Zeile 2 aufsteigend jede zweite Zeile eine Leerzeile ein.

Option Explicit

Sub einfuegen()
   Dim intI As Integer
   Application.ScreenUpdating = False
   For intI = 2 To 500
      If intI Mod 2 = 0 Then
         Rows(intI).Insert Shift:=xlDown
      End If
   Next
   Application.ScreenUpdating = True
End Sub

Gruß
Rainer

Antwort 2 von dvdh vom 25.01.2020, 10:29 Options

hallo rainberg,

super und vielen dank. hat ohne probleme geklappt.

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken