ich bräuchte eure Hilfe. Ich bin gerade ganz am Anfang VBA für die Praxisanwendung zu lernen und versuche verschiedene Aufgaben zu bewältigen.
Mein folgendes Problem ist: Ich möchte eine Tabelle bestehend aus Postleitzahlen so umformen, dass in der Zelle neben der jeweiligen PLZ die Anzahl der Kunden in dieser angezeigt werden. Als Beispiel wie die Tabelle aussieht:
PLZ eingeben: [TextBox1] [CommandButton1]
PLZ Anzahl
51598 0
53424 0
53426 0
53426 0
53426 0
53474 0
53489 0
53498 0
53498 0
53498 0
53501 0
53505 0
Wenn ich also in die TextBox eine gültige PLZ eingebe soll die Anzahl, eine Zelle nebenan, +1 _ gerechnet werden. Ich habe es nun mit folgendem Code versucht:
Private Sub CommandButton1_Click()
Dim Zeile As Variant
Dim PLZ As String
Dim Anzahl As Double
PLZ = TextBox1.Text
Zeile = Application.Match(PLZ, Range("A2:A3759"))
Anzahl = Tabelle1.Cells(Zeile, 2)
If PLZ = Zeile Then
Range(Anzahl).Value = Range(Anzahl).Value + 1
End If
End Sub
Hier wird mir die Fehlermeldung: "Laufzeitfehler 13: Typen unverträglich" ausgegeben. Dies liegt wahrscheinlich daran dass ich Variablen falsch deklariert habe. Jedoch bin ich absoluter neuling auf dem Gebiet und verstehe nicht welcher der Variablen falsch deklariert sein könnte und ob die Funktion so wie ich sie erstellt habe überhaupt das tut was sie soll.
Danke schonmal im Vorraus für die Hilfe!
Mfg David