Untereinander hinzufügen
10.09.2020 07:51:25
IceTea
hab vor Kurzem ein Makro gefunden was ganz gut zu meiner Arbeit gepasst hat. Allerdings würde ich euch gern um was kleines bitten. Grundsätzlich werden 4 Werte eingegeben und diese in einer Tabelle auf einem anderen Datenblatt hinzugefügt. Leider wird bei einer erneuten Eingabe der vorherige Eintrag gelöscht/ersetzt. Hat jemand von euch die Lösung wie ich die Eintragungen untereinander ohne die Löschung des vorherigen hinkriegen kann? Anbei der VBA-Code:
Public Sub Hinzufügen()
Dim lng_zeile As Long
Dim obj_wks_quelle As Worksheet
Dim obj_wks_ziel As Worksheet
If MsgBox("Haben Sie alle Pflichtfelder ausgefüllt?", vbYesNo) = vbYes Then
Set obj_wks_quelle = Worksheets("Archiv")
Set obj_wks_ziel = Worksheets("Liste")
With obj_wks_ziel
lng_zeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lng_zeile, 3) = obj_wks_quelle.Range("O10") 'Nr.
.Cells(lng_zeile, 4) = obj_wks_quelle.Range("R10") 'Datum
.Cells(lng_zeile, 5) = obj_wks_quelle.Range("O12") 'Von
.Cells(lng_zeile, 6) = obj_wks_quelle.Range("O14") 'An
End With
MsgBox "Ordner wurde ausgeliehen"
End If
End Sub
Vielen Dank im Voraus :)
Liebe Grüße und bleibt Gesund