Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Msgbox mit Formel

Betrifft: Msgbox mit Formel
von: Thomas
Geschrieben am: 22.04.2003 - 17:48:29

Liebes Forum!

Möchte eine Msgbox anzeigen! Bei Definition dieser möchte ich eine Formel einbauen:

If Sheets("Tabelle1").Range("G & i).Value = 0 or Empty Then _
Msgbox "Bitte Zahlung für " & Left(Range("F" & i, 1).Formula) & " .Teilrechnung eintragen!"

Funktioniert aber nicht ganz.

Kann mir da jemand bitte helfen?

Danke Thomas

  

Re: Msgbox mit Formel
von: andre
Geschrieben am: 22.04.2003 - 17:54:57

HALLO THOMAS;

If Sheets("Tabelle1").Range("G & i).Value = 0 or _
Sheets("Tabelle1").Range("G & i).Value = Empty Then _
Msgbox "Bitte Zahlung für " & Left(Range("F" & i, 1).Formula) & " .Teilrechnung eintragen!"

wo ist Fi,1?
also gehen würde i+1 aber nicht i,1

gruss andre


  

Re: Msgbox mit Formel
von: JPA
Geschrieben am: 22.04.2003 - 17:55:14

Das Ergebnis der Formel vorher in eine Variable übergeben und die Variable in die MsgBox einbauen.

Gruß

JPA

  

Re: Msgbox mit Formel
von: ChrisL
Geschrieben am: 22.04.2003 - 17:59:43

Hallo Thomas

Da fehlen noch ein Paar "Anführungszeichen".

...("G" & i)...
statt
...("G & i)...

Und was willst du mit dem Left... genau? Die erste Stelle einer Formel (Formala) ist üblicherweise ein "=".

Left(Range("F" & i).Formula, 1)

Gruss
Chris


  

Re: Msgbox mit Formel
von: andre
Geschrieben am: 22.04.2003 - 18:00:01

hallo thomas,
ich noch mal
das ,1 gehört zu dem left nicht wahr?
dann so:
Left(Range("F" & i).Formula,1)
gruss andre

 

Beiträge aus den Excel-Beispielen zum Thema "Msgbox mit Formel"