Makro Erweiterung
24.12.2003 07:15:48
Dieter
es Funktioniert auch bestens,trotzdem noch eine Frage dazu.Wie aus dem Titel zu entnehmen ist
es handelt sich um Zusatzzahlen Vorhersage, nun möchte ich das die Z.Z. die nicht gefunden wird
auch in die Liste eingetragen wird (siehe Makro Zelle 2).Ist das noch möglich ? . Weil ich
das bis nun noch manuell vornehme.Bedanke nich schon mal im voraus.Wünsche allen Leuten im
Forum ein "Frohes und besinnliche Weihnachtsfest".
MfG Dieter
Private Sub CommandButton1_Click()
Dim Zusatzzahl
Titel = "Zusatzzahl"
Mldg = "Zusatzzahl eingeben"
Zusatzzahl = InputBox(Mldg, Titel)
With Sheets(1).Range(Cells(101, 2), Cells(126, 3))
Set C = .Find(Zusatzzahl, LookIn:=xlValues, LookAt:=xlWhole)
If C Is Nothing Then
r = Cells(100, 2).End(xlUp).Row + 1
Cells(r, 5) = "xxx" '<<<<<
Cells(r, 3) = "nein"
MsgBox "Zusatzzahl nicht vorhanden"
Exit Sub
End If
End With
r = Cells(100, 2).End(xlUp).Row + 1
If r < 4 Then r = 5
If C(1, 1).Column = 2 Then f = 0 Else f = -1
Cells(r, 5) = C(1, f)
Cells(r, 2) = C(1, 1)
Cells(r, 3) = "ja"
End Sub