Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1232to1236
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
1232to1236
1232to1236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichen aus Zeichenkette per VBA auslesen?

Zeichen aus Zeichenkette per VBA auslesen?
Stefan
Hallo zusammen,
in einer Zelle stehen folgende Zeichenketten: CS_XYZ_1 oder DR_1234
Wie kann ich per VBA die Zellen ansprechen, die ein CS_ als Anfang haben?
Danke für Eure Hinweise.
AW: Zeichen aus Zeichenkette per VBA auslesen?
13.10.2011 09:39:56
Henrik
Hallo,
ich denke mit der Mid.Funktion kommst du weiter

Public Sub hen()
Dim strZelle As String
strZelle = "DR_1234"
MsgBox Mid(strZelle, 1, 3)
End Sub

AW: Zeichen aus Zeichenkette per VBA auslesen?
13.10.2011 09:41:11
marcl
Hallo Stefan,
If Left(....,2)="CS" then ...
Gruß
marcl
AW: Zeichen aus Zeichenkette per VBA auslesen?
13.10.2011 10:08:16
Stefan
danke euch
If .Cells(Left(iCntRows, 3), 2) = "CS" liefert aber bei mir nicht das ergebnis, obwohl in der Zelle CS1234 steht.
Mach ich was falsch?
AW: Zeichen aus Zeichenkette per VBA auslesen?
13.10.2011 10:34:19
Oliver
Hallo marcl;
versuch's mal mit:
if instr(.cells(iCntRows,3),"CS") then...
gruß
olli
AW: Zeichen aus Zeichenkette per VBA auslesen?
13.10.2011 10:47:24
Stefan
Jaa, das funktioniert. Super. Danke.
AW: Zeichen aus Zeichenkette per VBA auslesen?
13.10.2011 11:45:24
Henrik
Um die Performance wirklich hoch zu halten, falls man mit sehr großen Datenmengen arbeitet, ist die Mid-Function etwas schneller:
Hier zum Testen:

Public Sub langsam()
Dim lngA As Long
For lngA = 1 To 400000
If InStr(Cells(1, 1), "CS") Then
End If
Next
MsgBox "Fertig"
End Sub
Public Sub schneller()
Dim lngA As Long
For lngA = 1 To 400000
If Mid(Cells(1, 1), 1, 2) = "CS" Then
End If
Next
MsgBox "Fertig"
End Sub
Ich schätze so ca. ein Drittel schneller ist die Mid-Funktion hierbei.
Gruß Henrik
Anzeige
Letzte Erkenntnisse
13.10.2011 12:03:40
Henrik
Was vielleicht noch interessant ist:
Am langsamsten wäre die Verwendung von: Cells(1, 1).Text
viel besser: Cells(1, 1).Value
noch etwas besser aber ist: Cells(1, 1)
So jetzt aber genug dazu :-)

54 Forumthreads zu ähnlichen Themen

Teile eines Strings auslesen
Joachim

Hi,
wie kann ich denn einen Teil eines Strings auf dem Sheet "data" in der Zelle B10 auslesen. und zwar folgender massen:
Die Einträge könnten so aussehen:
GBm123456
ATU12478
GM123587
Dabei interessieren mich aber nur die Buchstaben, ABER der wahrscheinlich Hauptproblem:...
05.12.2008 09:10:18
Thread-ID: 1030353
6 Beiträge
Anzeige
per VBA Teile einer Zelle formatieren
Steinritz

Hallo!
Ich habe folgendes Problem:
Habe in Excel mit der VERKETTEN Funktion 4 Zellen verkettet.
Im Ergebnis z.B.
Nach Abzug der Gebühr in Höhe von 10,- € ergibt sich ein Gesamtbetrag von 200,- €.
Jetzt möchte ich in dieser Zelle nur den letzen Zahlenwert mit dem Währungssymb...
10.09.2009 18:45:11
Thread-ID: 1101849
3 Beiträge
Leerzeichen innerhalb eines Strings finden
pitmu1@web.de

Hallo zusammen,
wer kann mir sagen, wie man das 2. Leerzeichen von rechts innerhalb eines Strings finden kann.
Möglicherweise ohne VBA.
Danke im voraus
17.09.2009 09:40:42
Thread-ID: 1103455
3 Beiträge
Anzeige
VBA die letzten 4 Zeichen in einem String löschen
andreas

Hallo zusammen,
ich lese die Zelle "k12" als Variable ein und möchte dabei immer die letzten 4 Zeichen löschen
Modellname = Left(("k12"), Len("k12") - 4)
was ist falsch geschrieben?
Danke für die Hilfe
19.02.2010 11:58:31
Thread-ID: 1139731
4 Beiträge
Zeichen in Strings zählen/finden, neue Zeilen !
Holger

Hallo,
Au Backe. Alles geschaffz, nun eine komplette andere Anforderung.
Ich hoffe, ihr könnt mir helfen.
Innerhalb eine Zeile kann es so einen .Value, also String geben:
BB8520,BB8520BLUE,BB8520LAV,BB8520WHITE
Ich möchte zählen, wieviel Kommas es gibt und den String danach...
22.06.2010 15:38:56
Thread-ID: 1163465
12 Beiträge
VBA:verschiebung von Teiltext einer Zelle in ande
Teiltext

Hallo Zusammen,
ich habe ein Proplem und hoffe hier kann mir geholfen werden!
ich habe eine ewig lange Liste mit ca. 500 Einträgen in Spalte B. Spalte A ist nur die Nummerierung dieser Einträge. In Spalte B befinden sich Firmennamen, sowie deren Produkte. Beides ist durch ein Minus abge...
27.01.2011 15:00:27
Thread-ID: 1197647
3 Beiträge
Länge eines gesuchten Teil eines Strings bestimmen
Holger,

Hallo liebes Forum,
langer Titel für mein Problem.
In meinem string SOMMER;HERBST;WINTER kann es auch ein Others geben
z.B SOMMER;HERBST;;WINTER oder SOMMER;HERBST;Others,WINTER.
Others kann s also in verschiedenen Schreibweisen geben (aber es kommt nur einmal vor), daher habe i...
14.02.2011 15:39:42
Thread-ID: 1200725
6 Beiträge
Letzten Teil eines Strings weglassen
Tom

Hallo,
ich hätte noch eine Bitte.
In einer Spalte A habe ich pro Zeile einen Dateipfad in der Form:
Spalte A:
\\192.168.2.11\aaa\bbb\ccc\datei1.doc
\\192.168.2.11\xxx\yyy\zzz\datei2.doc
\\192.168.2.11\xxx\yyy\zzz\datei3.doc
Diese Spalte A möchte ich in dieses Ergebni...
31.12.2013 09:23:35
Thread-ID: 1343773
6 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
5
2
2
2
13
3
11
2
5
5
6
14
6
6
2
1
3
8
8
2
6
1
1
2
4