Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
440to444
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
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kommaseparierten string schnell in array einlesen

kommaseparierten string schnell in array einlesen
15.06.2004 10:08:53
PeterP
Hallo!
Hat jemand von Euch schnell ein Konstrukt parat, wie ich einen String (aus Variable, z.b. "1,a,2,b,3,c,4,d ...) schnell in ein zweidimensionales Array einlesen kann
[im Beipiel also alle Zahlen in arr(1,x) und die Buchstaben in arr(2,x)]?
Danke
Peter

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

Betreff
Datum
Anwender
Anzeige
AW: kommaseparierten string schnell in array einlesen
NE
Hi Peter,
meinst Du so:
Option Explicit

Sub x()
Dim s$, arr1, arr2
s = "1,a,2,b,3,c,4,d"
arr1 = Split(s, ",")
ReDim arr2(UBound(arr1), 1)
For i = 0 To UBound(arr1)
If IsNumeric(arr1(i)) Then
arr2(i, 0) = arr1(i)
Else
arr2(i, 1) = arr1(i)
End If
Next
Range(Cells(1, 1), Cells(UBound(arr2) + 1, 2)) = arr2
End Sub

Gruss Nancy
AW: kommaseparierten string schnell in array einlesen
15.06.2004 12:59:41
PeterP
Hallo Nancy,
ich habs jetzt so gelöst:

Function chgForbidden(strIN As String) As String
'# Code by PeterP
'# führt Seach&Replace auf einen String aus und ersetzt die in strSR angegebenen Paare
'# Syntax für strSR:
'# inString1=outString1; inString2=outString2; ... (Space nach dem Semikolon beachten!)
Dim i%, j%, arrSR0() As String, arrSR() As String, strSR As String, strOUT As String
strOUT = strIN
strSR = "ä=ae; ö=oe; ü=ue; Ä=AE; Ö=OE; Ü=UE; ß=ss; \=_; /=_; :=_; *=_; ?=_; ""=_; <=_; >=_; |=_"
arrSR0 = Split(strSR, "; ")
For i = LBound(arrSR0) + 1 To UBound(arrSR0) + 1
ReDim Preserve arrSR(2, i)
arrSR(1, i) = Left(arrSR0(i - 1), InStrRev(arrSR0(i - 1), "=") - 1)
arrSR(2, i) = Mid(arrSR0(i - 1), InStrRev(arrSR0(i - 1), "=") + 1)
Next i
For j = 1 To UBound(arrSR, 2)
On Error Resume Next
strOUT = Replace(strOUT, arrSR(1, j), arrSR(2, j))
Next j
chgForbidden = strOUT
Erase arrSR0
Erase arrSR
End Function

vielen dank für die anregungen!
für tips zu verkürzungsmöglichkeiten bin ich sehr dankbar!
gruß
peter
Anzeige
AW: kommaseparierten string schnell in array einlesen
NE
Hi Peter,
hm, nur so 'ne Idee:

Function anders(s As String)
Dim i%, id%, oldS, newS
oldS = Array("ä", "ö", "ü", "ß")
newS = Array("ae", "oe", "ue", "ss")
For i = Len(s) To 1 Step -1
For id = 0 To UBound(oldS)
If InStrRev(Mid(s, i, 1), oldS(id)) Then s = Replace(s, oldS(id), newS(id))
Next
Next
End Function

Gruss Nancy

301 Forumthreads zu ähnlichen Themen

Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Anzeige
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
VBA: String+TAB an inaktives Windowsfenster senden
Melanie

Hallo allerseits,
ich moechte aus Excel heraus mit VBA code einen String (z.b "Hallo") + TAB (oder ENTER) an ein 'fremdes' WindowsapplicationFenster schicken (keine Officeanwendung), wobei das Fensterhandle (oder auch das entsprechende TextFeldHandle bekannt sind).
Allerdings soll die...
09.12.2008 08:37:52
Thread-ID: 1031241
9 Beiträge
Anzeige
Wert suchen, eintragen, weitersuchen (VBA)
Nico

Moin
Nachdem ich Gestern mein Problem mit einem Sverweis über mehrere Zellen lösen wollte (Danke nochmal an Josef Ehrensberger) habe ich heute feststellen dürfen, dass es zwar funktioniert - aber die Verzögerung auf Grund der Masse an Daten doch zu hoch ist.
Hier also mein Problem zieml...
26.02.2009 09:19:15
Thread-ID: 1054225
11 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
String im Array suchen und Treffer anzeigen
Udo

Hallo,
ich bräuchte mal Eure fachmännische Hilfe.
Ich möchte einen Begriff aus einer TextBox in 12 verschiedenen Tabellenbättern suchen, und die gefundenen Einträge mit den entsprechenden Tabellenblatt-Namen anzeigen lassen.
Meine bisherigen "Versuche" lassen mich verzweifeln ...
29.11.2009 00:45:36
Thread-ID: 1120753
24 Beiträge
Array In Vba
@lex

Hallo VBA-Spezialisten !
Seit graumer Zeit suche ich ein Code-Gerüst um Arrays in VBA zu programmieren.Hintergrund:
Ich habe ca. 500 Shapes (MSMap) in einem Blatt.
Mit einer Schleife wird jedes Objekt auf eine Eigenschaft geprüft.
Ist die Prüfung wahr, dann soll dieses Objekt der Se...
12.04.2002 11:59:16
Thread-ID: 112756
4 Beiträge
String zeichenweise in Array einlesen
Olli

Hi,
habe folgendes Problem: ich habe eine String-Variable und ein Array welches so groß wie der String lang ist. Ich möchte nun das 1.Zeichen des String in Array(0) das 2.Zeichen in Array(1), etc. schreiben.Beispiel:
variable="Hallo"
laenge=Len(variable)
ReDim ZeichenArray(laenge-1)...
12.04.2002 12:31:09
Thread-ID: 112770
4 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
2
12
1
8
5
10
8
23
3
3
9
4
1
3
3
1
6
2
3
3
4
2
4
4
5