Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
528to532
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
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA und Range bei AutoFilter

VBA und Range bei AutoFilter
10.12.2004 12:10:36
r3wDy
Hi!
Ich hab da ein kleines Problem mit VBA und excel. Un zwar: Ich geh in meinem Macro immer alle markierten zeilen durch mit
for each c in target...
Das funktioniert auch wunderbar, nur wenn ich die tabelle mit autofilter sortiert habe bekomme ich die falschen ranges. ich markiere z.b. 5 felder die der autofilter hergegeben habe aber die range umfasst auch alle felder die zwischen denen liegen also immer so zwischn 7 und 500 datenfeldr die ich garnicht markiert habe. Hab ich was vergessen oder muss ich noch bei jeder zelle einzeln checkne ob sie markiert ist? weil wenn ich verschiedene markierungen setze, die nicht alle an einem stück sich (mit strg und lücken dazwischen) ohne autofiler dann bekomme ich die felder die dazwischen liegen auch nicht in die range. Ist das ein excel bug oder hab ich was falsch verstanden?
Weis einer wie ich nur an die felder rankomme die markiert sind? sowohl mit als auch ohne autofilter

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

Betreff
Datum
Anwender
Anzeige
AW: VBA und Range bei AutoFilter
ransi
hallo
als beispiel(wenn ich dich richtig verstanden habe):
Option Explicit
Public 

Sub t()
Dim zelle As Range
For Each zelle In Selection
If zelle.Rows.Hidden = False Then zelle.Interior.ColorIndex = 3
Next
End Sub

färbt alle zellen die nicht ausgeblendet sind rot.
vieleicht hilfts dir weiter.
ransi
AW: VBA und Range bei AutoFilter
r3wDy
Nein das bringt mich auch nicht weiter. Ich versuch das mla zu erläutern:
ich hab ne Tabelle mit namen z.b.
Karl
Karl
Franz
Karl
und darauf mach ich autofilter und wähle karl aus. der autofilter gibt mir nun die tabelle
Karl
Karl
Karl
aus, der franz ist logischerweise nicht dabei. wenn ich nun alle karl in karl2 haben will mache ich das mit str+u und excel macht dann auch nur die 3. wenncihg das aber mit vba machen will geh ich in on change und sage for each c in target. Hier ist nun aber in der range target die zeile Franz mit drin, weil die genau dazwischen liegt, und wenn ich nun in vba da ändere dann gerät der franz mit rein, und da will ich ja nicht
Hoffe das ist so besser umschrieben
Anzeige
Noch einfacher
r3wDy
Ums noch einfacher darzustellen:
Man mache sich ne Tabelle und trägt 3 werte ein z.b.
1
2
1
macht autofilter auf 1 markiert die beiden 1er und macht autofilter wieder auf alle. et viola: die 2 ista uch markiert. Und das ist das problem
AW: VBA und Range bei AutoFilter
Boris
Hi,
Option Explicit
vom Prinzip her so:

Sub test()
Dim Af As AutoFilter
Dim Ash As Worksheet
Set Ash = ActiveSheet
Set Af = Ash.AutoFilter
Af.Range.SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 6
End Sub

Grüße Boris
Da sind die Zeilen etwas verrutscht:
Boris 
Option Explicit
Sub test()
Dim Af As AutoFilter
Dim Ash As Worksheet
Set Ash = ActiveSheet
Set Af = Ash.AutoFilter
Af.Range.SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 6
End Sub

Anzeige
AW: VBA und Range bei AutoFilter
ransi
hallo "Hier muss der realname hin"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Target
If c.Rows.Hidden = False Then deine anweisung
Next
End Sub

so werden nur die c in target berücksichtigt die nicht ausgeblendet sind. der franz interessiert dann VBA nicht mehr.
wenns nicht klarer geworden ist, oder ich dich falsch verstanden hab, stell doch mal eine kleine beispieldatei zur verfügung.
ransi
hör auf Boris weil...
ransi
...ich hab um 3 Ecken gedacht.
ransi
AW: hör auf Boris weil...
r3wDy
Nein ransi, deine Idee ist die bessere, weil bei boris bekomm ich alle sichtbaren, und das sind auch die leeren in dem worlsheet bei dir bekomm ich nur die aus meine selection welche sichtbar sind das ist viel besser so
danköö
Anzeige
AW: hör auf Boris weil...
Boris 
Option Explicit
Sub test()
Dim Af As AutoFilter
Dim Ash As Worksheet
Set Ash = ActiveSheet
Set Af = Ash.AutoFilter
Intersect(Af.Range.SpecialCells(xlCellTypeVisible), Selection).Interior.ColorIndex = 6
End Sub

320 Forumthreads zu ähnlichen Themen

Array in Tabelle schreiben
eres

Schönen Gruß in mein Lieblings-Forum,
ich lese sequentiell aus einer riesigen csv-Datei die ersten 50.000 Sätze in ein Array. Nach dem Einlesen möchte ich die Werte in ein sheet schreiben.
Dim HilfsArray(1 To 50000) As String
Dim i as long
Open Input_File For Input As #1
D...
08.04.2009 14:15:07
Thread-ID: 1067735
5 Beiträge
Anzeige
per VBA in MySQL-Tabelle schreiben
André

Moin,
ich hätte da mal wieder ein Problem.
Daten aus einer MySQL-Datenbank bekomme ich problemlos in meine Excel-Tabellen. Dies bekomme ich auch per VBA gesteuert. Hierzu habe ich eine ODBC-Verbindung erstellt. In der Excel-Tabelle erstelle ich dann eine neue Datenverbindung, die ich da...
20.04.2010 14:29:30
Thread-ID: 1152882
5 Beiträge
array to range, range to array
Andi

Hallo,
Opa Helmut auf dem Fahrrad:
For i = 1 To UBound(arr)
Cells(1, i) = arr(i)
Next 'i
Raumschiff Enterprise
Range(Cells(1, 1), Cells(1, UBound(arr))) = arr
Ich favorisiere die Methode Raumschiff Enterprise, aber wenn ein arr Speicherplatz mit 1000 Zeichen belegt...
21.12.2010 18:50:18
Thread-ID: 1192391
12 Beiträge
Anzeige
VBA, Werte anhand Koordinaten in Tabelle schreiben
Christian

Hallo, ich hab ein kleines Problemchen welches ich gerne mittels VBA lösen möchte. Leider komme ich auch nach einiger Suche nicht mal ansatzweise auf eine Lösung.
Das ganze sieht so aus:
Ich habe 2 Tabellen:
Tabelle 1 hat 3 Spalten z.b. so:
Pos | Blatt | Wert
1 | 1...
01.09.2011 19:10:08
Thread-ID: 1228358
3 Beiträge
Per VBA Werte in eine Datei schreiben
Tobias

Hallo Leute,
ich möchte für den Brötchenverkauf in der Schule eine Statistik erstelle.
Jeden Tag soll , bei klicken des Bottons, aus der Excel Tabelle, die Anzahl, die Produktnummer, der Preis und die Kategorie in die Tabelle "Daten" geschrieben werden.
Mit folgendem Makro ist es...
09.02.2014 16:58:33
Thread-ID: 1348795
5 Beiträge
Array mit If-Anweisung
Moritz

Hallo alle zusammen,
ich beschäftige mich seit ein paar Tagen mit VBA. Ich habe momentan eine Arbeitsmappe die ich dafür gebrauche um eine Liste auszulesen und bestimmte daten dann immer wieder neu erstellten Worksheets zuzuweisen.
als erstes habe ich es ganz statisch nur mit einem work...
29.10.2014 10:23:53
Thread-ID: 1389301
4 Beiträge
Sub-Array to Range - möglich?
Michael
Hallo ans Forum,
weiss jemand, ob es möglich ist, Teil eines Arrays in einen Range zu schreiben? Der Teil des Arrays ist dabei nicht in der oberen linke Ecke angesiedelt...
Man stelle sich ein Array von 5x5 vor. Kann ich auf irgendeine Weise so auf das Array zugreifen, dass ich das "innere...
14.02.2015 20:32:47
Thread-ID: 1409445
9 Beiträge
VBA Kommentar aus Bereich einer Tabelle schreiben
Timonski

Hallo,
ich will von einem anderen Tabellenblatt, einen bestimmten Bereich z.B. A1:C20 in eine bestimmte Zelle (hier A1) als Kommentar reinschreiben...
hab auch schon mal was gefunden und was geändert, aber der Bereich bekomm ich nicht hin :-)
Sub MyComment() Dim myCom As Comment Dim...
11.03.2015 16:29:49
Thread-ID: 1414373
11 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
4
4
11
17
2
4
3
8
10
2
3
1
9
2
2
1
6
10
6
1
2
5
1
21