30.01.2019, 09:46 (Dieser Beitrag wurde zuletzt bearbeitet: 30.01.2019, 10:05 von dertommy.)
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.
30.01.2019, 10:18 (Dieser Beitrag wurde zuletzt bearbeitet: 30.01.2019, 10:18 von MisterBurns.)
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
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?
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.
Viele Grüße
Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden