Im nachfolgenden Makro würde ich gerne eine Abfrage durchführen,
bevor das eigentliche Makro(Rest) ausgeführt wird.
Prüfen ob im Bereich H6 bis H46 im akt.Sheet irgendwo ein x steht
wenn nein dann Meldung und abbrechen
wenn ja dann weiter mit Makro.
Habe schon mal angefangen, aber komme hier nicht weiter.
Könnt ihr hier helfen?
Private Sub CommandButton2_Click()
Dim rng As Range
Dim rng2 As Range
Dim lngE As Long
Dim wann
'prüfen ob im Bereich H6 bis H46 irgendwo ein x steht
'evtl noch Meldung wenn mehr als ein x
'wenn ja dann weiter mit makro, wenn kein x abbrechen
Set rng2 = Sheets("Einzahlungen").Range("H6:H46")
If then
MsgBox "Es wurde noch keine Zsatzzahl eingegeben!"
End If
Exit Sub
'x vorhanden weiter
wann = Sheets("Einzahlungen").Range("B5").Value
Set rng = Sheets("Einzahlungen").Range("A6:J47")
With Sheets("Jahresbeträge")
lngE = .Range("A65536").End(xlUp).Row + 1
rng.Copy
.Cells(lngE, 1).PasteSpecial Paste:=xlPasteValues
.Cells(lngE, 1).PasteSpecial Paste:=xlPasteFormats
End With
Range("D6:D45, E6:E45,H6:H45 ").Select
Selection.ClearContents
Range("A5").Select
gesamt
Summe2
Range("A5").Value = Range("A5").Value + 7
Sheets("Übersicht Summen").Range("C3").Value = Now & "- mit KW:" & wann
Sheets("Einzahlungen").Activate
End Sub
Gruss
Klaus