msgbox hinweis
12.01.2009 16:16:55
SoulOpa
ich habe mal wieder eine Frage. Ich habe mir eine Macro mit einer msgBox als Hinweis und als Macro Stop zusammen gestellt. Jedoch ist ja die Zelle (J124) ja nicht leer sondern sie beinhaltet eine Formel =SUMME(J122:K123) was muss geändert werden? um eine msgbox Meldung zu erhalten. So wie der Code jetzt ist, Funktioniert er nur wenn keine Formel in der Zelle vorhanden ist.
Sub überprüfe ob Endbetrag eingetragen ist()
If Range("J124") = "" Then
MsgBox "Achtung kein Enbetrag eingegeben"
Exit Sub
End If
'Kopieren und übertragen der Daten von Rechnung in Rechnungsverwaltung()
Dim wksRechnungsverwaltung As Worksheet
Dim iRowT As Integer
Set wksRechnungsverwaltung = Worksheets("Rechnungsverwaltung")
With Worksheets("Rechnungsverwaltung")
iRowT = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(iRowT, 1) = Range("B10") 'Kunde
.Cells(iRowT, 2) = Range("B18") 'Rechnungsnummer
.Cells(iRowT, 3) = Range("E18") 'Rechnungsdatum
.Cells(iRowT, 4) = Range("J124") 'Rechnungsbetrag o. Skonto
.Cells(iRowT, 5) = Range("G127") 'Rechnungsbetrag mit Skonto
.Cells(iRowT, 6) = Range("I18") 'Zahlungsziehl
End With
ActiveSheet.Copy
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
End Sub
Mappe zu anschauen https://www.herber.de/bbs/user/58311.zip
msg Andi