Tabelle mit mehrere Worksheet_Change(ByVal Target As Range)

Forumthread: Tabelle mit mehrere Worksheet_Change(ByVal Target As Range)
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Tabelle mit mehrere Worksheet_Change(ByVal Target As Range)

02.10.2025 17:16:56

derBaer

Hallo Profis
Ich habe eine Datei hochgeladen:
https://www.herber.de/bbs/user/179105.xlsm

Nach eingabe von der Zelle F1 kommt folgender Code zum Einsatz:



Private Sub Worksheet_Change(ByVal Target As Range)





Const lMax As Long = 100 'Begrenzung der Wiederholungen

If Target.Address(0, 0) = "F2" Then

    If Range("F1") = "" Then

        MsgBox "Bitte erst Artikelnummer angeben.", vbExclamation, "Hinweis"

        Exit Sub

    End If

    If IsNumeric(Target) Then

        If Target = lMax And Target > 0 Then

            Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(CLng(Target)).Value = Range("F1")

        Else

            MsgBox "Anzahl ist entweder negativ oder übersteigt das vorgegebene Maximum von " & lMax & " Wiederholungen.", vbExclamation, "Hinweis"

        End If

    Else

        MsgBox "Anzahl ist nicht numerisch.", vbExclamation, "Hinweis"

    End If

End If

     

End Sub

Ich möchte, dass nach dem oberen Code, der Cursor von F1 nach F2 springt.
Nach Eingabe bei F2 der Cursor wieder auf F1 springt.

Kann mir jemand helfen?
Danke zum Voraus für Deine Hilfe.
Urs

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabelle mit mehrere Worksheet_Change(ByVal Target As Range)

02.10.2025 17:52:32

RPP63
Hier mein Makro

02.10.2025 17:58:42

RPP63

AW: Tabelle mit mehrere Worksheet_Change(ByVal Target As Range)

02.10.2025 17:52:32

RPP63

Moin!
Du musst doch nur vor dem letzten End If folgendes eintragen:

Range("F1").Select

Ich würde das allerdings anders angehen.
Erstellen Dir eine "Wiederholungs-Tabelle":

	A	B
1	Art_Nr	Anzahl_Wdhlg.
2	1111	13
3	2222	10
4	3333	20
5	4444	11
6	5555	19

Dann lässt Du ein allgemeines Makro über die Zeilen laufen und stapelst die Wiederholungen.
Ist jedenfalls weniger fehlerbehaftet als Dein Ereignismakro.

Gruß Ralf

Hier mein Makro

02.10.2025 17:58:42

RPP63

Sub Wdhlg()

Dim i&

Cells(1, "F") = "Liste"

For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row

  Cells(Rows.Count, "F").End(xlUp).Offset(1).Resize(Cells(i, "B")) = _

    Cells(i, "A")

Next

End Sub

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!