Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Ohm-Zeichen mit einem Makro einfügen.

Forumthread: Ohm-Zeichen mit einem Makro einfügen.

Ohm-Zeichen mit einem Makro einfügen.
Hanspeter
Wie kann ich in einem Makro das Ohmzeichen einfügen?
Wenn ich es über die Zwischenablage in das Makro kopiere, kommt anstelle des Ω ein ? und da ich mit dem Makro eine Zelle fülle, steht dann auch das ? in der Zelle.
Beispiel
…
If Range("R_OG").Value > 1000 And Range("R_OG").Value Range("R_OGs").Value = (Range("R_OG").Value / 1000)
Range("R_OGsE").Value = "k?"
End If
…
Bei k? sollte k Ω stehen.
Viele Grüße
Hanspeter
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Ohm-Zeichen mit einem Makro einfügen.
15.04.2010 16:28:46
Tino
Hallo,
veruche es mal so.
With Range("R_OG")
If .Value > 1000 And .Value 
Gruß Tino
Warum so umständlich, Tino?
15.04.2010 16:50:55
Luc:-?
Hi, Hanspeter,
Sieh dir den Unicode-Zeichensatz an und verwende den Code des entsprechenden Symbols mit ChrW(…) → hier ChrW(8486). Falls das UC-Zeichen in deinem Zeichensatz fehlt (in Arial ist es enthalten!), musst du eine entsprechende Schriftart verwenden. Wenn der Code Bestandteil eines AddIns ist, musst du ggf im anwendenden Projekt zusätzl auf das AddIn verweisen (VBE Exras - Verweise).
Gruß Luc :-?
Anzeige
soweit habe ich nicht gedacht oT.
15.04.2010 16:58:09
Tino
AW: soweit habe ich nicht gedacht oT.
15.04.2010 17:03:08
Hanspeter
es funkt beides, wobei die ChrW(8486) schneller umzusetzen ist.
Vielen Dank für die schnelle Hilfe
Gruss Hanspeter
Na also! Viel Spaß, wobei auch immer! orT
15.04.2010 17:15:55
Luc:-?
Gruß Luc :-?
Anzeige
Schrift Symbol Alt 087
16.04.2010 07:02:31
Walter
Gruß Walter
Das nützt unter VBA nichts, übrigens auch...
16.04.2010 18:31:43
Luc:-?
…nichts unter Linux, Walter
Gruß Luc :-?
;
Anzeige
Anzeige

Infobox / Tutorial

Ohm-Zeichen in Excel mit Makro einfügen


Schritt-für-Schritt-Anleitung

Um das Ohm-Zeichen in Excel mit einem Makro einzufügen, kannst du folgende Schritte befolgen:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
  2. Füge ein neues Modul hinzu:

    • Klicke im Projekt-Explorer mit der rechten Maustaste auf dein Projekt und wähle Einfügen > Modul.
  3. Gib den folgenden Code ein:

    Sub OhmZeichenEinfügen()
       Dim ohmSymbol As String
       ' Das Ohm-Zeichen wird hier definiert
       ohmSymbol = ChrW(8486) ' Unicode für Ω
    
       ' Beispiel: Wert in Zelle A1 setzen
       Range("A1").Value = "k " & ohmSymbol
    End Sub
    • Dieser Code fügt das Ohm-Zeichen in die Zelle A1 ein.
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus:

    • Drücke ALT + F8, wähle OhmZeichenEinfügen und klicke auf Ausführen.

Jetzt sollte in der Zelle A1 das Zeichen für Ohm korrekt angezeigt werden.


Häufige Fehler und Lösungen

  • Problem: Anstelle des Ohm-Zeichens wird ein Fragezeichen (?) angezeigt.

    • Lösung: Stelle sicher, dass du eine Schriftart verwendest, die das Ohm-Symbol unterstützt, wie Arial oder Calibri. Das Ohm-Zeichen kann möglicherweise in deiner gewählten Schriftart fehlen.
  • Problem: Der Code funktioniert nicht in einer bestimmten Excel-Version.

    • Lösung: Prüfe, ob dein Excel auf dem neuesten Stand ist. Ältere Versionen könnten einige Unicode-Zeichen nicht unterstützen.

Alternative Methoden

Wenn du das Ohm-Zeichen nicht über ein Makro einfügen möchtest, kannst du auch folgende Methoden verwenden:

  1. Verwendung des Alt-Codes:

    • Halte die ALT-Taste gedrückt und gib auf dem Ziffernblock 234 ein. Das Ohm-Zeichen sollte erscheinen, wenn du die ALT-Taste loslässt.
  2. Sonderzeichen-Funktion:

    • Gehe zu Einfügen > Symbol, wähle die Schriftart und suche nach dem Ohm-Symbol. Klicke auf „Einfügen“.

Praktische Beispiele

Hier sind einige gebräuchliche Anwendungsbeispiele für das Ohm-Zeichen in Excel:

  • Berechnungen mit Einheiten:

    If Range("R_OG").Value > 1000 Then
       Range("R_OGs").Value = (Range("R_OG").Value / 1000) & " k" & ChrW(8486)
    End If
    • Dies fügt das Ohm-Zeichen für kΩ in die Zelle R_OGs ein, wenn der Wert größer als 1000 ist.
  • Textformatierung:

    • Verwende das Ohm-Zeichen in der Beschriftung von Diagrammen oder in Zellen, um Werte zu kennzeichnen.

Tipps für Profis

  • Makros optimieren: Wenn du häufig mit dem Ohm-Zeichen arbeitest, kannst du dein Makro anpassen, um mehrere Zellen gleichzeitig zu aktualisieren.

  • Verwendung von Funktions-Shortcuts: Erstelle eine benutzerdefinierte Funktion, die das Ohm-Zeichen zurückgibt, um es in Formeln zu verwenden.


FAQ: Häufige Fragen

1. Wie kann ich das Ohm-Zeichen in Excel kopieren? Du kannst das Ohm-Zeichen direkt aus einer Zelle kopieren, indem du die Zelle auswählst, STRG + C drückst und in eine andere Zelle einfügst.

2. Welche Schriftarten unterstützen das Ohm-Symbol? Die meisten modernen Schriftarten wie Arial, Calibri und Times New Roman unterstützen das Ohm-Zeichen. Stelle sicher, dass die Schriftart in deiner Excel-Datei kompatibel ist.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige