Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1276to1280
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1276to1280
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sonderzeichen mit VBA einfügen

Sonderzeichen mit VBA einfügen
Ralf
Hallo Forum,
ich möchte aus der Schriftart „Symbol“ den dargestellten Pfeil mit einem VBA Skript einfügen.
Die Zeichentabelle gibt als Zeichencode 0xDE aus.
Ich habe folgenden Code, der aber leider nicht das gewünschte Ergebnis bringt:
Sub Zeichen_einfügen()
ActiveCell.Value = ChrW(&0xDE)
End Sub
Kann mir bitte jemand sagen, warum dies nicht funktioniert?
Vielen Dank im Voraus für eine Rückmeldung.
Viele Grüße
Ralf

AW: Sonderzeichen mit VBA einfügen
11.09.2012 08:26:01
mäxl
Hallo Ralf
sowas?
Sub Zeichen_Einfuegen()
With ActiveCell
.Value = Chr(222) & "Was auch immer"
.Characters(1, 1).Font.Name = "Symbol"
End With
End Sub
bzw. wenn sonst kein Text ist einfach die ganze Zelle mit Schriftart Symbol versehen.
gruß

AW: Sonderzeichen mit VBA einfügen
11.09.2012 08:31:03
Ralf
Hallo Mäxl,
passt. Super Lösung.
Vielen Dank dafür.
Viele Grüße
Ralf

AW: Sonderzeichen mit VBA einfügen
12.09.2012 09:47:12
Ralf
Hallo Forum,
jetzt habe ich doch noch eine Frage dazu.
Ausgangssituation ist folgende: 
Sub Sprachauswahl()
Sheets("Dateneingabe").Select
Range("G13").Select
'=WENN(Sprachauswahl!$C$10=1;"=> Eingabefelder";"=> Input fields")
ActiveCell.FormulaR1C1 = "=IF(Sprachauswahl!R10C3=1,""=> Eingabefelder"",""=> Input fields"")"
End Sub

Jetzt möchte ich den Code von Mäxl gerne in meinen integrieren:
Sub Zeichen_Einfuegen()
With ActiveCell
.Value = Chr(222) & "Eingabefelder"
.Characters(1, 1).Font.Name = "Symbol"
End With
End Sub
Soll heißen, wie bringe ich in den Code von Mäxl eine Sprachauswahl mit einer If Funktion rein, so wie ich es bislang mit der Formel habe? Ich habe mich gestern mal mit der If Funktion beschäftigt, es aber nicht Tabellenblatt übergreifend hinbekommen.
Vielen Dank im Voraus für Eure Unterstützung.
Viele Grüße
Ralf

Anzeige
AW: Sonderzeichen mit VBA einfügen
12.09.2012 10:16:53
Rudi
Hallo, 
Sub Zeichen_Einfuegen()
With ActiveCell
.Value = Chr(222) & _
IIf(Sheets("Sprachauswahl").Range("C10") = 1, " Eingabefelder", " Inputfields")
.Characters(1, 1).Font.Name = "Symbol"
End With
End Sub

Gruß
Rudi

AW: Sonderzeichen mit VBA einfügen
12.09.2012 10:35:40
Ralf
Hallo Rudi,
der Pfeil erscheint, aber der anschließende Text ist ebenfalls in der Schriftart Symbol formatiert und somit nicht lesbar.
Viele Grüße
Ralf

AW: Sonderzeichen mit VBA einfügen
12.09.2012 10:46:59
mäxl
Hall Ralf
Sub Zeichen_Einfuegen()
With Sheets("Sprachauswahl")
.Cells(13, "G").Font.Name = "Arial"
.Cells(13, "G") = Chr(222) & _
IIf(.Range("C10") = 1, " Eingabefelder", " Inputfields")
.Cells(13, "G").Characters(1, 1).Font.Name = "Symbol"
End With
End Sub
passt es so?
gruß

Anzeige
AW: Sonderzeichen mit VBA einfügen
12.09.2012 10:54:20
Ralf
Hallo Mäxl,
jetzt passts. Super Lösung.
Viele Grüße
Ralf

AW: Sonderzeichen mit VBA einfügen
12.09.2012 10:55:27
Rudi
Hallo,
das passiert, wenn der Text zu wiederholten Mal eingefügt wird. 
Sub Zeichen_Einfuegen()
With ActiveCell
.Font.Name = Application.StandardFont
.Value = Chr(222) & _
IIf(Sheets("Sprachauswahl").Range("C10") = 1, " Eingabefelder", " Inputfields")
.Characters(1, 1).Font.Name = "Symbol"
End With
End Sub

Gruß
Rudi

AW: Sonderzeichen mit VBA einfügen
12.09.2012 10:19:16
mäxl
Hallo Ralf
Formeln und Formatierungen vertragen sich nicht!
(kannst du auch leicht testen--- versuche einmal ein Zeichen z.B rote Schriftfarbe für ein Zeichen in deiner Formel im Tabellenblatt zu ändern...., wird nicht funktionieren)
Ich verstehe auch nicht warum man Formeln über VBA einfügen sollte ;)
Wenn schon VBA dann würde ich gleich das Ergbnis eintragen.
gruß

Anzeige
AW: Sonderzeichen mit VBA einfügen
12.09.2012 10:27:48
Ralf
Hallo Mäxl,
ich möchte Formeln per VBA einfügen, damit ich immer wieder den Ausgangszustand herstellen kann.
Es gibt halt immer wieder Leute, die gerne mal was ändern und eigene Innovationen einfließen lassen wollen.
Ich habe in bestimmten Bereichen bewußt die Möglichkeit geschaffen, Formeln zu überschreiben, um manuelle Eingaben zu ermöglichen. Ich kann dann auf Knopfdruck den alten Zustand wieder herstellen.
Viele Grüße
Ralf

AW: Sonderzeichen mit VBA einfügen
12.09.2012 10:40:33
mäxl
Hallo Ralf
Ich habe in bestimmten Bereichen bewußt die Möglichkeit geschaffen, Formeln zu überschreiben, um manuelle Eingaben zu ermöglichen. Ich kann dann auf Knopfdruck den alten Zustand wieder herstellen.
Das geht ja nach wie vor auch ohne Formel, so wie es schon Rudi gepostet hat, er macht dabei die WENN in VBA und schreibt nur mehr das Ergebnis in die Zelle.
Aber entscheiden musst du selbst. :)
Wie vorhin schon gepostet, Formel und Format sind unverträglich.
gruß
Anzeige

118 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
3 Beiträge
Anzeige
Tabellen abgleichen\synchronisieren über VBA
Stefan

Hallo zusammen!
Ich benötige eure Hilfe! Weiß leider nicht mehr weiter...
Also ich hab zwei Tabellen, in der 1. Tabelle kann man Tarife auswählen aus einer Gültigkeitsliste
daraufhin werden die Werte aus der Tabelle 3 geholt zu der jeweiligen Auswahl. Dann habe ich eine Tabelle 3 di...
09.11.2009 09:21:23
Thread-ID: 1115042
2 Beiträge
VBA-Code ausführen bei Änd. v. Pivotabellen | Herbers Excel-Forum
Al
Hallo,
ich möchte VBA-Code ausführen lassen, wenn in einer Pivotabelle ein Zeilen-,Spalten oder Seiten-Feld verändert/ausgewählt wird.
Worksheet_Calculate kann ich nicht nutzen, da der Code selbst im Worksheet Änderungen durchführt, die wieder Worksheet_Calculate aufrufen.
Worksheet_Ch...
15.01.2010 15:04:20
Thread-ID: 1130302
4 Beiträge
Pfeile nach oben/unten und färbige Darstellung
Nici

Hallo!
Ich habe eine Exceltabelle mit Budgetdaten. Die Werte stehen in der Spalte E. Wenn ich nun in der Spalte D nachfolgende Befehl eingebe
D2 =WENN(E2größer1000;"é";"ê") und dies mit der Schriftart Windings formatiere erschein eine Pfeil nach oben oder nach unten.
Ich hätte noc...
01.05.2011 23:14:10
Thread-ID: 1212578
4 Beiträge
Button für VBA Code in Tabellenblatt
Manu

Hallo zusammen,
ich bräuchte mal wieder eure Hilfe.
1. Kann mir jemand sagen, wie ich ein Button (soll im Tabellenblatt sichtbar sein) über VBA programmiere, dass sich alle Daten (ausgenommen der Zeile 1) aus einem Tabellenblatt löschen lassen (so zu sagen mit einem Klick)!
2. Weiß...
22.07.2011 10:13:44
Thread-ID: 1223144
7 Beiträge
Mehrere VBA-Codes in Tabelle (Fehler)
EarnyToLearny

Liebe Excel-Gemeinde,
ich verwende in einer Tabelle 2 VBA-Codes, die jeweils allein genutzt voll funktionsfähig sind. Sobald ich aber beide verwende, funktioniert der Code für den "Bildertausch" nicht mehr.
Habe den Code einmal an den Anfang gestellt, dazwischen und am Ende. Nix geht....
24.10.2011 19:45:06
Thread-ID: 1235038
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
5
2
2
2
1
3
3
6
1
2
14
2
2
5
2
4
4
9
4
4
3
2
1
4