Kopieren von Zeilen inkl. Checkbox
04.04.2019 21:29:30
Zeilen
stehe vor folgender, für mich unlösbarer Aufgabe.
Erstmal zum Hintergrund:
Ich habe eine Tabelle wo zuvor etliche Punkte in einer Liste ausgewählt wurden, diese werden dann in die jetztige Tabelle in Spalte A reinkopiert.
Die Spalten B und C, sollen dann mit Datum und dem Firmennamen ausgefüllt werden. Mittels aktivieren der Checkbox in Spalte D wird dann das hinterlegte Tabellenblatt eingeblendet. Mittels CommandButton1 ist es dann möglich, die eingeblendeten Tabellenblätter zu drucken.
Nun das eigentliche Problem:
Ich würde gern mittels Doppelklick auf eine Zeile, eine Zeile darunter einfügen und den Text von oben übernehmen und eine Zahl hinten dran stellen.(z.B. Text -> Text (2)), zusätzlich sollte die Checkbox kopiert werden und der Zellbezug an die neue Zelle angepasst werden. Außerdem sollte das gleichlautende Tabellenblatt kopiert werden und auch so benannt werden.
Hier der bisherige Code:
Private Sub CheckBox1_Click()
Worksheets("Bodenleger").Visible = IIf(CheckBox1, -1, 2)
End Sub
Private Sub CheckBox2_Click()
Worksheets("Maler").Visible = IIf(CheckBox2, -1, 2)
End Sub
Private Sub CommandButton1_Click()
Dim Zelle As Range
Dim chk As Boolean
chk = True
For Each Zelle In Range("D2:D3")
If Zelle.Value Then
Sheets(Zelle.Offset(0, 1).Value).Select chk
chk = False
End If
Next
If chk = False Then ActiveWindow.SelectedSheets.PrintPreview
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Rows(Target.Row).Copy
Rows(Target.Row + 1).Insert Shift:=xlDown
Application.CutCopyMode = False
Cells(Target.Row + 1, Target.Column).Select
End Sub
Im Anhang noch die Beispieldatei.
https://www.herber.de/bbs/user/128926.xlsm
Vielen lieben Dank im Voraus!
Liebe Grüße
Martin