Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kommaseparierten string schnell in array einlesen

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
;

Forumthreads zu verwandten 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
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
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
Array-Formel in VBA
Peter

Hallöchen liebe Excel Gemeinde,
ich hab da ein kleines Problem, wo ich hoffe, dass mir die VBA Spezialisten unter Euch helfen können.
Und zwar geht es um folgende Formel im VBA Code:
wb1.Worksheets(letztdat3).Cells(4, d).FormulaArray = _ "=SUM(COUNTIF(INDIRECT("""" & TRANSPOSE...
02.02.2009 17:28:00
Thread-ID: 1046339
6 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
Anzeige
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
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
Per VBA Blank in Zellinhaltsuchen | Herbers Excel-Forum
Thomas Pöppinghaus
Hallo,
ich möchte per VBA den Inhalt einer Zelle prüfen, ob ein Blank oder nicht enthalten ist.
Wenn ich mit Find arbeite und kein Blank enthalten ist, bekomme ich einen Laufzeutfehler. Den könnte ich mit "On Error ..." abfangen. Gibt es eine andere Möglichkeit (d. h. ohne Fehlerbehandlung)...
03.02.2010 15:17:34
Thread-ID: 1135454
10 Beiträge
VBA-Ordner in Ordnerstruktur suchen
andreas

Hallo zusammen,
ich möchte den Ordner mit Wert aus Zelle "K12" im Laufwerk "V" suchen, wenn dieser nicht vorhanden ist "false", dann Rufe ich das Formular "Ordner.show" auf und erstelle nach einer Abfrage den Ordner mit "ChDir "J:\...".
Ist die suche "true" dann mach ich mit der routin...
23.02.2010 13:16:03
Thread-ID: 1140663
5 Beiträge
Array Formel summe wenn in VBA umwamdeln
t.wegmann@hengegroup.com

Hallo Liebes Forum,
ich habe ein Problem mit meiner Array-Formel:
=SUMME(WENN(('DATEN NEU'!$F$2:$F$25048=Frachten!$D4)*('DATEN NEU'!$N$2:$N$25048=Frachten!$F4) *('DATEN NEU'!$X$2:$X$25048=Frachten!H$2);'DATEN NEU'!$AB$2:$AB$25048))
Die Formel funktioniert gut, nur wenn ich die Date...
01.03.2010 09:54:52
Thread-ID: 1142293
2 Beiträge
Anzeige
ArraySumme von ABS Werten in VBA
ABS

Hallo Excel Freunde,
ich stehe gerade bei einer vermutlich banalen Sache auf der langen Leitung.
{=SUMME(ABS(A6:G6)) } Diese ArrayFormel bildet die Summe aller Einzelzellen von A6-G6 aus ihren individuellen ABS Werten.
Wie lautet diese Zeile in VBA, wenn testweise A6-G6 die Selectio...
10.03.2010 20:52:23
Thread-ID: 1144997
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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