Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeile unterhalb nochmals einfügen

Zeile unterhalb nochmals einfügen
24.04.2017 11:09:16
Thomas
Hallo ihr Excel-Profis,
ich benötige mal eure Hilfe.
Hab folgendes was ich in Excel gerne realisieren würde.
Hab eine Tabelle mit mehreren Spalten, In Spalte H ist eine Dropbox mit drei Auswahlkriterien. Standardmäßig erscheint da immer "Standart" beim befühlen der Spalte F. Wenn ih dort dann"Standart mit Korrektur" auswähle soll Excel mir die Zeile komplett eine Zeile Unterhalb kopieren und einfügen und in Spalte H dann "Korrektur" eintragen. Beispiel ist angefügt. Ich hoffe das geht.
Danke schonmal für eure Hilfe.
Gruß Thomas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile unterhalb nochmals einfügen
24.04.2017 12:00:02
yummi
Hallo Thomas,
in den Code deines Tabellenblattes folgendes rein:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
Select Case traget.Value
'Case "Standard":
'nichts tun
Case "Standard mit Korrektur"
ActiveSheet.Rows(Target.Row & ":" & Target.Row).Copy
ActiveSheet.Rows(Target.Row + 1 & ":" & Target.Row + 1).Insert Shift:=xlDown
Application.CutCopyMode = False
Case Else
MsgBox "undefinierter WErt"
End Select
End If
End Sub
Gruß
yummi
Anzeige
AW: Zeile unterhalb nochmals einfügen
24.04.2017 13:32:14
Thomas
Super, danke euch für eure Hilfe.
Das ist genau das was ich brauche.
Gruß Thomas
Gerne u. Danke für die Rückmeldung. o.w.T.
24.04.2017 15:42:09
Werner

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige