Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1700to1704
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
1700to1704
1700to1704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Jeden String nach Zeilenumbruch in Array schreiben

Jeden String nach Zeilenumbruch in Array schreiben
12.07.2019 13:19:39
Waldemar
Guten Tag,
ich habe eine Spalte in der in jeder Zelle verschiedene Werte mit einem Zeilenumbruch getrennt sind. In Zelle P2 steht zum beispiel folgender String:
Name1
Name2
Name3
In Zelle P3 könnte jetzt stehen:
Name1
Name2
Name4
Ich würde gerne wissen wie man eine Variant oder String Array erstellt die folgende Werte hat:
arrayName(0) = Name1
arrayName(1) = Name2
arrayName(2) = Name3
arrayName(3) = Name4
Ich weiß, dass man dafür eine Schleife braucht die man so oft durchläuft wie man
Zeilen in Spalte P hat bzw. -1 oder +1 weil man die Kopfzeile nicht nehmen will.
Ich weiß jedoch auch nicht, wie man das in VBA formulieren soll.
Ich bedanke mich schon einmal im voraus.
Waldi

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

Betreff
Datum
Anwender
Anzeige
AW: Jeden String nach Zeilenumbruch in Array schreiben
12.07.2019 13:28:27
MCO
Hallo Waldi!
    Dim arrayName As Variant
arrayName= WorksheetFunction.Transpose(Selection)

Gruß, MCO
AW: Jeden String nach Zeilenumbruch in Array schreiben
12.07.2019 13:41:12
Waldemar
Hallo MCO,
deine Lösung funktioniert soweit, nur habe ich, wie ich jetzt bemerkt habe, meine Frage nicht richtig gestellt. Ich habe eine Tabelle mit mehreren Spalten und ich würde gerne nur die Werte aus Spalte P übernehmen. Deine Lösung trägt jegliche Zellenwerte in das Array ein. Ich habe versucht die Zeile anzupassen, weiß jedoch nicht was ich als Argument für Selection benutzen soll.
AW: Jeden String nach Zeilenumbruch in Array schreiben
12.07.2019 13:43:05
Daniel
HI
beispielsweise so:
Sub MitTextString()
Dim arrNamen
Dim Zelle
Dim TeilText
Dim Ergebnis As String
For Each Zelle In Range("A1:A2")
For Each TeilText In Split(Zelle.Value, vbLf)
If InStr("|" & Ergebnis & "|", "|" & TeilText & "|") = 0 Then
Ergebnis = Ergebnis & "|" & TeilText
End If
Next
Next
arrNamen = Split(Mid(Ergebnis, 2), "|")
End Sub

hier sammelst du die Werte erstmal in einem Textstring und teilst diese am Schluss ins Array auf.
wenn du weiter ernsthaft mit VBA arbeiten willst, solltest du dir auch mal diese Variante anschauen.
sie nutzt das Dictionary-Objekt.
Das Dictionary-Objekt ist im Pirnzip ein eindimensionales Array mit einem Freitext-Index.
Wenn man das kennt und verstanden hat, lassen sich damit viele schöne Sachen programmieren, besipelsweise komplexe Auswertungen ähnlich einer Pivottabelle, oder superschnelle SVerweis-Varianten für große Datenmengen.
Auch wenn man hier die Möglichkeiten des Dictionarys nur ansatzweise verwendet, ist diese Aufgabe ein gutes Beispiel, das Dictionary kennen zu lernen.
Sub MitDictionary()
Dim arrNamen
Dim Zelle
Dim TeilText
Dim dic As Object
Set dic = CreateObject("scripting.dictionary")
For Each Zelle In Range("A1:A2")
For Each TeilText In Split(Zelle.Value, vbLf)
If Not dic.exists(TeilText) Then dic(TeilText) = 0
Next
Next
arrNamen = dic.Keys
End Sub
Gruß Daniel
Anzeige

308 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