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

gefilterte Tabelle Spalte makieren

Forumthread: gefilterte Tabelle Spalte makieren

gefilterte Tabelle Spalte makieren
22.04.2014 19:24:33
Friedhelm
Hallo,
ich habe in meiner Tabelle folgende Lage:
Duch die Filterung auf ein bestimmtes Datum sind viele Zeilen ausgeblendet. Ich möchte dann aus einer Spalte die Rechnungsnummer auf ein variables Feld legen:
Dim Re_Nr(100) as integer
Danach sollen die einzelnen Re-Nr. bestimmte Makros aufrufen.
Wie bekomme ich die gefilterte Re-Nr. in die Variablen?
vielen Dank für eure Mühe
Schönen Gruß
Friedhelm

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gefilterte Tabelle Spalte makieren
22.04.2014 22:02:04
Tino
Hallo,
hier ein Beispiel.
Sub test()
Dim Re_Nr(), ArData, rng As Range
Dim n&, nn&

For Each rng In Tabelle1.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Areas
    ArData = rng.Columns(2).Resize(, 2) 'Spalte mit RE-Nr Angeben 
    Redim Preserve Re_Nr(Ubound(ArData) + nn - 2)
    For n = 1 To Ubound(ArData)
        If nn > 0 Then
            Re_Nr(nn - 1) = ArData(n, 1)
        End If
        nn = nn + 1
    Next n
Next rng

'Ausgabe 
For n = Lbound(Re_Nr) To Ubound(Re_Nr)
    MsgBox Re_Nr(n)
Next n

End Sub
Gruß Tino

Anzeige
AW: gefilterte Tabelle Spalte makieren
22.04.2014 22:53:35
Friedhelm
Hallo Tino,
super gemacht, es funktioniert.
Ich kann das skript nicht richtig nachvollziehen dennoch vielen Dank.
Ein Bitte noch:
Du hast in der Box die einzelnen Daten angezeigt. kann ich die Daten (Re-Nr) an dieser Stelle in die Windows Zwischenablage geben um sie in einem anderen Programm durch strg+v einzufügen?
Das wäre super
Vielen Dank
Friedhelm

Anzeige
AW: gefilterte Tabelle Spalte makieren
22.04.2014 23:34:12
Tino
Hallo,
versuch mal so.
Dazu wird der Verweis auf Microsoft Forms 2.0 ... gebraucht.
Einfach eine Userform in der Datei erstellen und wieder löschen,
diese Aktion setzt diesen Verweis automatisch.
Sub test()
Dim Re_Nr(), ArData, rng As Range
Dim n&, nn&
Dim obj As DataObject

For Each rng In Tabelle1.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Areas
    ArData = rng.Columns(2).Resize(, 2) 'Spalte mit RE-Nr Angeben 
    Redim Preserve Re_Nr(1 To Ubound(ArData) + nn)
    For n = 1 To Ubound(ArData)
        If nn > 0 Then
            Re_Nr(nn) = ArData(n, 1)
        End If
        nn = nn + 1
    Next n
Next rng

'Ausgabe 
Redim Preserve Re_Nr(1 To nn - 1)
Set obj = New DataObject
With obj
    .Clear
    .SetText Join(Re_Nr, vbCrLf)
    .PutInClipboard
End With
Set obj = Nothing
End Sub
Gruß Tino

Anzeige
AW: gefilterte Tabelle Spalte makieren
23.04.2014 10:36:22
Friedhelm
Hallo Tino,
danke für deine Mühe.
da für mich das Skript nicht nachvollziehbar ist, erkläre mir bitte an welcher Stelle ich ein weiteres Makro aufrufen kann und dann die Re-Nr. mit Strg+v einfügen kann.
Danach soll das Skript weiterlaufen und die nächste Re-Nr bereitstellen.
ich hoffe es ist deutlich geworden welches Ziel ich mit dem skript erreichen möchte.
Schönen Gruß
Friedhelm

Anzeige
AW: gefilterte Tabelle Spalte makieren
23.04.2014 11:02:17
Tino
Hallo,
ich dachte dies ist eine gefilterte Tabelle dann sollten alle noch sichtbaren Nr.
in der Zwischenablage liegen!
Wenn Du jetzt den Filter neu setzen willst und den Code erneut laufen lassen willst,
evtl. einfach auf der Tabelle einen Button und diesem dieses Makro zuweisen,
dann kannst diesen Code so oft wie du möchtest laufen lassen.
Gruß Tino

Anzeige
AW: gefilterte Tabelle Spalte makieren
23.04.2014 12:56:55
Friedhelm
Hallo Tino,
leider habe ich mein Anliegen nicht deutlich genug beschrieben, sorry:
Nach der Filterung der Tabelle sind in einer Spalte die Re-Nr. Die werden jetzt durch dein Skript in ein Feld geladen.
Nun sollen alle Nr. einzeln nacheinander in einem weiteren Makros (M1) arbeiten. Zu dem Zeitpunkt zu dem M1 startet soll die Re-Nr. in der Windows Zwischenablage zur Verfügung stehen.
Hintergrund: Das Makro M1 läßt ein externes Program anlaufen, bei dem die Re-Nr. als Name zum speichern genommen werden soll. Damit es kein es Tippfehler gibt, würde ich es gerne über Einfügen (Strg+v) einbringen.
Ich hoffe, ich habe es jetzt besser rüber gebracht
Danke und schönen Gruß
Friedhelm

Anzeige
AW: gefilterte Tabelle Spalte makieren
23.04.2014 13:39:55
Tino
Hallo,
hier mal eine Variante.
Zuerst die Sub test starten damit die Re-Nr. in RE_Nr gelesen werden.
Danach kannst Du wenn Du im Excel bist mit der Tastenkombination Strg+Alt+c
die Einträge nacheinander in die Zwischenablage kopieren.
Mango für jeden nächsten Eintrag musst Du zu Excel zurückkehren und
die Tastenkombination ausführen.
Dim Re_Nr()

Sub test()
Dim ArData, rng As Range
Dim n&, nn&

For Each rng In Tabelle1.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Areas
    ArData = rng.Columns(2).Resize(, 2) 'Spalte mit RE-Nr Angeben 
    Redim Preserve Re_Nr(1 To Ubound(ArData) + nn)
    For n = 1 To Ubound(ArData)
        If nn > 0 Then
            Re_Nr(nn) = ArData(n, 1)
        End If
        nn = nn + 1
    Next n
Next rng
Redim Preserve Re_Nr(1 To nn - 1)
Application.OnKey "^%c", "Einzel_RE_nach_ZW"
End Sub

Sub Einzel_RE_nach_ZW()
Static nIndex&
On Error GoTo ErrorHandler:
nIndex = nIndex + 1
If nIndex = 0 Or nIndex = Ubound(Re_Nr) Then
    nIndex = Lbound(Re_Nr)
End If

With New DataObject
    .Clear
    .SetText Re_Nr(nIndex)
    .PutInClipboard
End With
MsgBox "Aktueller Eintrag in Zwischenablage:" & vbCr & "Index: " & nIndex & vbCr & "Re-Nr.: " & Re_Nr(nIndex), vbInformation
Exit Sub

ErrorHandler:
nIndex = 0
Application.OnKey "^%c"
MsgBox "keine RE Nr. vorhanden!", vbCritical
End Sub

Gruß Tino

Anzeige
AW: gefilterte Tabelle Spalte makieren
23.04.2014 13:49:36
Tino
Hallo,
mach noch aus der Zeile
If nIndex = 0 Or nIndex = Ubound(Re_Nr) Then
diese
If nIndex = 0 Or nIndex > Ubound(Re_Nr) Then
Gruß Tino

AW: gefilterte Tabelle Spalte makieren
25.04.2014 09:11:05
Friedhelm
Hallo Tino,
ich konnte leider nicht eher antworten.
vielen Dank für die Mühe, die du dir gemacht hast.
Ich werde in den nächsten Tagen versuchen das Ganze in mein Programm einzubinden.
Bis bald mal
Friedhelm
Anzeige
;

Forumthreads zu verwandten Themen

Gefilterte Dateien in txt exportieren
Gerhard

Namd zusammen
Gibt es eine Möglichkeit ausschliesslich gefilterte Dateien in eine txt Datei zu speichern?
Habe eine grosse Tabelle aus der ich nur einzelne Spalten (andere Spalten sind via VBA ausgeblendet) benötige und aus diesen noch sichtbaren Spalten via Autofilter nochmals eingren...
18.08.2008 21:35:19
Thread-ID: 1002746
4 Beiträge
Anzeige
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Anzeige
Nur gefilterte Zeilen in ein Textfeld übergeben
Heiko

Hallo an alle,
ich brauche ein wenig Hilfe. Ich bin gerade dabei aus einem ziemlich breiten (unübersichtlich geworden) Sheet die gewünschten Werte in eine Form (Textfeld) zu übergeben.
Ich bekomme es leider nicht hin, dass nur die gefilterten Zeilen im Textfeld erscheinen sollen.
Ic...
05.11.2008 19:59:37
Thread-ID: 1022076
7 Beiträge
Gefilterte Zeilen/ Spalten Kopieren
Falk

Hallo zusammen,
folgendes Problem für mich:
Ich filtere den Bereich von A1:CD1000. Der Filter wird je nach Anforderung auf verschiedene Spalten gesetzt.
In den Zellen von Spalte A befindet sich eine Formel, die den Blattnamen anzeigt wenn in Spalte D und F etwas eingetragen ist anso...
11.11.2008 10:13:33
Thread-ID: 1023442
3 Beiträge
Formel - Anzeige der gefilterten Inhalte
Rocky

Hallo Excelfreunde und zweiäugigen unter den Blinden und Einäugigen,
ich möchte gern einen dynamischen "Querfilter" basteln. Mein Ansatz bisher: Ich kopieren die Tabelle und transportiere diese. dann wird in jede Zelle folgende Formel geschrieben:
=WENN(INDIREKT(ADRESSE(SPALTE()+0;ZEILE...
28.11.2008 08:53:12
Thread-ID: 1028554
4 Beiträge
Anzeige
gefilterte Daten in Listbox einfügen
Larissa

Hallo,
ich möchte nur gefilterte daten in eine Listbox einlesen. Dieses Makro habe ich hier gefunden:
ClassModule: Artikel
Private Sub Worksheet_Calculate()
Dim iCounter As Integer
lstFilter.Clear
For iCounter = 2 To WorksheetFunction.CountA(Columns(1))
If Rows(iCoun...
17.01.2009 17:30:00
Thread-ID: 1040940
2 Beiträge
Anzeige
gefilterte Daten in Listbox einfügen
Larissa

Hallo,
ich bin mir nicht sicher, ob es richtig ist, dass ich einen neuen Thread aufmache, weil ich diese Frage schon für ein anderes Makro gestellt habe.
Jetzt komme ich an einer anderen Stelle nicht weiter. Auch mit dem folgenden Mako lese ich Daten aus einer Tabelle "Artikel" in eine...
18.01.2009 00:30:47
Thread-ID: 1041031
6 Beiträge
gefilterte Daten aus Listbox einlesen
Larissa

Hallo,
jetzt stecke ich wieder fest in meinem Userform.
Dank Eurer Hilfe habe ich jetzt geschafft, in der Listbox gefilterte Daten anzuzeigen.
Wenn man jetzt auf eine Eintragung in der Listbox klickt, sollen die Daten in Textfelder eingetragen werden.
Wenn die Daten nicht gefilt...
18.01.2009 19:19:00
Thread-ID: 1041237
11 Beiträge
ZÄHLENWENN mit gefilterten Daten
Wolfango

Hallo Experten,
folgendes:
In einer Spalte stehen Datumswerte. Diese Datumswerte werden mit folgender Formel ausgewertet:
ZÄHLENWENN(H9:H233;"<"&HEUTE()-29)
Das führt auch wunderbar zum gewünschten Resultat.
Ich möchte nun in der gleichen Spalte über den Autofilter...
30.01.2009 13:04:18
Thread-ID: 1045371
2 Beiträge
Selektieren gefilterter Datensätze, wie?
Werner

mein VBA-Level: befriedigend
Hallo Freunde,
wenn ich mit dem Auto-Filter, z.B. manuell, aus einer Menge von Datensätzen einen Teil herausgefiltert
habe und dann einen Teil der nach dem Filtern verbliebenen Zeilen markiere und kopieren will,
kopiert Excel offenbar immer die durch...
01.02.2009 09:32:39
Thread-ID: 1045837
5 Beiträge
Daten in gefilterten Bereich Kopieren
Sebastian

Hallo Forum,
vielleicht kann mir jemand bei meinem Problem helfen. Google konnte es nicht. :(
Ich habe ein Tabellenblatt mit gefilterten Daten. Nun möchte ich von einem anderen Tabellenblatt Daten neben die gefilterten, noch sichtbaren Daten kopieren. Excel lässt das leider nicht zu.
03.02.2009 15:19:09
Thread-ID: 1046691
2 Beiträge
ZÄHLENWENN mit gefilterten Daten?
Thomas

Hallo,
ich habe ein Problem. Ich habe ein Datenblatt mit 7 Spalten an Daten und um Häufigkeiten einzelner Daten in bestimmten Zeiträumen auszurechnen brauche ich die "ZÄHLENWENN" Funktion. Leider rechnet die mit allen Tabellendaten und nicht wie ich gehofft habe, nur mit den gefilterten Dat...
26.02.2009 15:47:33
Thread-ID: 1054438
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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