Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1036to1040
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

msgbox hinweis

msgbox hinweis
12.01.2009 16:16:55
SoulOpa
Hallo Liebe Excel Gemeinschaft
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: msgbox hinweis
12.01.2009 16:27:00
Hajo_Zi
Hallo Andi,
vielleicht reicht schon =0

AW: msgbox hinweis
12.01.2009 16:53:00
SoulOpa
Hallo Hajo,
Danke Dir :=) vor lauter Forum lesen sieht man den Wald vor lauter Bäumen nicht wie Peinlich von mir.
mfg Andi und Danke noch einmal.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige