☰

Kann ich in Excel die Formatierung verwenden, um eine Zelle dazu zu bringen, die Eingabe in Fuß und Zoll anzuzeigen?

tag-icon • tag-icon microsoft-excel cell-format
Kann ich in Excel die Formatierung verwenden, um eine Zelle dazu zu bringen, die Eingabe in Fuß und Zoll anzuzeigen?

Ich möchte mit Excel eine Zahl (für Zoll) in eine Zelle eingeben und sie in Fuß und Zoll anzeigen lassen. Wenn ich beispielsweise 62 in Zelle A1 eingebe, soll in Zelle A1 5' 2" angezeigt werden. Ich weiß, wie ich die Eingabe einer Zelle mithilfe einer Formel in das gewünschte Maß umwandeln kann (z. B. =INT(A1/12)&"' "&MOD(A1,12)&""""). Ich möchte jedoch, dass die konvertierte Version in derselben Zelle angezeigt wird, in die die Eingabe eingegeben wurde (z. B. wenn ich 62 in Zelle A1 eingebe, soll in Zelle A1 5' 2" angezeigt werden). Es scheint, als ob Formatierung die einzige Möglichkeit ist, dies zu tun, aber ich habe noch nicht herausgefunden, wie. Danke!

Antwort1

Soll es eine normale oder eine bedingte Formatierung sein? Bei normaler Formatierung musst du den Bereich angeben, in dem sie wirken soll. Bei bedingter Formatierung musst du die auslösende Bedingung angeben.
In beiden Fällen musst du VBA verwenden. Ich gehe von der ersten Variante (normale Formatierung) im Bereich aus A1:C3. Es werden nur positive Zahlen formatiert (negative Zahlen und 0 bleiben unverändert).
Trage in das Standardmodul den Funktionscode ein:

Function FeetIn(data As Double) As String
   Dim ft As Long, inch As Double
   ft = Int(data / 12)
   inch = data - 12 * ft
   FeetIn = IIf(ft >= 1, ft & "' ", vbNullString) & _
            IIf(inch > 0, inch & "''", vbNullString)       ' two apostrophes
End Function

Im Blattmodul:

Private Sub Worksheet_Change(ByVal Target As Range)
   Set Target = Intersect(Target, Range("A1:C3"))
   If Target Is Nothing Then Exit Sub
   Application.EnableEvents = False
   Dim cell As Range
   For Each cell In Target
      If IsNumeric(cell.Value) Then
         cell.NumberFormat = """" & FeetIn(cell.Value) & """;-General;0;@"
      Else
         cell.NumberFormat = "General"
      End If
   Next cell
   Application.EnableEvents = True
End Sub

Fuß_Zoll

Antwort2

Zum Formatieren ohne Formel muss ein integriertes Format verwendet werden.

Excel verfügt über ein Format für die Anzeige in Fuß und Zoll, wobei die Fußzahl vor dem Komma und die Zollzahl im Dezimalteil steht.

Nutzen Sie "Zellen formatieren...", Kategorie "Benutzerdefiniert" und geben Sie folgende Formatangabe ein: 0' 0\". Passen Sie dieses Format nach Bedarf an.

Das ist alles, was Sie mit der Excel-Formatierung erreichen können. Für mehr ist eine Formel erforderlich, die nur mit einer zusätzlichen Spalte verwendet werden kann.

Weitere Informationen finden Sie unter Benutzerdefinierte Excel-Zahlenformate.

verwandte Informationen