Gruppen
- Top Gruppen
- 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 Orcman vom 10.08.2019, 10:31 Options
Makro - Zeilen einfügen mit Spaltenbegrenzung
Hallo, ich habe ein kleines Problemchen und könnte bis jetzt keine Lösung dafür finden.
In Excel lösche ich Zeilen über ein Makro und füge diese auch wieder hinzu. wie folgt:
Sub ZeileEinfügen_Click()
Rows(ActiveCell.Row).Insert Shift:=xlUp
End Sub
Sub ZeileLoeschen_Click()
Rows(ActiveCell.Row).Delete Shift:=xlUp
End Sub
1. Hierbei wird die ganze Zeile behandelt, ich möchte des diese Zeile jedoch nur z.b. von Spalte B bis K eingefügt wird.
2. eine neue Zeile soll unter die markierte zeile eingefügt werden (nicht oberhalb wie es jetzt ist)
Vielen Dank im Voraus
Mfg
In Excel lösche ich Zeilen über ein Makro und füge diese auch wieder hinzu. wie folgt:
Sub ZeileEinfügen_Click()
Rows(ActiveCell.Row).Insert Shift:=xlUp
End Sub
Sub ZeileLoeschen_Click()
Rows(ActiveCell.Row).Delete Shift:=xlUp
End Sub
1. Hierbei wird die ganze Zeile behandelt, ich möchte des diese Zeile jedoch nur z.b. von Spalte B bis K eingefügt wird.
2. eine neue Zeile soll unter die markierte zeile eingefügt werden (nicht oberhalb wie es jetzt ist)
Vielen Dank im Voraus
Mfg
Antwort 1 von JoeKe vom 10.08.2019, 13:10 Options
Moin,
versuch es mal so:
Sub ZeileEinfügen_Click()
Dim loZeile As Long
loZeile = ActiveCell.Row
Range(Cells(loZeile, 2), Cells(loZeile, 11)).Insert Shift:=xlDown
End Sub
Sub ZeileLoeschen_Click()
Dim loZeile As Long
loZeile = ActiveCell.Row
Range(Cells(loZeile, 2), Cells(loZeile, 11)).Delete Shift:=xlUp
End Sub
Gruß
versuch es mal so:
Sub ZeileEinfügen_Click()
Dim loZeile As Long
loZeile = ActiveCell.Row
Range(Cells(loZeile, 2), Cells(loZeile, 11)).Insert Shift:=xlDown
End Sub
Sub ZeileLoeschen_Click()
Dim loZeile As Long
loZeile = ActiveCell.Row
Range(Cells(loZeile, 2), Cells(loZeile, 11)).Delete Shift:=xlUp
End Sub
Gruß
Antwort 3 von Orcman vom 10.08.2019, 18:49 Options
Aber zu 2tens: das funktioniert immer noch nicht!
Meine Aktive Zeile > führe Makro aus > Zeile wird oberhalb eingefügt (übernimmt das logischerweiße jegliche formatierung der oberen zeile) mhhh.........
ich möchte aber nachdem das Makro ausgeführt wurde die gleiche formatierung wie in der aktiven Zeile
Mfg Orcman
Meine Aktive Zeile > führe Makro aus > Zeile wird oberhalb eingefügt (übernimmt das logischerweiße jegliche formatierung der oberen zeile) mhhh.........
ich möchte aber nachdem das Makro ausgeführt wurde die gleiche formatierung wie in der aktiven Zeile
Mfg Orcman
Antwort 4 von JoeKe vom 11.08.2019, 07:27 Options
Moin,
so:
Sub ZeileEinfügen_Click()
Dim loZeile As Long
loZeile = ActiveCell.Row
Range(Cells(loZeile, 2), Cells(loZeile, 11)).Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromRightOrBelow
End Sub
Gruß
Jöke
so:
Sub ZeileEinfügen_Click()
Dim loZeile As Long
loZeile = ActiveCell.Row
Range(Cells(loZeile, 2), Cells(loZeile, 11)).Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromRightOrBelow
End Sub
Gruß
Jöke
Antwort 6 von Orcman vom 13.08.2019, 18:39 Options
Wie muss der Code lauten wenn ich genau die Zeile die ober/unterhalb mit formatierung und Inhalt haben möchte.
Was muss geändert werden??
Sub ZeileEinfügen_Click()
Dim loZeile As Long
loZeile = ActiveCell.Row
Range(Cells(loZeile, 2), Cells(loZeile, 11)).Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromRightOrBelow
End Sub
Mfg
Was muss geändert werden??
Sub ZeileEinfügen_Click()
Dim loZeile As Long
loZeile = ActiveCell.Row
Range(Cells(loZeile, 2), Cells(loZeile, 11)).Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromRightOrBelow
End Sub
Mfg
Ähnliche Themen
Makros - zweiten Drucker als Symbol in die Symbolleiste einfügen
Mikoop 24.11.2006 - 4092 Hits - 1 Antwort
Makro Zeilen einfügen
Nobody48 25.04.2007 - 143 Hits - 2 Antworten
Zeilen- und Spaltenüberschriften
Peter3011 27.06.2007 - 127 Hits - 3 Antworten
mehrere Zeilen in Excel einfügen
Arnsen1 07.08.2007 - 119 Hits - 1 Antwort
Zeilen einfügen
ala 02.04.2008 - 118 Hits - 8 Antworten
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
