Bitte um Makro Erweiterung
10.09.2006 20:45:37
Heinz
Habe im unteren Makro,das mir Werte in die richtige Spielrunde einträgt.
Funkt. auch einwandfrei.
Nur möchte ich jetzt noch zusätzlich das es vor einfügen der Daten nachsieht,ob in Zelle D4 schon ein Wert steht.
Wenn kein Wert in D4,dann einfügen. Sonst eine Msg Abfrage "Daten sind schon eingefügt. Überschreiben Ja oder Nein."
Könnte mir Bitte das Makro jemand erweitern ?
Danke Heinz
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 40
If WorksheetFunction.CountIf(Range("D4:D15"), i) >= 1 Then
Range("B4:K15").Copy
'If i < 10 Then i = "0" & i
Sheets("R" & CStr(i)).Range("B4").PasteSpecial Paste:=xlValues
Range("C18:D29").Copy
Sheets("R" & CStr(i)).Range("C18").PasteSpecial Paste:=xlValues
Range("F23:J37").Copy
Sheets("R" & CStr(i)).Range("N2").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Exit For
End If
Next i
End Sub