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

ActiveSheet.Range Autofilter Criteria1

ActiveSheet.Range Autofilter Criteria1
05.11.2014 14:29:26
Günter
Hallo,
Sheets("Tabelle1").Select
ActiveSheet.Range("$A$1:$C$8").AutoFilter Field:=3, Criteria1:="101"
Range("A1:C999").Select
Selection.Copy
Sheets("101").Select
ActiveSheet.Paste
ich selektiere aus einem Blatt die Sätze mit "101" heraus und kopiere diese Felder in das Tabellenblatt "101".
Wie kann ich das parametrisieren, dass auch die Kriterien 102 - 199 in die jeweiligen gleichlautenden Tabellenblätter kopiert werden.
Oder ist hier activeSheet.range der völlig falsche Ansatz?

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ActiveSheet.Range Autofilter Criteria1
05.11.2014 14:36:42
Hajo_Zi
ich baue keine Datei nach. 
Sub Kopieerstellen()
Dim LoI As Long
For LoI = 102 To 199
With Sheets("Tabelle1")
.Range("$A$1:$C$8").AutoFilter Field:=3, Criteria1:=LoI
.Range("A1:C999").Copy Sheets(LoI).Range("A1")
End With
Next LoI
End Sub
Gruß Hajo

AW: ActiveSheet.Range Autofilter Criteria1
06.11.2014 07:27:37
Günter
Hallo Hajo,
vielen Dank für die schnelle Antwort.
Sieht gut aus, aber leider tritt ein weiterer Fehler auf:
"Laufzeitfehler '9':
Index außerhalb des gültigen Bereichs"
Bei debuggen hängt er sich auf in der Zeile .range("A1:C999").copy sheets(LoI).Range("A1")
Gruß
Günter

Anzeige
AW: ActiveSheet.Range Autofilter Criteria1
06.11.2014 07:35:12
Hajo_Zi
Hallo Günter,
ich vermute mal die Tabelle aktuelle Tabelle LoI gibt es nicht.
Ich sehe meinen Code nicht.
davor vielleicht, was mir nicht gefällt
On Error Resume Next
und vor End Sub
On Error Goto 0
Gruß Hajo

AW: ActiveSheet.Range Autofilter Criteria1
06.11.2014 07:35:31
hary
Moin
Wandel mal LoI in Text um. 
.Range("A1:C999").Copy Sheets(CStr(LoI)).Range("A1")

gruss hary

AW: ActiveSheet.Range Autofilter Criteria1
06.11.2014 08:04:08
Günter
Hallo Hary,
danke für den Tipp.
War wohl Gedankenübertragung :-)
Auf die Idee bin ich gerade selbst gekommen.
Funktioniert fast... 
Sub blatt_kopieren()
Dim LoI As Long
For LoI = 101 To 199
With Sheets("Tabelle1")
.Range("$A$2:$C$999").AutoFilter Field:=3, Criteria1:=LoI
.Range("A2:C999").Copy Sheets(CStr(LoI)).Range("A2")
End With
Next LoI
End Sub
Aber er hängt sich auf, wenn loi kleiner als 199 ist.
Wenn ich loi = 101 to 106 setze, funktioniert es.
Wie sähe die Anweisung aus, wenn loi kein numerischer Wert ist, sondern ein string.
FOR LOI = ? to ?
Sorry, bin in Sachen VBA noch ziemlich blank
Gruß
Günter

Anzeige
AW: ActiveSheet.Range Autofilter Criteria1
06.11.2014 09:45:18
hary
Moin
Versteh ich dich richtig, das Filterkriterium sind die Blattnamen? 
Dim wks As Worksheet
With Worksheets("Tabelle1").Range("$A$2:$C$999")
For Each wks In Worksheets
If wks.Name  "Tabelle1" Then
If Worksheets("Tabelle1").AutoFilterMode = True Then Worksheets("Tabelle1").ShowAllData
.AutoFilter Field:=3, Criteria1:=wks.Name
.Copy wks.Range("A2")
End If
Next
.AutoFilter
End With

gruss hary

AW: ActiveSheet.Range Autofilter Criteria1
10.11.2014 11:17:10
Günter
Hallo hary,
jo richtig....
Zuerst lese ich die Spalte 3 aus und erstelle leere Blätter mit Namen Zelle=worksheet.
Dann möchte ich die in Spalte 3 gefilterten Zeilen in die neu angelegten worksheets kopieren.
Jetzt bekomme ich den Fehler:
Laufzeitfehler 1004
Die ShowAllData-Methode des worksheet-Objektes konnte nicht aufgeführt werden.

Anzeige
AW: ActiveSheet.Range Autofilter Criteria1
10.11.2014 13:22:44
Günter
habe jetzt ein "On Error Resume Next" eingefügt und das Makro funktioniert.
Nur: Ich bin neugierig und möchte wissen, warum es vorher NICHT funktioniert hat.
Wahrscheinlich "hängt" er sich an der ersten Zeile (Überschrift) auf, weil dort in field 3 das Kriterium wks.name nicht erfüllt ist. Oder liege ich da falsch.
Sorry für die dumme Frage, aber von Fehler zu Fehler lerne ich dazu...hoffentlich...

305 Forumthreads zu ähnlichen Themen

Range aus mehreren Zellbereichen als Variabeln
Randolf

Hallo,
ich möchte folgenden Zeile mit Variabeln darstellen:
Range("AM65:AN65,BB65:BC65").Select folgenden Ansatz habe ich derzeit, aber mir mach der Doppelpunkt zu schaffen:
Range(Cells(i, 39), Cells(i, 40), Cells(i, 54), Cells(i, 55)).Select
versuche wie Range(Cells(i, 3...
08.05.2009 11:06:07
Thread-ID: 1073827
13 Beiträge
Anzeige
ActiveCell.Copy Sheets("tabelle1").Range("A20")
Karsten

Hallo...
kann mir jemand u.st. Code so ändern, dass nicht nur die aktive Zelle, sondern ein markierter Bereich nach A20 kopiert wird?
Geht es, statt die Zellen ab Zeile 20 zu überschreiben, den kopierten Bereich einzufügen bzw. ab Zeile 20 erst mal die nötige Anzahl Zeilen einzufügen?
15.09.2010 21:10:06
Thread-ID: 1177926
6 Beiträge
Formular aufrufen VBA über mehrere Zellen
andreas

Hallo zusammen,
habe eine Tabelle da will ich wenn eine Zelle von B20 - B500 selektiert ist das Formular "Werkzeuge" aufrufen.
Wie muss ich dafür den Code schreiben?
Danach sollte nach einlesen der Daten über das Formular, die Zelle "C?" in der selben Zeile angewählt werden, dazu m...
12.11.2010 12:17:18
Thread-ID: 1186487
3 Beiträge
Anzeige
Bedingte Formatierung VBA mehrere Zellen
Timonski

Servus...
ich würde gern meine bisherige, leider nicht mehr richtig funktionierende bedingte Formatierung in VBA umwandeln, da sie in Excel 2010 nicht mehr richtig funktioniert... erst bei wegscrollen und wieder herscrollen...
ich hatte bis jetzt das wenn in Zelle B19 (variabel) z.b. 35...
21.09.2011 07:23:25
Thread-ID: 1230813
8 Beiträge
(ActiveSheet.UsedRange.Rows.Count) zählt falsch
Marc

Hallo zusammen,
ich habe ein Problem mit dem ich einfach nicht weiterkomme....
Ich kopiere mittels Makro Daten wild hin und her und entferne Duplikate. Da sich nach der Entfernung der Duplikate die Anzahl der Zeilen doch massiv reduziert möchte ich mit dem Befehl
msg2 = (ActiveSheet...
31.05.2013 11:10:38
Thread-ID: 1315676
10 Beiträge
Excel VBA Prüfung mehrerer Zellen auf Inhalt
Andrea

Hi,
ich suche ne Programmierung für die Überprüfung von nicht aneinanderliegende Zellen, die leer sind. mit range(D18,D25,F13,....) "" komm ich nicht weiter...
wäre über jede Hilfe super dankbar, ich sitze schon seit stunden und suche nach lösungen:-(
LG Andrea
07.08.2013 19:13:30
Thread-ID: 1326092
11 Beiträge
Range-Variable: mehrere Zellen wählen
Manuel

Hallo Zusammen
Ich versuch gerade meinen Code durch das Definieren von Range-Variablen übersichtlicher zu gestalten. Nun möchte ich aus meiner Range-Variable eine "Teil-Range" auswählen und dessen Werte auf einen andere "Teil-Range" übertragen.
Dies würde ungefähr so aussehen set myRang...
24.09.2013 13:50:04
Thread-ID: 1332067
5 Beiträge
Excel_VBA_ mehrere Zellen Addieren
B.Varli

Hi Leute,
Das ist mein Erster Beitrag.
Folgendes Problem hab ich das mir den kopf zerbricht.
Ich möchte gerne mehrere zellen addieren.
Am besten mit VBa in Excel
Ich hab ein kleines beispiel erstellt um mein problem zu veranschaulichen.
https://www.herber.de/bbs/user/914...
11.07.2014 17:51:21
Thread-ID: 1369977
3 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
12
4
5
2
3
7
9
10
4
2
4
5
7
3
5
23
8
3
3
1
3
3
1
3
2