Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1388to1392
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
1388to1392
1388to1392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

aus Union-Range einzelne Werte auslesen

aus Union-Range einzelne Werte auslesen
31.10.2014 12:47:21
Peter
Hallo Excel Experten,
ich habe ein Tabellenblatt mit 53 Spalten und x Zeilen.
Aus diesem Tabellenblatt sollen nach mehreren (6) Kriterien Zeilen ausgewählt werden.
Das kann man ja eigentlich gut mit Union machen und hat dann einen Range der benötigten Zeilen.
Für diese gefundenen Zeilen soll ein Extrakt aus 6 Spalten erzeugt werden.
Kann man aus dem Union-Range wieder einzelne Zeilen auslesen, und wenn ja, wie.
Oder ist es besser, die Zeilen gleich in ein Array zu speichern, das man dann ganz bequem auslesen kann.
Für sachdienliche Hinweise bereits vielen Dank im Voraus.
Gruß Peter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aus Union-Range einzelne Werte auslesen
31.10.2014 12:59:42
Daniel
Hi
wenn du mit Union die Zeilen zusammengestellt hast, kannst du dann mit Intersect aus diesen zeilen Spalten ausschneiden:
dim rngZeilen as Range
dim rngSpalten as Range
dim rngMix as range
set rngZeilen = Union(Rows(2), Rows(4), Range("6:8"), Rows(10))
Set rngSpalten = Union(Columns(3), Columns(5), Range("M:P"))
Set rngMix = Intersect(rngZeilen, rngSpalten)

Gruß Daniel

AW: aus Union-Range einzelne Werte auslesen
31.10.2014 13:11:00
Rudi
Hallo,
einen derart unzusammenhängenden Bereich kannst du aber nicht einfach auslesen.
z.B. gibt Debug.Print rngMix.Cells(3,2) mitnichten den Wert aus E6 wieder, sondern aus D4, da rngMix in C2 beginnt.
Ich würde ein Array nehmen.
Gruß
Rudi

Anzeige
AW: aus Union-Range einzelne Werte auslesen
31.10.2014 13:14:43
Peter
Hallo Daniel, hallo Rudi,
danke für Eure Tipps.
Ich galebe es ist besser, gleich eine Array zur Aufnahmen der infrage kommenden Zeilen zu verwenden.
Gruß Peter

AW: aus Union-Range einzelne Werte auslesen
31.10.2014 13:19:09
fcs
Hallo Peter,
ich würde die Auswertung komplett über Arrays machen.
Gruß
Franz
Code-Beispiel 
Sub Auswertung()
Dim wksData As Worksheet
Dim arrData, arrErgebnis()
Dim Zeile_L As Long, Zeile_D As Long, Zeile_E As Long
Dim bolTreffer As Boolean, intTreffer As Integer
Set wksData = ActiveSheet
With wksData
Zeile_L = .Cells(.Rows.Count, 1).End(xlUp).Row
arrData = .Range(.Cells(2, 1), .Cells(Zeile_L, 54))
End With
intTreffer = 0
'Treffer-Zeilen markieren
For Zeile_D = LBound(arrData, 1) To UBound(arrData, 1)
bolTreffer = True
If Kriterium1 = True Then
If Kriterium2 = True Then
If Kriterium3 = True Then
If Kriterium4 = True Then
If Kriterium5 = True Then
If Kriterium6 = True Then
intTreffer = intTreffer + 1
Else
bolTreffer = False
End If
Else
bolTreffer = False
End If
Else
bolTreffer = False
End If
Else
bolTreffer = False
End If
Else
bolTreffer = False
End If
Else
bolTreffer = False
End If
arrData(Zeile_D, 54) = bolTreffer
Next
'Trefferzeilen auslesen
If intTreffer > 0 Then
ReDim arrErgebnis(1 To intTreffer, 1 To 6)
Zeile_E = 0
For Zeile_D = LBound(arrData, 1) To UBound(arrData, 1)
If arrData(Zeile_D, 54) = True Then
Zeile_E = Zeile_E + 1
arrErgebnis(Zeile_E, 1) = arrData(Zeile_D, 1)
arrErgebnis(Zeile_E, 2) = arrData(Zeile_D, 2)
arrErgebnis(Zeile_E, 3) = arrData(Zeile_D, 7)
arrErgebnis(Zeile_E, 4) = arrData(Zeile_D, 12)
arrErgebnis(Zeile_E, 5) = arrData(Zeile_D, 22)
arrErgebnis(Zeile_E, 6) = arrData(Zeile_D, 34)
End If
Next
End If
Erase arrData
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
Anzeige
Dropdownliste ausgew. gültige Werte aktualisieren
Flo

Hallo allerseits!
Ich habe ein Problem mit der Aktualisierung von bereits ausgewählten gültigen Werten in einer Dorpdownliste. Die gütligen Werte der Dropdownliste werden per Namensdefinition aus einem anderen Excelblatt gefüllt. Nun kommt es öfter mal vor, dass sich die Gültigen Werte im s...
16.08.2008 16:24:00
Thread-ID: 1002344
2 Beiträge
Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Auslesen von Werten aus einer Combobox
Werten

Hallo erstmal,
ich habe eine ComboBox und diese schreibt Werte jeweils in die nächste Zeile.
Wenn ich aber mehrmals hintereinander den selben Wert auswähle passiert leider nichts.
Wie kann ich mehrmals den selben Wert auswählen und jeweils in die nächste Zeile schreiben?
Über ei...
30.08.2008 12:24:00
Thread-ID: 1006032
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
1
1
1
1
9
2
7
2
2
4
5
4
2
1
4
1
1
5
4
10
6
5
3
1
1