Makro Hilfe benötigt!

[Loeffelblock]

Hallo Leute,

bin neu hier und habe auch erst angefangen mit Excel Programmierung.
Kurze Erklärung zu meinem Ziel:
Aus Tabelle1 sollen aus einer Zeile 7 Strings ausgelesen werden, diese dann in Tabelle2 als Filter setzen
Anschließend soll aus Spalte C die Daten (bsp. 10 Zeilen mit verschiedenen Inhalten) kopiert werden und dann in Tabelle 3 eingefügt werden.

Problem: das was ich bis jetzt gemacht habe funktioniert nicht

Code:

Sub Char_einlesen()
'
' Char_einlesen Makro
'
' Tastenkombination: Strg+Umschalt+C
'

Dim filter_daten(6) As String
Dim Zeile As Integer
Dim Spalte As Integer
Dim x As Integer
Dim intI As Integer


Zeile = 2
Spalte = 3
x = 0

While Zeile <= 0

    Worksheets("Tabelle1").Activate
    
    While Spalte <= 9                               'hier werden die Filter gesetzt, insgesamt 7
        
        filter_daten(x) = Worksheets("Tabelle1").Cells(Zeile, Spalte).Value
        
        Filtern filter_daten(x), x
        
        Spalte = Spalte + 1
        x = x + 1
    Wend
    
    Worksheets("Tabelle2").Activate
    
    ActiveSheet.Range("C2:C" & ActiveSheet.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible).Copy
    
    Worksheets("Tabelle3").Range(B2).Activate
    ActiveSheet.Paste

    With Worksheets("Tabelle1")
        For intI = 3 To 9
            Selection.AutoFilter Field:=intI
    Next
    End With
    
    Zeile = Zeile + 1
    Spalte = 3
    x = 0
    
Wend

End Sub

Sub Filtern(filter_eingabe As String, i As Integer)

Worksheets("Tabelle2").Activate

Select Case i

Case Is = 0
    If filter_eingabe <> "" Then
    Range("C2:C").AutoFilter Field:=3, Criteria1:=filter_eingabe
Case Is = 1
    If filter_eingabe <> "" Then
    Range("F2:F").AutoFilter Field:=6, Criteria1:=filter_eingabe
Case Is = 2
    If filter_eingabe <> "" Then
    Range("Q2:Q").AutoFilter Field:=17, Criteria1:=filter_eingabe
Case Is = 3
    If filter_eingabe <> "" Then
    Range("G2:G").AutoFilter Field:=7, Criteria1:=filter_eingabe
Case Is = 5
    If filter_eingabe <> "" Then
    Range("U2:U").AutoFilter Field:=21, Criteria1:=filter_eingabe
Case Is = 6
    If filter_eingabe <> "" Then
    Range("W2:W").AutoFilter Field:=23, Criteria1:=filter_eingabe

End Select

End Sub

Es wird mir keine Fehlermeldung ausgegeben außer das "Sub Char_einlesen()" in gelb oder rot hinterlegt wird,
und wenn man mit der Maus darauf klickt kommt: filter_daten(x) = "" oder Spalte = 0

Bitte um Hilfe

[schauan]

Hallöchen,

schaue mal in die Überprüfung, ob filter_daten(x) ein String ist. Du könntest auch eine weitere String-Variable programmieren
strX = filter_daten(x)
und dann strX an die Funktion übergeben.

[Kuwer]

Hallo,

ich würde erst einmal hier anfangen (unahängig von der Frage nach dem Sinn):

Zeile = 2

Spalte = 3

x = 0



While Zeile <= 0

Gruß Uwe

[Loeffelblock]

Danke erstmal!

Das mit dem 0 war schonmal ein Fehler. Weiß auch nicht was mich da geritten hat 

Jetzt habe ich ein Laufzeitfehler:

Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen

Dabei wird folgende Zeile markiert:
 Range("C2:C").AutoFilter Field:=3, Criteria1:=filter_eingabe

Ich Filtere doch da Spalte C? Wenn ich nur "C" habe, funktioniert das auch nicht.

Danke schonmal! :)

[schauan]

Hallöchen,

wenn Du die komplette Spalte C nehmen willst, dann z.B. mit Columns(3)
Wenn Du Range nimmst, dann entweder nach dem zweiten C eine ausreichend große Zahl nehmen oder mit Cells(rows.count,3).end(xlup).row die letzte belegte Zeilennummer hinzufügen.

[Kuwer]

Jetzt habe ich ein Laufzeitfehler:

Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen

Dabei wird folgende Zeile markiert:
 Range("C2:C").AutoFilter Field:=3, Criteria1:=filter_eingabe

Ich Filtere doch da Spalte C? Wenn ich nur "C" habe, funktioniert das auch nicht.

Wenn nur eine Spalte gefiltert wird, gibt es keinen .AutoFilter Field:=3 , denn das wäre die 3. Spalte des Autofilters.

Du schriebst, dass Du mit Excelprogrammierung gerade anfängst. Dann schlage ich Dir vor, einfach anzufangen ohne irgendwelche "Optimierungen" mit ausgelagerten Subs/Functions und Schleifen, die Dir um die Ohren fliegen.
Zum Beispiel so:

Sub FilternTab2NachTab3()

 With Worksheets("Tabelle2").Range("A2:W2")

   .AutoFilter Field:=3, Criteria1:=Worksheets("Tabelle1").Range("C2").Value

   .AutoFilter Field:=6, Criteria1:=Worksheets("Tabelle1").Range("D2").Value

   .AutoFilter Field:=17, Criteria1:=Worksheets("Tabelle1").Range("E2").Value

   .AutoFilter Field:=7, Criteria1:=Worksheets("Tabelle1").Range("F2").Value

   .AutoFilter Field:=21, Criteria1:=Worksheets("Tabelle1").Range("G2").Value

   .AutoFilter Field:=23, Criteria1:=Worksheets("Tabelle1").Range("H2").Value

   .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Worksheets("Tabelle3").Range(B2)

   .Parent.ShowAllData

 End With

End Sub

Gruß Uwe

[Loeffelblock]

Danke für eure Unterstützung!

Mit Schleifen kann ich eigentlich durch meine C Kenntnisse gut umgehen.
Mir fehlt noch ein bisschen das Verständnis für dem Aufbau von den Befehlen bei Excel.

Habe jetzt nach deiner Vorlage umgebaut und sieht ganz gut aus.

Folgende Probleme habe ich noch:

1.Es sollen die Filter nur gesetzt werden, wenn in der Zelle etwas steht. Wenn nichts drin ist, soll das nicht passieren.
Das würde ich mit einer if Anweisung realisieren, weiß aber nicht was dann als Bedingung da stehen muss.

2. Nach dem Filtern sollen die Werte aus Spalte E kopiert werden und dann im anderen Tabellenblatt eingefügt werden.
Da das komplette Makro über eine Schleife mehrmals Zeile für Zeile Filtern, kopieren, einfügen soll, habe ich das Problem, dass das Einfügen jedes mal unter dem schon eingefügten eingesetzt werden soll.
Hoffe das ist verständlich..
Wie krieg ich das hin?

Sehr freundliche Grüße :)

[Werner.M]

Hallo,

dann musst du bei jedem Schleifendurchlauf die letzte belegte Zelle in Spalte B von deinem Blatt 3 ermitteln und die Daten dann eine Zelle weiter unten einfügen.

Code:

'nicht vergessen die Variable loLetzte im Makrokopf
'zu Dim(ensionieren) Dim loLetzte As Long
With Worksheets("Tabelle3")
   loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
End With
.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Worksheets("Tabelle3").Cells(loLetzte, 2)

Gruß Werner

[Loeffelblock]

Guten Abend!

Also der Zähler funktioniert, danke.

Aber das kopieren von Spalte E (Ab E2) an und das einfügen funktionieren nicht.

Hier ist der Befehl dazu:
Worksheets("Tabelle2").Range("A2:X2").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Worksheets("Tabelle3").Cells(loLetzte, 2)

Was mach ich falsch? Was muss in das rotmarkiete?
Ich versteh leider nicht ganz was hinter dem Befehl steht...

[Käpt'n Blaubär]

Hallo,

Was Du willst, darfst Du mir gerne mal anschaulich erklären,
denn ich verstehe das wirklich aus Deiner jetzigen Beschreibung
nicht.

Wenn Du nur die Spalte E übertragen willst, warum gibst Du dann 
Worksheets("Tabelle2").Range("A2:X2"). ... an?
Da stimmt ja dann höchstens, daß E eine Teilmenge von A:X ist.

Es mag sein, daß ich was falsch verstanden habe. Formeln und ich
kämpfen nicht unbedingt auf der gleichen Seite. Aber drum frage ich
mal nach. Kann ja sein, daß ich danach wat schlauer bin.

Da Du ja Makrohilfe brauchst, jedenfalls schreibst Du das so für den Thread, würde ich
gerne den momentanen Stand erfahren. Möglichst mit einer aussagekräftigen Datei.