Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1844to1848
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
1844to1848
1844to1848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

98 Forumthreads zu ähnlichen Themen

Dim Zelle As Range, Farbe As Long
sockel939

Hallo,
sagt mal wie bekomme ich den code dazu nicht die Zellenfarbe zu ändern sondern die Schriftfarbe.
Habe mal statt Interior , Font eingetragen dann bleibt er aber Hängen.
Dim Zelle As Range
Dim Farbe As Long
For Each Zelle In Range("m2:m1000")
Select Case Zelle.Value...
21.08.2008 10:04:00
Thread-ID: 1003376
5 Beiträge
Anzeige
@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


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
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
4
12
8
3
6
4
3
10
2
4
6
10
3
2
5
2
2
9
4
2
3
7
4
1
1