Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1088to1092
1088to1092
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suche das Gegenteil von "ChrW"

Forumthread: Suche das Gegenteil von "ChrW"

Suche das Gegenteil von "ChrW"
"ChrW"
Hallo,
das Gegenteil von "Chr" ist "Asc". Nun habe ich zum Beispiel das Zeichen "ChrW(9650)" in einem String (ein Symbol für ein Dreieck). Wie kann der "ChrW"-Wert ermittelt werden, wenn dieser in einem String enhalten und unbekannt ist?
Viele Grüße
Martin
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Logisch wäre "AscW" ;-)
24.07.2009 19:48:00
ransi
HAllo
In A1 steht dein String.
Versuch dann mal dies:
Option Explicit
Public Sub aufruf()
Dim arr
arr = test(Range("A1").Text)
Range("B1").Resize(UBound(arr), 2) = arr
End Sub

Public Function test(strText) As Variant
Dim L As Long
Redim B(1 To Len(strText), 1 To 2)
For L = 1 To Len(strText)
    B(L, 1) = Mid(strText, L, 1)
    B(L, 2) = AscW(Mid(strText, L, 1))
Next
test = B
End Function

ransi
Anzeige
Danke, "AscW" war es! Hatte Tomaten vor den Augen
24.07.2009 19:59:24
Martin
s.o.
;

Forumthreads zu verwandten Themen

VBA - If Anweisung mehrerer Abfragen
Jana

Hallo liebes Forum!!
Ich stehe gerade komplett (mal wieder auf dem Schlauch)!..
Ich habe einen umfangreichen VBA-Code mit Arrays. Nun möchte ich, dass in der Spalte 3 geguckt wird, ob die Zahl 2,3,7,9,11 oder 13 in dieser Zelle steht. Ist einer dieser Zahlen vorhanden, dann soll eine Va...
11.09.2008 12:06:28
Thread-ID: 1009072
3 Beiträge
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
Anzeige
Register der Multifunktionsleiste per VBA aktivier
Günther

Hallo!
Ich würde gerne per VBA das aktive Register der Multifunktionsleiste verändern (konkret: das Register Add-Ins aktivieren, damit dessen Inhalte im Vordergrund sichtbar werden).
Kennt jemand den entsprechenden Befehl? Wenn ja, mir bitte kurz mitteilen.
Herzlichen Dank im Voraus...
23.11.2008 17:51:53
Thread-ID: 1027119
4 Beiträge
VBA code für automatischen Rechts-Shift
Markus

Hallo Zusammen,
hat jemand eine Idee für einen VBA code zu folgendem Problem
(siehe https://www.herber.de/bbs/user/61304.xls)
:
In Spalte S finden sich verschiedene Werte. Die Spalte S soll nun durchsucht werden. Wenn in der Zelle EUR steht, dann soll dann soll wenn dies z.B. Z...
20.04.2009 11:05:39
Thread-ID: 1069746
3 Beiträge
If Not Selection.Copy Then ???
Karsten

Hallo,
ich möchte, dass wenn ich kopiert habe und auf eine andere Zelle wechsele, Target.WrapText = True übersprungen wird.
Da meine Codekonstruktion noch nicht stimmt, wird immer die Zelle in die ich wechsele, im Kopiermodus angezeigt. Kann mir jemand helfen?
Private Sub Worksheet_...
02.12.2009 01:41:36
Thread-ID: 1121269
6 Beiträge
VBA_For-Next Schleife ist fehlerhaft
Dirk

Hallo allerseits,
habe da noch ein Problem mit einer Schleife.
Nachstehender CODE soll im TB Eingaben Zeile 1 nach einem Wert aus TB Ausgabe A1 suchen.
Macht er auch, nur zeigt er mir immer erst die msgBox an (nichts gefunden) und wenn ich die dann x-mal bestätige, kommt dann auch i...
06.05.2010 17:41:15
Thread-ID: 1155887
5 Beiträge
VBA: If-Fkt mit Teilstring - Daten aktualisieren
Joe

Hallo liebe Experten,
ich stehe mal wieder vor einer Hürde, bei der ich eure Hilfe bräuchte.
Folgender Code sucht in einer Adressdatei (adressen.xls) nach einer Nummer (Spalte Q). Diese Nummer steht in einer Zelle in welcher noch weitere, durch Komme getrennte, Nummern stehen können.
24.08.2010 13:10:36
Thread-ID: 1173865
2 Beiträge
VBA Schleife für Sperranweisung
Marc

Hallo zusammen.
In meiner Tabelle A, B, C, D (à 10 Zeilen) soll die jeweiligeSpalte gesperrt werden wenn in der Überschrift ein X steht.
Das soll heißen:
Wenn A1 = X dann sperre A2:A10
Wenn A1 = "" dann lass A2:A10 entsperrt
https://www.herber.de/bbs/user/71912.xls
Mit d...
14.10.2010 11:57:03
Thread-ID: 1182382
3 Beiträge
If ActiveWorkbook.Name <> ThisWorkbook.Name Then E
Heinz

Hallo Leute
Hatte im Jänner im Forum angefragt.
Habe einen Schichtplan mit vielen Makros, und Protect mit Passort.
Wenn ich in der Firma den Schichtplan öffne UND eine andere Exceltabelle öffne,das dort auch der Blattschutz reinkommt.
Warum ?
Nun hatte ich einen Lösungsvorsc...
10.03.2011 12:48:10
Thread-ID: 1205143
6 Beiträge
If IsNumeric(Application.Parent.Name) Then
Peter

Guten Tag
Warum bringt untenstehende Funktion einen Fehler, wenn der Tabellenname nicht numerisch ist?
Gruss, Peter
https://www.herber.de/bbs/user/80841.xlsm
Public Function TabName() As Long Debug.Print Application.Caller.Parent.Name If IsNumeric(Application.Parent.Name) Then...
03.07.2012 07:32:22
Thread-ID: 1269687
5 Beiträge
Anzeige
VBA - Zugriff auf Zwischenablage über API
Andre

Hallo miteinander,
wenn man aus einem Internet-Browser per Strg-c eine Grafik kopiert, an der ein Hyperlink hängt und diese Grafik dann mit Strg-v in eine Excel Tabelle einfügt, hängt der Hyperlink wieder mit dran.
So weit so gut.
Ich habe ein Makro geschrieben, welches mir per API...
05.12.2012 20:04:37
Thread-ID: 1289513
5 Beiträge
Anzeige
If not ActiveCell bewegt sich senkrecht Then
Lutz

Hallo Experten,
Leider sind meine VBA-Kenntnisse noch sehr begrenzt, deshalb kann ich mein Befehl auch nur in Englisch-Deutsch-VBA :0) wiedergeben.
If not ActiveCell bewegt sich senkrecht Then
Befehl1
Else
Befehl2
End If
Vielleicht kennt jemand den Rest, danke.
...
24.06.2013 12:40:14
Thread-ID: 1319322
20 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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