Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1844to1848
1844to1848
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eindim Array ohne Leer aus Spaltenrange

Forumthread: Eindim Array ohne Leer aus Spaltenrange

Eindim Array ohne Leer aus Spaltenrange
27.08.2021 08:46:37
SchubertFranzl
Hallo
könnt Ihr mir bitte helfen?
Gegeben: Array mit Texten und Leerstellen, im Beispielmakro erzeugt aus einem Spaltenrange.
Gesucht:
Eindimensionales Array mit allen Einträgen, aber ohne Leereinträge.
Wenn geht, ohne Schleife.
Eindimensionales Array geht (= Vektor), aber Leereinträge entfernen?
Hier das Makro, wo dieses eindimensionale Array namens Ergebnis erzeugt werden soll. 

Sub Array1()
Dim Vektor As Variant
Range("C4") = "Auto"
Range("C5") = ""
Range("C6") = "Baum"
Range("C7") = "Blume"
Vektor = WorksheetFunction.Transpose(Range("C4:C7"))
Debug.Print Join(Vektor, vbCr)  'Kontrollausdruck
Dim Ergebnis As Variant
End Sub
Habe es mit Filter(array) probiert, bekomme es aber nicht hin.
LG, Franz
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eindim Array ohne Leer aus Spaltenrange
27.08.2021 09:10:47
Daniel
Hi
Wie hast du den Filter angewendet?
Alternativ so:

For each X in Range("C4:C7").Value
IF x  "" then txt = txt & "|" & X
Next
Vektor = Split(Mid(txt, 2); "|")
Gruß Daniel
AW: Eindim Array ohne Leer aus Spaltenrange
27.08.2021 09:13:30
Rudi
Hallo,
ohne Schleife wird das nichts.

Sub Array1()
Dim Vektor(), i As Long
Dim a As Range, c As Range
Range("C4") = "Auto"
Range("C5") = ""
Range("C6") = "Baum"
Range("C7") = "Blume"
ReDim Vektor(Application.CountA(Range("c4:c7")) - 1)
For Each a In Range("C4:C7").SpecialCells(xlCellTypeConstants).Areas
For Each c In a.Cells
Vektor(i) = c
i = i + 1
Next c
Next a
Debug.Print Join(Vektor, vbCr)  'Kontrollausdruck
End Sub
Gruß
Rudi
Anzeige
AW: Eindim Array ohne Leer aus Spaltenrange
27.08.2021 10:09:51
PawelPopolski
Hallo,
keine Ahnung, ob das performanter oder im Ergebnis aufwändiger ist, aber ich hatte folgende Idee:
Werte filtern (geht sicher auch mit Spezialfilter) und dann die gefilterten Werte ins Array.
Option Explicit

Sub Array1()
Dim Vektor As Variant
Range("C3") = "Text"
Range("C4") = "Auto"
Range("C5") = ""
Range("C6") = "Baum"
Range("C7") = "Blume"
Dim rng As Range
Set rng = Range("C3:C7")
rng.AutoFilter 1, Criteria1:=""
Range("C4:C7").SpecialCells(xlCellTypeVisible).Copy Range("F1")
ActiveSheet.ShowAllData
Dim lRow As Long
lRow = Range("F3").CurrentRegion.Rows.Count
Vektor = WorksheetFunction.Transpose(Range("F1:F" & lRow))
Debug.Print Join(Vektor, vbCr)  'Kontrollausdruck
Dim Ergebnis As Variant
End Sub

Anzeige
AW: Eindim Array ohne Leer aus Spaltenrange
27.08.2021 13:43:56
GerdL
Hallo Franz,
du könntest die Quelle manipulieren.

Sub Unit()
Dim Vektor As Variant
Range("C4") = "Auto"
Range("C5") = ""
Range("C6") = "Baum"
Range("C7") = "Blume"
Range("C4:C7").Replace "", "TEST", xlWhole
Vektor = Filter(WorksheetFunction.Transpose(Range("C4:C7")), "TEST", False, vbTextCompare)
Range("C4:C7").Replace "ACDC", "", xlWhole
Debug.Print Join(Vektor, vbCr)  'Kontrollausdruck
End Sub
Gruß Gerd
Anzeige
AW: Eindim Array ohne Leer aus Spaltenrange
28.08.2021 15:46:36
SchubertFranzl
Wieder was gelernt.
Danke für Eure interessanten Vorschläge.
LG, Franz
;

Forumthreads zu verwandten Themen

DIM zusammenfassen
Wolfgang

Hallo,
gibt es eine Möglichkeit, den untenstehenden Auszug irgendwie zusammenzufassen z.B. Dim tempText(): tempText40() As String? - Ich bekomme das irgendwie nicht hin. Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
Wolfgang
Dim tempText() As String, tempText1() As St...
15.09.2008 10:59:06
Thread-ID: 1009712
13 Beiträge
@Nepumuk - mehrdimensionale ArraySortierung in ASP
Martin

Hallo Nepumuk,
ich bin bereits seit 2001 Mitglied und regelmäßiger Besucher hier im Forum. Allerdings stelle ich heute ausnahmsweise einmal eine "Nicht-Excel"-Frage. Ich beschäftige mich neben Excel VBA auch mit ASP (Active Server Pages), die ebenfalls auf Visual Basic basieren. Auch mit AS...
11.01.2009 14:10:00
Thread-ID: 1038651
9 Beiträge
Funktion Range asl Rückgabewert?
Horst

Hey !
Ich habe gelesen das ich nur in einer Funktion eine Wertrückgabe definieren kann?
Ich habe aber nur String, Boolean, Integer usw. als mögliche Rückgabewerte gefunden
kann ich auch einen Weterbereich (Range) oder sogar ein ganzes WorkSheet zurückgeben?
Also wie z.B.
-...
30.01.2009 08:20:00
Thread-ID: 1045279
4 Beiträge
Anzeige
Worksheet_Change(ByVal Target As Range)
Axel

Ein schönes Wochenende zuvor wünschend!
Aufgabenstellung:
Ich möchte in einer Zelle einen Wert schreiben, was ein Makro auslösen soll. In einer Zweiten soll dadurch automatisch eine Umrechenformel einfügt werden. Auf diese Weise kann man (trivial, nur als Beispiel) bei der Bedienung ein...
06.03.2009 15:21:33
Thread-ID: 1057353
7 Beiträge
Anzeige
Worksheet_Change(ByVal Target As Range)
Axel


Hallo Könner,
mal wieder an einem Punkt angekommen, wo ich echt nicht weiß, ob die PCs was Magisches können.
Das Makro unten ist prima gelaufen. Und dann mal wieder nicht. Jetzt gerade mal wieder nicht, daher mein Hilferuf. Als mir das das erste Mal passiert ist, habe ich den ganze...
13.03.2009 12:08:19
Thread-ID: 1059821
5 Beiträge
Probleme Worksheet_Change(ByVal Target As Range)
Ron

Hallo Leute,
habe mir vor einigen Wochen hier im Forum von Daniel helfen lassen und wollte nun den von ihm geposteten Script ein wenig auf meine Bedürfnisse umschreiben. Leider bin ich wohl zu blöd...
Es wäre Klasse, wenn mir jemand helfen könnte!
Ausgangslage:
Ich möchte in ein...
28.04.2009 04:06:20
Thread-ID: 1071514
4 Beiträge
Set rngOld = ActiveCell in Row ändern möglich?
Karsten

Hallo,
ich möchte einen Befehl abändern.
Dim rngOld As Range
Set rngOld = ActiveCell
Range("a10").Select
rngOld.Select
End Sub
Er soll jetzt so ausgeführt werden, dass nicht die alte Zelle sondern in der alten Zeile die Zelle in der 10 Spalte angesteuert wird. Geht...
27.07.2009 17:08:37
Thread-ID: 1091676
11 Beiträge
Range zusammenfassen (Code abkürzen)?
Florian

Guten Morgen Excel-Volk!
Habe eine Frage bzgl. Ranges: habe oft verschiedene, nichtzusammenhängende Bereiche, die gleich formatiert werden sollen, z.B.
With .Range(.Cells(8, 2), .Cells(8, 45))
.[FORMAT]
End With
With .Range(.Cells(17, 2), .Cells(17, 45))
.[gleiches FORM...
05.02.2010 07:54:34
Thread-ID: 1135993
3 Beiträge
Eindimensionales Array mit Range("A1:B40000") bild
Peter

Hallo Forum
In den Spalten A und B sind je 40.000 Werte und ich möchte die Unikate in Spalte D ausweisen.
Wie bekomme ich den Range("A1:B40000") in ein eindimensionales Array eingelesen.
Bisher kopiere ich die Spalten untereinander (bis 65536 Zeilen) und lese die Werte dann ein... <...
16.05.2010 13:39:12
Thread-ID: 1157244
5 Beiträge
VBA: Range eindimensionell an Funktion übergeben
axel_k

Hi,
ich möchte aus einer Tabelle Werte aus einer Spalte in eine Funktion einlesen: Function bla(daten) End Function
Wenn ich das tue, liegt daten als (n,1)-Matrix zweidimensional vor.
Kann ich daten irgendwie so einlesen, dass ich einen eindimensionalen Vektor (daten(n)) erhalte?...
31.05.2010 12:02:47
Thread-ID: 1159570
7 Beiträge
Anzeige
Private Sub Worksheet_Change(ByVal Target As Range
ing.grohn

Hallo Forum,
Worksheet_Change ist eine wunderbare Sache! (wenn sie funktioniert)
Also:
ich arbeite in einem Blatt mit: Private Sub Worksheet_Change(ByVal Target As Range)
funktioniert alles super. Nur manchmal tut das nicht!!!!
Excel beenden, neu starten, alles klar und funk...
17.06.2010 09:43:52
Thread-ID: 1162378
11 Beiträge
"dim [Variable] as new word.application" HILFE!!
Stefan

Hallo Miteinander,
könnt Ihr mir weiterhelfen? In Excel-VBA kann ich irgendwie nicht mit anderen Office-Programmen arbeiten. Wenn ich die Variable "wApp" als neue Word-Applikation dimme, bekomme ich eine Fehlermeldung: "Benutzerdifinierter Typ nicht definiert" Was mache ich hier falsch? Kann...
29.04.2002 10:18:15
Thread-ID: 117062
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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