Umrechner - if-Zeile ergänzen
18.10.2005 14:35:19
Kira
ich habe mit Forumshilfe folgendes Makro zusammengebastelt:
Dim z As Range, ber As Range, ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
For Each z In ws.Range("A1:X100")
If z.NumberFormat = "#,##0.00 " And z.Value "" And Not z.HasFormula = True Then
Range("h1").Value = TextBox2.Text
z = z * Range("h1")
Application.Calculate
End If
Next z
Next ws
Berücksichtigt werden hier nur Zellen, die das Format "#,##0.00 " und einen Wert, der nicht "" entspricht. Außerdem darf die Zelle keine Formel enthalten.
Problem ist nun, dass ich auch Zellen habe, die diesen Voraussetzungen entsprechen, allerdings aber einen Hyperlink enthalten. Diese sollten aber auch nicht berücksichtigt werden. Leider habe ich hierzu bislang keine Lösung gefunden, da ich nicht weiß, wie ich solch ein Argument mit Hyperlinks formulieren muss. Daher meine Frage: Wie muss ich meine if-Zeile ergänzen, damit Zellen mit Hyperlinks ebenfalls nicht berücksichtigt werden?
Ich hoffe, ihr könnt mir diesbezüglich wieder weiter helfen.
Gruß
Kira