Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wenn Funktion mit Formatabfrage

Wenn Funktion mit Formatabfrage
22.08.2003 14:10:36
Alex
Hallo zusammen,
ich habe eine Frage: gibt es in Excel eine Möglichkeit, eine WENN Funktion zu erstellen, die Zellenformate abfragt? Bsp: Ich habe eine Zelle a1 mit dem Zahlenformat (Pfund)
#.##0,000 "lb"
der Zelleninhalt ist also z.B. 500, angezeigt wird aber 500 lb
Brauche nun eine wenn Funktion, die bei diesem Zahlenformat den Zelleninhalt mit 2,205 multipliziert um eine durchgängige kg Tabelle zu errechnen, also sowas wie
=wenn(Format A1=#.##0,000 "lb";A1*2,205;A1)
Gibt es einen entsprechenden Formel oder eine VBA Anweisung?
Vielen Dank im vorraus
Alex

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Funktion mit Formatabfrage
22.08.2003 14:39:02
Lotti
Hi Alex,
versuchs mal hiermit:
= wenn(rechts(a1,2)="lb";A1*2,205;A1)
ich denke das klappt?!
Denn der Inhalt dürfte ja dann kein Format sondern tatsächlich 500"lb" sein, entsprechend wirst du da mit ner Formatabfrage nich soo weit kommen?!
Gruß
Lotti

AW: Wenn Funktion mit Formatabfrage
22.08.2003 14:43:55
Alex
Hi Lotti,
danke für die Antwort, aber das hilft leider nicht weiter. In der Zelle steht ja das "lb" grade nicht mit drin. Mit der Formel RECHTS bei einer Zelle a1 die anzeigt "650 lb" aber mit tatsächlichem Inhalt "650", gibt mir =rechts(a1;2) "50" aus. Genau das ist ja mein Problem......Hiiillllffffeeeeeee
Alex

Anzeige
AW: Wenn Funktion mit Formatabfrage
22.08.2003 15:30:55
Lotti
Hallo Alex,
sorry! Klar, allerdings scheints ja auch schon Dank ChrisL schon gelöst!?
Gruß
Lotti

AW: Wenn Funktion mit Formatabfrage
22.08.2003 14:57:19
ChrisL
Hi Alex
Option Explicit

Sub Umwandlung_einmalig()
Dim Zelle As Object
On Error Resume Next
For Each Zelle In ActiveSheet.UsedRange
If Zelle.NumberFormat = "#.##0,000 ""lb""" And Zelle <> "" Then
Zelle.NumberFormat = "General"
Zelle = Zelle * 2.205
End If
Next Zelle
End Sub

Gruss
Chris

AW: Wenn Funktion mit Formatabfrage
22.08.2003 15:10:34
Alex
Hi Chris,
danke für den Code. Hab ihn etwas abgewandelt, läuft aber trotzem noch nicht. Wo kann der Fehler liegen?
Option Explicit

Sub Umwandlung_einmalig()
Dim Zelle As Object
On Error Resume Next
For Each Zelle In ActiveSheet.Range("a1:f20")
If Zelle.NumberFormat = "#.##0,0000 ""LB""" And Zelle <> "" Then
Zelle.NumberFormat = "General"
Zelle = Zelle * 2.205
End If
Next Zelle
End Sub

also das genaue Zahlenformat lautet #.##0,0000 "LB"
aber wenn ich das in die Zeile korrekt eintrage
If Zelle.NumberFormat = "#.##0,0000 "LB"" And Zelle <> "" Then
dann bekomme ich die Fehlermeldung bei den zweiten Anführungszeichen nach LB. ist den
""LB""" richtig?
Danke für deine Hilfe,
Alex

Anzeige
AW: Wenn Funktion mit Formatabfrage
22.08.2003 15:19:48
ChrisL
Hi Alex
Mach mal mit dem Makrorekorder eine Aufzeichnung, während du das Zahlenformat einer Zelle anpasst. Dann den Code anschauen, dann hast du es genau.
Kann sein, dass Punkt und Komma umgetauscht werden müssen. Habe hier eine andere Einstellung, drum kann ich nicht testen.
Gruss
Chris

Danke
22.08.2003 15:26:16
Alex
Super, herzlichen Dank. Zur Info:
Zelle.NumberFormat = "#,##0.0000 ""LB"""
war richtig.
Ja meistens sind es halt doch die kleinen Dinge.....

321 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige