Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1632to1636
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
1632to1636
1632to1636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile einfügen

Zeile einfügen
04.07.2018 16:20:20
Matthias
Hallo zusammen,
ich benötige mal wieder eure Hilfe.
Wenn ich eine neue Zeile einfüge soll in dieser die Formatierung der vorherigen Zeile übernommen werden bzw. die hinterlegten Formeln.
Ich habe mir folgendes überlegt:
Sub Einfügen()
Dim Zeilenzahl As Integer
'Zelle auswählen
Range("A1").Select
'Zeilenzaehlen
Zeilenzahl = Selection.CurrentRegion.Rows.Count
'Formatiereung kopieren
Sheets("Tabelle1").Rows(Zeilenzahl).Copy
'Formatierung einfügen
Sheets("Tabelle1").Rows(Zeilenzahl + 1).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End 


Sub
... funktioniert soweit
ich muss das makro nur immer manuel auslösen. Wie kann ich das automatisieren?
Also immer wenn ich eine Zeile einfüge.
Gruß Matthias

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile einfügen
04.07.2018 16:49:15
Hajo_Zi
Hallo Matthias,
das ist dann eine Endlos Schleife, da Du mit dem Code eine Zeile einfügst.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: Zeile einfügen
04.07.2018 17:23:36
Torsten
geht ganz einfach mit einer dynamischen Tabelle
AW: Zeile einfügen
07.07.2018 19:29:02
Matthias
So simppel wie einfach!!!! Danke für den Tipp mit der dynamischen Tabelle.
Gruß Matthias
AW: Zeile einfügen
06.07.2018 19:33:34
Matthias
Hallo Hajo,
sorry das ich mich jetzt erst melde.
Nach dienem Hinweis habe ich jetzt meinen Code erweitert.
Ich finde ihn etwas umständlich.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Zeilenzahl As Integer
'Spalte begrenzen
Select Case Target.Column
Case 1
If MsgBox("Soll eine zeile eingefügt werden?", vbYesNo) = vbYes Then
ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'Zelle auswählen
Range("A1").Select
'Zeilenzaehlen
Zeilenzahl = Selection.CurrentRegion.Rows.Count
If Cells(Zeilenzahl, 1).Value  "END" Then
'Formatiereung kopieren
Sheets("Tabelle1").Rows(Zeilenzahl).Copy
'Formatierung einfügen
Sheets("Tabelle1").Rows(Zeilenzahl + 1).PasteSpecial Paste:=xlPasteFormulas
'Zellen Inhalt löschen
Sheets("Tabelle1").Rows(Zeilenzahl + 1).SpecialCells(xlCellTypeConstants). _
ClearContents
Application.CutCopyMode = False
End If
Else
Exit Sub
End If
End Select
End Sub

Hast du vieleicht eine Idee wie ich es simpler umsetzen kann?
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige