Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textbox 4. Zeichen auslesen

Forumthread: Textbox 4. Zeichen auslesen

Textbox 4. Zeichen auslesen
06.08.2007 13:37:19
Hartmut_M
Hallo, habe ein einfaches Problem. Finde nur die Lösung im Moment nicht.
Ich möchte per Makro das 4. Zeichen einer Textbox auslesen. Wo liegt der Fehler bei meinem Code?
If KeyCode = 9 Then
If Left(TextBox1, 4) = 1 Then MsgBox "Hurra"
End If
Hartmut

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbox 4. Zeichen auslesen
06.08.2007 13:48:00
Ramses
Hallo
MsgBox Mid("Mit1e", 4, 1)
Gruss Rainer

AW: Textbox 4. Zeichen auslesen
06.08.2007 14:24:26
Hartmut_M
Hallo Rainer, danke für deine Antwort. Die Formel verstehe ich nicht.
Mein Problem ist, dass ich in einem Formular eine Textbox habe.
Hier möchte ich wissen, wie das vierte Zeichen in der Box lautet.
Wenn das vierte Zeichen eine 1 ist, dann sollen weitere Befehle ausgeführt werden.
Hartmut

Anzeige
AW: Textbox 4. Zeichen auslesen
06.08.2007 14:30:39
Hartmut_M
Hallo Rainer,
habe es jetzt nachvollziehen können.
Zeile muss so lauten:
If Mid(TextBox1, 4, 1) = 1 Then MsgBox "Hurra"
Nochmals danke.
Hartmut
;

Forumthreads zu verwandten Themen

VBA FormulaArray nur 256 Zeichen
Werner

Hallo Zusammen,
ich möchte Formeln einer ziemlich umfangreichen Jahresarbeitsplanung in Excel, per VBA-Code korrigieren, da diese Datei(en) x-mal vervielfältigt und "beplant" sind. (über 100 Dateien mit mittlerweile über 28.000 Formeln je Datei)
Bei einer bestimmten Matrixformelgröße, ü...
25.10.2008 21:25:22
Thread-ID: 1019276
9 Beiträge
SVERWEIS mit Text funktioniert nicht
sascha76er

Hallo,
komme einfach nicht weiter bei meinem Sverweis, vielleicht kann sich jemand mal meine Beispieldatei angucken?
Beispiel: https://www.herber.de/bbs/user/56594.xls
Vorab vielen Dank
Sascha
07.11.2008 13:38:00
Thread-ID: 1022656
5 Beiträge
Makro nur beim ersten Öffnen ausführen
gregor

Guten Morgen!
Kann mir vielleicht jemand bei einem Problem helfen - ich möchte nämlich ein makro nur
beim ersten Öffnen automatisch ausführen - danach nicht mehr!
Geht das irgendwie?
Danke!
27.11.2008 10:09:00
Thread-ID: 1028240
5 Beiträge
Nur 50 Zeichen eines Strings auslesen
Kai

Hi,
ich habe in A1 einen String stehen, den möchte ich auslesen und weiter verwerten. Wenn der String aber über 50 Zeiche hat, sollen nur die ersten 50 Zeichen ausgelesen werden, der Rest kann ignoriert werden.
String = Sheets("Daten").Range("A1")
Wie lesen ich diese aus ?
Dank...
20.05.2009 08:15:40
Thread-ID: 1076201
15 Beiträge
Anzeige
summewenn + Bedingg. "die ersten 5 linken Zeichen"
Matthias

Hallo zusammen,
ich möchte die ersten 5 linken Zeichen (Text) einer Zelle auswerten. Wenn ein Kriterium erfüllt ist, soll summiert werden.
Das Kriterium besteht aus Text. Die Länge kann variieren.
Für Anregungen für eine korrekte Formel bin ich dankbar :-).
TIA und Grüße
Mat...
01.07.2009 12:35:51
Thread-ID: 1085662
3 Beiträge
Nur 50 Zeichen zulassen
marco

hallo,ich habe ein problem, hoffentlich kann mir jemand helfen:in einer userform-textbox möchte ich eine EURO-betrag in buchstaben einfügen. das ist nicht das problem, das klappt auch. es sollen aber nur 50 zeichen zugelassen werden. sollten aber mehr als 50 zeichen eingetragen werden, soll
...
10.04.2002 14:33:42
Thread-ID: 112104
2 Beiträge
Sverweis mit VBA funktionier nicht richtig
F.

Hallo zusammen
Ich möchte zu einer Ziffer, welche ab dem zweiten Blatt in A1 steht, die dazugehörige Bezeichnung aus dem ersten Blatt "Konti" (Spalte B) ziehen und diese dann im Feld B1 eintragen. Irgendwas mache ich falsch.
Sub Konten_bezeichnen() Dim i As Long For i = Sheets("Konti")...
10.03.2010 14:58:20
Thread-ID: 1144879
5 Beiträge
Wenn Funktion in Verbindung mit Links-Funktion
kathy

Hallo Leute,
ich habe Werte die wie folgt aussehen, z.B.:
1-242;1-440.9;1-632;3-200;3-990 oder
5-399.5;5-399.5:R;8-701;8-771
Jetzt benötige ich nur die erste Ziffer. Wenn nach der fünften Stelle ein ";" dann nur die ersten fünf Stellen und wenn ein "." erscheint, dann die erste...
17.03.2011 13:51:42
Thread-ID: 1206129
6 Beiträge
Erstes Zeichen aus Zelle
Fritz_W

Hallo Forumsbesucher,
ich suche nach einer VBA-Lösung als Alternative zur Funktion LINKS.
Mit welchem Code kann ich für alle Zellen (mit Inhalt) ab Zeile D2 in der Spalte E beginnend ab E2 das erste Zeichen in die entsprechende Zeile der Spalte D schreiben lassen?
Vielen Dank für eu...
27.10.2011 12:09:07
Thread-ID: 1235648
8 Beiträge
Wenn Funktion gekoppelt mit Links Funktion
kathy

Hallo Leute,
ich habe zwei verschiedene Zahlenformate (entweder 7 oder 8 stellig), z.B.
- 5-690.1
- 5-790.1C
Wie müsste die Formel aussehen, wenn man sagen möchte,
wenn(zahl 7stellig; dann links 3 zahlenwerte und wenn 8stellig dann links 4 zahlenwerte)
Vielen Dank für Eu...
10.01.2012 23:28:11
Thread-ID: 1245564
4 Beiträge
SVERWEIS mit Linksbezug
Bones26

Hallo!
Ich habe ein Problem mit SVERWEISEN. Die Grundidee verstehe ich, aber wenn es über mehrere Tabellenblätter geht, komme ich leider nicht mehr mit.
Ich habe in einer Tabelle mehrere Tabellenblätter in denen Fälle aufgelistet sind. Ich gebe nun einen Wert aus der Spalte B ein (egal...
26.02.2012 03:14:03
Thread-ID: 1252509
12 Beiträge
Links mit SVerweis Problem
Arthur

Hallo zusammen
Folgendes Szenario:
In A1 steht 123 456 11 - Hallo-
Habe es getrennt:
=LEFT(A1,FIND("-",A1,1) -1) und =RIGHT(A1,LEN(A1) - FIND("-",A1,1))
Jetzt habe ich in B1: 123 456 11
Jetzt habe ich in C1: Hallo-
Soweit gut.
Nun will ich in D1 einen Sverweis:
03.05.2012 18:07:48
Thread-ID: 1262037
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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