Makro um Funktion erweitern
04.01.2004 18:21:19
Dieter
mit der ich unten stehendes Makro starte es geht alles besten nun meine Frage,kann dieses Makro
so erweitert werden das in der Tabelle2 eine Tabelle erstellt wird die sollte beinhalten wie oft
ein Mitspieler gewonnen hat und den bisher gewonnenen Betrag. Das ganze soll das ganze Jahr über
gesammelt werden.Bis zur jetzigen Zeit führe ich diese Tabelle noch manuell.Ist diese Vorstellung
zu realisieren ?.
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"
Cells(r, 2) = Zusatzzahl
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