Verketten per VBA nur wenn Wert größer 0
05.09.2008 14:19:07
Dieter.K
mit folgendem Code verkette ich mehrere Zellen (Text in E21 bis E28) und gebe diesen in einer Zelle (B12) aus.
Die Höhe der Ausgabezeile (12) wird dabei automatisch angepasst.
Private Sub Worksheet_Activate()
Range("A12").Rows.AutoFit
Range("B12").Value = Worksheets("Abweichung").Range("E21").Value & vbLf & _
Worksheets("Abweichung").Range("E22").Value & vbLf & _
Worksheets("Abweichung").Range("E23").Value & vbLf & _
Worksheets("Abweichung").Range("E24").Value & vbLf & _
Worksheets("Abweichung").Range("E25").Value & vbLf & _
Worksheets("Abweichung").Range("E26").Value & vbLf & _
Worksheets("Abweichung").Range("E27").Value & vbLf & _
Worksheets("Abweichung").Range("E28").Value
End Sub
Nun möchte ich erreichen, daß nur die Zellen verkettet werden, in denen auch ein Text steht (oder auch ein Wert größer als 0).
Mit meinem Code werden die Zellen zwar verkettet, wenn die Zelle aber leer ist, wird eben dieses leere Zelle totzdem mit verkettet.
Hat hierfür eventuell jemand eine Lösung für mich?
Vielen Dank im Voraus.
Gruß
Dieter.K