30.01.2019, 10:46 (Dieser Beitrag wurde zuletzt bearbeitet: 30.01.2019, 11: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, 11:18 (Dieser Beitrag wurde zuletzt bearbeitet: 30.01.2019, 11: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
steht, geht das natürlich auch.