Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Werte in MsgBox anzeigen, wenn nicht 0
Normale Version: Werte in MsgBox anzeigen, wenn nicht 0
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2

dertommy

30.01.2019, 09:46
Hallo!

Ich möchte gerne in einer Messagebox untereinander Werte angezeigt haben, welche nicht 0 sind. Ich habe in den Zellen R10 - AK10 jeweils ein Datum stehen, z.B. 01.01.2007. In R12 - AK 12 habe ich nun jeweils eine Formel drinnen stehen, die sehr oft 0 ergibt. Da ich diese nicht in der Messagebox haben will, sollen diese nicht angezeigt werden.
In der Messgabox sollte dann z.B. drinnen stehen: 2007 - und dann der jeweilige Wert von R12 - AK12. Das alles aber immer nur in Bezug auf die Zelle "A1", denn den Wert ändere ich nämlich ständig.
Ich hoffe, dass wir jemand weiterhelfen kann.
Als Beispiel habe ich die Datei mitgeschickt.

LG
Thomas

Klaus-Dieter

30.01.2019, 10:02
Hallo,

Zitat:Ich habe in Spalte R10 - AK10

nach meinem Verständnis ist das ein Teil einer Zeile, keine Spalte.

dertommy

30.01.2019, 10:05
ja, da hast du recht, danke für den Hinweis

Klaus-Dieter

30.01.2019, 10:14
Hallo Thomas,

anbei ein Beispiel.

Habe gerade gesehen, dass mein Vorschlag nicht passt. Werde das noch mal überarbeiten.

MisterBurns

30.01.2019, 10:18
Meinst du so?
Code:
Sub box()
Dim Suche As Range
Dim i As Integer
Dim Inhalt As String

Set Suche = Columns("Q").Find(what:=Range("A1"), lookat:=xlWhole)
If Not Suche Is Nothing Then
    For i = 18 To 37
        If Cells(Suche.Row, i) <> 0 Then
            Inhalt = Inhalt & Chr(10) & Cells(10, i) & ": " & Format(Cells(Suche.Row, i), "€ #,##0.00")
        End If
    Next i
End If

MsgBox Inhalt

End Sub

Klaus-Dieter

30.01.2019, 10:31
Hallo Thomas,

hier eine Kombination der Vorschläge von MisterBurns und mir.

dertommy

30.01.2019, 10:32
Hallo!
super danke, schaut sehr gut aus
was ich noch gerne hätte, dass nicht das ganze Datum (01.01.2007) steht, sondern nur das Jahr (2007).
Was das möglich?

LG

Klaus-Dieter

30.01.2019, 10:35
Hallo Thomas,

dazu brauchst du nur diese Zeile: Inhalt = Inhalt & Chr(10) & Year(Cells(10, i)) & ": " & Format(Cells(Suche.Row, i), "? #,##0.00") um die roten Bestandteile erweitern. Hätte man auch selbst herausfinden können.

dertommy

30.01.2019, 10:41
danke sehr, ich habs eh selber auch gerade herausgefunden, habs anders gelöst:

Inhalt = Format(Inhalt & Chr(10) & Cells(10, i), "YYYY") & ": " & Format(Cells(Suche.Row, i), "€ #,##0.00")

Klaus-Dieter

30.01.2019, 10:55
Hallo Thomas,

wenn man auf Langversionen  Blush steht, geht das natürlich auch.
Seiten: 1 2
Clever-Excel-Forum > Office-Anwendungen > Excel > Werte in MsgBox anzeigen, wenn nicht 0