Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
420to424
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
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile in makierten Bereich einfügen

Zeile in makierten Bereich einfügen
floh
Guten Abend,
was ist hier falsch ?

Selection.EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveSheet.Paste
Rows(26).Copy
Sinn :
1. aus einem makierten Zellbereich (variabel) soll ein makierter
Zeilenbereich werden (Bsp: aus H40:I45 wird durch das VBA-Prog
Zeile 40:45 makiert)
2. es werden in den makierten Bereich jeweils die Zeile 26 eingefügt
(nicht nur einfach rüberkopiert).
(Zeile 26 ist ausgeblendet, die eingefügten Zeilen sind eingeblendet)
wer kann helfen?
AW: Zeile in makierten Bereich einfügen
Hans
Hallo,
so ganz sicher bin ich nicht, Dich richtig verstanden zu haben. Wenn es darum geht, in die Zeile oberhalb eines markierten Zellbereiches, der unterhalb von Zeile 26 liegt, die Inhalte von Zeile 26 zu kopieren, wie folgt:

Sub Einfuegen()
Rows(Selection.Row).Insert
Rows(26).Copy Rows(Selection.Row)
Application.CutCopyMode = False
End Sub

gruss hans
AW: Zeile in makierten Bereich einfügen
floh
Hallo Hans ,
leider funktioniert das Makro nicht wie gewünscht.
die Zeile 26 wird ausgeblendet eingefügt.
und sie wird nur einmal eingefügt.
also für das oben genannte Bsp :
anstatt eingeblendet in Zeile 40 41 42 43 44 45
wird es ausgeblendet in Zeile 40 eingefügt.
Kanst Du weiterhelfen?
Gruß floh
Anzeige
AW: Zeile in makierten Bereich einfügen
WernerB.
Hallo Floh,
entspricht dieser Vorschlag Deinen Wünschen?

Sub Einfuegen()
Dim Bereich As String, lo As String, ru As String
Dim zo As Long, zu As Long
Application.ScreenUpdating = False
Bereich = Selection.Address(False, False)
lo = Left(Bereich, InStr(Bereich, ":") - 1)             'links oben
ru = Right(Bereich, Len(Bereich) - InStr(Bereich, ":")) 'rechts unten
zo = Range(lo).Row                                      'Zeile oben
zu = Range(ru).Row                                      'Zeile unten
Rows(zo & ":" & zu).Insert Shift:=xlDown
Range("A26:IV26").Copy
Range("A" & zo & ":IV" & zu).PasteSpecial Paste:=xlAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows(zo & ":" & zu).EntireRow.Hidden = False
Range(Bereich).Select
Application.ScreenUpdating = False
End Sub

Viel Erfolg wünscht
WernerB.
Anzeige
AW: Zeile in makierten Bereich einfügen
02.05.2004 21:19:11
floh
Hallo Werner
schau doch bitte mal hier rein:
https://www.herber.de/bbs/user/5935.xls
Dein Code funktioniert irgend wie nicht
Gruß floh
AW: Zeile in makierten Bereich einfügen
03.05.2004 11:15:24
floh
Hallo Werner,
Hans hat mein Frage schon beantwortet.
aber auch Dir besten Dank
Gruss floh
AW: Zeile in makierten Bereich einfügen
Hans
... ich hatte auch vermutet, Dich nicht ganz verstanden zu haben:

Sub Einfuegen()
Selection.EntireRow.Insert
Rows(26).Copy Selection.EntireRow
Selection.EntireRow.Hidden = False
Application.CutCopyMode = False
End Sub

gruss hans
Anzeige
AW: Zeile in makierten Bereich einfügen
03.05.2004 11:11:47
floh
Hallo Hans,
das war es was ich gesucht habe.
Aller Besten Dank.
Gruss Floh

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige