Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Untereinander hinzufügen

Betrifft: Untereinander hinzufügen von: IceTea
Geschrieben am: 10.09.2020 07:51:25

Moin Leute,

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

Betrifft: AW: Untereinander hinzufügen
von: ChrisL
Geschrieben am: 10.09.2020 07:56:37

Hi

Versuch mal...
lng_zeile = .Cells(Rows.Count, 3).End(xlUp).Row + 1

cu
Chris

Betrifft: AW: Untereinander hinzufügen
von: IceTea
Geschrieben am: 10.09.2020 08:01:37

Hallo Chris,

vielen Dank für deine schnelle Rückmeldung. Hat geklappt danke dir!
Kann man hier irgendwo Bewertungen abgeben? Wenn ja hau ich eine für dich raus.

Danke!!

Betrifft: AW: Untereinander hinzufügen
von: ChrisL
Geschrieben am: 10.09.2020 08:08:13

Hi

Danke für die Rückmeldung. Passt schon.

cu
Chris

Beiträge aus dem Excel-Forum zum Thema "Untereinander hinzufügen"