Zeile in Dynamische Tabelle unten einfüg
20.02.2021 00:18:23
Sahra
ich benötige mal wieder eure Hilfe!
Per Button sollen alle Zeilen mit "Ja" auf ein anderes Tabellenblatt, untereinander übertragen werden.
Das hat auch super funktioniert. Allerdings möchte ich auf diesem Blatt nun eine Dynamische Tabelle haben und nun die Zeilen dahin untereinander übertragen. Der übertrag funktioniert, allerdings überschreibt er die Zeilen jetzt und schreibt sie nicht mehr untereinander. Kann mir jemand helfen Bitte?
Private Sub Schaltfläche7_Klicken()
Dim Antwort As VbMsgBoxResult
Dim Meldung As String
'MsgBox als PDF speichern?
Meldung = "Als PDF speichern?"
Antwort = MsgBox(Meldung, vbYesNo + vbQuestion, "VBA-Tutorial")
If Antwort = vbYes Then
On Error Resume Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Else
MsgBox "abgelegt"
End If
'MSGBOX Übertrag?
If MsgBox("Erledigte Aufgaben werden übertragen, das Formular wird geleert!", vbOKCancel, "Ü _
bertrag starten?") = vbOK Then
'Wenn ok dann übertrag
Dim rngC As Range, rngA As Range
For Each rngC In Range("H2", Cells(Rows.Count, 8).End(xlUp)) 'Reihe in der ja steht (A=1 B=2) _
_
If rngC.Row > 1 And UCase(rngC.Value) = "JA" Then
If rngA Is Nothing Then Set rngA = rngC Else Set rngA = Union(rngA, rngC)
End If
Next rngC
If Not rngA Is Nothing Then
With Worksheets("Werkstattbuch").Range("Tabelle7[Nr.]") ' Zieltabelle
rngA.EntireRow.Copy
.Cells(.Rows.Count, 8).End(xlUp).Offset(1, -7).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'rngA.EntireRow.Delete