Office: Funktion für Leerzeile

Hallo,

gibt es eine Funktion die man anwenden kann, um eine Tabelle so umzugestallten, dass das Programm automatisch nach jeder Zeile eine Leerzeile lässt :?:

Ist ziemlich zeitintensiv bei 100 gefüllten Zeilen jedesmal eine Leerzeile dazwischen einzufügen. :-(

Danke :mrgreen:

MfG

Christian

 

Moin!
Wofür denn eine Leerzeile :-?
Verändere doch einfach für die gesamte Tabelle die Zeilenhöhe und richte den Text "oben" aus ;-)

 

Moin,

danke für den Tip :mrgreen:

Nein das ist nicht was ich will. Ich ziehe Daten aus einen Programm. Eine normale Tabelle, aber für die weitere Verarbeitung muss die Tabelle wie folgt aussehen.

blablabla
Leerzeile
blablabla
Leerzeile
blablabla
usw.

und jedesmal Zeile anklicken und Zeile Einfügen ist echt blöd.

Gibt es da nicht was mit Makros oder so :?:


THX

 

Moin!
Ok, verstanden was du willst!
Ja, die Idee mit dem Makro ist gut und funzt auch! Aber Du willst es ja automatisiert haben, oder?
Dann wirst Du wohl VB programmieren müssen ;-)

 

Damit kennen ich mich nicht wirklich mit aus.

Kannst du mir ein Tip geben wo ich mich da informieren kann :?:

Weil würde die Arbeit echt erleichtern, da ich das regelmäßig machen muss :evil:

:mrgreen:

 

ich schau mich mal um, ob es da eine Lösung gibt ;-)

 

Vielleicht eine Lösung:

dazu gibt es hinter der Tabelle mit den Daten das Worksheet_Change-Ereignis. welches nach der Eingabe das Sortieren erledigen kann. Dazu wird dann die Tabelle entsprechend der Vorgabe sortiert, die Anzahl der Zellen festgestellt und anschließend von unten her überprüft, ob der Wert des Datums übereinstimmend ist, ansonsten wird eine Leerzeile eingefügt. Auf Dein Beispiel umgesetzt (in A steht immer nur das Datum, was benutzerdefniert verändert wird) könnte das wie folgt aussehen (Veränderung wird nur über die Spalte D hervorgerufen):

Code:
Optionen:

Code:

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim lngCounter As Long
If Target.Column = 4 Then
  ActiveSheet.UsedRange.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
      , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:= _
      False, Orientation:=xlTopToBottom
  Application.EnableEvents = False
  For lngCounter = Range("a1").End(xlDown).Row To 3 Step -1
    If Cells(lngCounter - 1, 1).Value <> Cells(lngCounter, 1).Value Then
      Rows(lngCounter).Insert
    End If
  Next lngCounter
  Application.EnableEvents = True
End If
End Sub

 

danke,

sehr nett.

Allerdings kenne ich mich damit nicht aus und weiß nicht wie ich das anwenden soll.

Trotzdem danke

 

Wenn ich das kopiert habe, muss ich dann noch was ändern?

Und wie starte ich das?

THX