Du wolltest einen Ansatz.... den habe ich dir gegeben...
Aber gut, hier eine fertige Lösung, musst den Code nurnoch in eine Userform mit einem Command Button namens "CommandButton1" und einer Textbox namens "Textbox1" packen... und f5 drücken. (in ein standard Modul kannst du dann noch
sub starten ()
load userform1
userform1.show
end sub
schreiben und dann kannst du das Ganze auch per Button auf dem Arbeitsblatt oder über das "Makros ausführen" Menü starten...
Hier der Code der in die Userform muss (in der userform mit F7 aufrufen).
Option Explicit
Private Sub CommandButton1_Click()
Dim rng As Range, AV, R&, C&, LR&, S$
Dim bereitsVorhanden As Boolean
Dim tSh As Worksheet
'set
S = TextBox1.Text
Set tSh = ActiveSheet
With tSh
LR = .Cells(Rows.Count, 1).End(xlUp).Row
Set rng = .Range(.Cells(1, 1), .Cells(LR, 2))
End With
AV = rng.Value
'nach vorhandenen suchen
For R = 1 To UBound(AV)
For C = 1 To UBound(AV, 2)
If AV(R, C) = S Then
tSh.Cells(R, 2) = AV(R, 2) + 1
bereitsVorhanden = True
End If
Next
Next
'neue einfügen
If Not bereitsVorhanden Then
If Not AV(1, 2) = "" Or Not LR = 1 Then LR = LR + 1
With tSh
.Cells(LR, 1) = TextBox1.Value
.Cells(LR, 2) = 1
End With
End If
End Sub
|