Hallo,
ich bin neu hier und habe ein Problem mit vba und speziell mit der If-Funktion. Ich hoffe das einer von euch Profis mir helfen kann. Habe noch keine passende Lösung hier gefunden.
Ich möchte in einer Spalte beliebig viele Werte auswerten, die Anzahl der Werte kann variieren. Dann möchte ich je nach Ergebnis der Auswertung in einer anderen Zelle einen Wert eingetragen haben.
Ich möchte folgendes auswerten:
A1=1 A4=2/0L+
A2=2 A5=32/0L+
A3=3 A6=PE
Ziel ist es das zwischen Zahlen (A1-A3) und Text (A4-A6) unterschieden wird.
Bei Zahl in die jeweilige Zelle von B Schriftart "Arial"
Bei Text in die jeweilige Zelle von B Schriftart "Arial Narrow"
Ich habe schon bisschen probiert und dabei kam das raus, er schreibt immer "Arial Narrow":
If Isnumeric(Range("A2:A" & Sheets("UK10").Range("A" & Rows.Count).End(xlUp).Row)) = True Then
Range("B2:B" & Sheets("UK10").Range("A" & Rows.Count).End(xlUp).Row) = "Arial"
Else
Range("B2:B" & Sheets("UK10").Range("A" & Rows.Count).End(xlUp).Row) = "Arial Narrow"
End If