Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
792to796
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
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nocheinmal Zeichenlänge in Userform

Nocheinmal Zeichenlänge in Userform
26.08.2006 15:42:20
Rene
Hallo!
Möchte gern Text in Labels prüfen. Diesen Code habe ich dafür bekommen (siehe Thread 25.08.2006 19:10:07)
If InStr(strT, "0190") Or _
InStr(strT, "0180") Or _
InStr(strT, "0137") Or _
InStr(strT, "0900") Or _
InStr(strT, "+") Or _
InStr(strT, "00") Or _
InStr(strT, "0136") Then
Leider habe ich gerade feststellen müssen, dass dieser Code doch fehlerhaft arbeitet. Ich möchte nur die ersten zwei oder die ersten 4 stellen prüfen. InStr prüft aber den gesamten Eintrag. Es werden auch Nummern für ungültig erklärt, die zwischen drinnen bei InStr angegebene Zeichen enthalten. Es sollen aber nur Inhalte ungültig sein, die mit 00 oder 0190 (siehe Code) beginnen. Einträge wie z.B. 010017 sollen aber gültig sein, also keine Fehlermeldung erzeugen. Wie stelle ich das an? Danke!
Gruß, Rene

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nocheinmal Zeichenlänge in Userform
ransi
Hallo Rene
versuch es doch mal so:


Option Explicit
Public Sub test()
Dim arr
Dim I As Integer
Dim str As String
arr = Array("0190", "0180", "0137", "0900", "+", "00", "0136")
str = "01364711"
For I = 0 To UBound(arr)
    If Left(str, Len(arr(I))) = arr(I) Then
        MsgBox "Mach was "
    Else:
        MsgBox "Mach was anderes"
    End If
Next
End Sub


Str ist ein Beispielwert.
ransi
Anzeige
AW: Nocheinmal Zeichenlänge in Userform
26.08.2006 16:00:06
Matthias
Hallo Rene,
z.B. so:

Sub test()
Dim strT As String
strT = "0190123456"
Dim Treffer As Boolean
Dim Liste, Element
Liste = Array("0190", "0180", "0137", "0900", "+", "00", "0136")
For Each Element In Liste
If Left(strT, Len(Element)) = Element Then
Treffer = True
Exit For
End If
Next Element
MsgBox Treffer
End Sub

Gruß Matthias
AW: Nocheinmal Zeichenlänge in Userform
26.08.2006 16:01:10
ingUR
Hallo, Rene,
Heir die Abfrage, die nur die ersten (Left) Zeichen eines Strings untersucht Left(Zeichenkette, Anzahl der zu untersuchenden Buchstaben von links)
If Left(strT,4)= "0190" Or _
Left(strT,4)= "0180" Or _
Left(strT,4)= "0137" Or _
Left(strT,4)= "0900" Or _
Left(strT,1)= "+" Or _
Left(strT,2)= "00" Or _
Left(strT,2)= "0136" Then
Bei dem "+" bin ich nicht sicher, wa Su wirklich willst, da Du von vier und zwei Stellen am Kettenanfangs schreiobst:
Instr(Left(strT,2),"+") prüft die ersten beiden Zeichen der Kette, ob mindestens ein Plus vorkommt. Darauf folgende Zeichen werden nicht in die Untersuchnung einbezogen:
0+0056700+7 wird heraugefiltert,
++0056700+7 wird heraugefiltert,
+00056700+7 wird heraugefiltert,
0-0056700+7 wird nicht heraugefiltert.
Gruß,
Uwe
Anzeige
AW: Nocheinmal Zeichenlänge in Userform
26.08.2006 16:13:21
Rene
Hallo Uwe!
Danke, funktioniert soweit ganz gut. Das "+" ist das Pluszeichen, welches man gewöhnlich vor die Landesvorwahl (Telefonnummer) setzt. Und genau das soll als Fehler erkannt werden und wird es dank Deines Code's auch.
Gruß, Rene

94 Forumthreads zu ähnlichen Themen

Autofilter zeigt nicht alles an
thomas

Hallo,
In einem Tabellenblatt sind 1752 Zeilen ausgefüllt. Der Autofilter zeigt in seiner Auflistung nur 1426 Zellwerte an.
Weis jemand woran das liegt?
Danke für die Hilfe
thomas
29.08.2008 15:59:23
Thread-ID: 1005882
4 Beiträge
Anzeige
SummenArray via VBA od. Formel mit JokerZeichen
Andreas

Hallo Herber Fans,
seit gestern Abend beschäftigt mich ein Thema, welches an sich banal klingt. Ich habe es in der ursprünglichen Form aber leider nicht lösen können.
Es geht um SummeWenn, die mit 4 Kriterien arbeiten soll. An sich kein Problem. Diese Kriterien kommen aus einer DropDown...
11.12.2008 19:46:11
Thread-ID: 1032195
3 Beiträge
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Anzeige
Pivot zeigt nicht alle Daten an - Mit bsp xls
Julia

Hallo,
habe Problem mit meiner Pivot in der Mappe History, siehe xls
https://www.herber.de/bbs/user/60692.zip
Wieso wird der Vorgang-1009 nicht in der Pivottabelle dargestellt?
Ich habe für dieses Pivot einen Namen definiert als Bezugsquelle, der Name lautet: datenbasis
Und...
26.03.2009 12:19:15
Thread-ID: 1064191
4 Beiträge
Euro-Zeichen in Menüleiste
Rudi

Liebe Experten,
seit ein paar Tagen wird mir, wenn ich auf das Euro-Zeichen in der Menüleiste klicke, die entsprechende Zeile so angezeit: €1,00 (Format: Buchhaltung, 2-stellig).
In der Vergangenheit war es immer 1,00 €, was ich auch möchte.
Was habe ich denn da verstellt und wie k...
07.07.2009 12:41:59
Thread-ID: 1086934
3 Beiträge
Summe zeigt nichts an
walli

Guten Morgen,
ich habe eine Summe gebildet von
=SUMME(C8:Y8)
das sind die Werte jeweils pro Monat,es wird mir nichts
angezeigt, nur wenn ich die Monate alle mit Zahlen belegt habe.
mfg walli
10.10.2009 11:45:31
Thread-ID: 1108715
6 Beiträge
Strich statt EURO-Zeichen | Herbers Excel-Forum
Wolfgang
Hallo,
in meinen Berechnungen kommt seit einiger Zeit nur ein | obwohl ich das € - Zeichen formatiert habe.
Bitte um einen Lösungsvorschlag. Danke.#
mfg. Wolfgang
09.02.2010 08:26:41
Thread-ID: 1136884
2 Beiträge
Userformzeigt nicht an!?
ing.grohn

Hallo Forum,
meine Userform besteht aus genau 4 Textboxen. Die Userform soll mich über den Stand der Dateikonvertierung informieren. Ich seh aber nichts (die Userform schon, aber keine Zahlen)!
Warum nicht?
Hier der Code: Sub Textdatei_lesen() Dim Textzeile Dim Datum1 As String Dim...
02.03.2010 18:25:00
Thread-ID: 1142819
9 Beiträge
Anzeige

Links zu Excel-Dialogen

Label UserForm

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
3
6
2
3
3
3
2
5
1
8
1
1
10
5
2
1
1
2
5
11
7
6
4
3
2