Supportnet / Forum / Tabellenkalkulation

Hallo Zusammen Ich habe folgendes Problem zu lösen. Ich habe 5 verschiedene Tabellenblätter. Auf jeder Tabelle gibt es User, Printer, und Admins. Nun, in der ersten Spalte (A) ist immer ein Code enthalten. P für Printer U für User, A für Admin. Jetzt möchte ich eine Abfrage erstellen, die alle fünf Tabellenblätter nach einer Bedinung (z.b. P für Drucker) in Spalte A durchsucht, und sie mir in das Tabellenblatt "Abfrage" kopiert. Das ganze soll dann über eine Userform ablaufen, in der man p,a, oder u eingeben kann. Bei jeder neuen abfrage wir die tabelle erst mal gelöscht.

Moin ster,

erstelle eine UserForm mit einer TextBox und einem CommandButton. Kopiere den nachfolgenden Code in das VBA Projekt der UserForm, die Du erstellt hast.

Private Sub CommandButton1_Click()
Dim Blätter, Zeilen As Long
Unload Me
Sheets("Abfrage").Cells.ClearContents
For Blätter = 1 To Worksheets.Count
If Worksheets(Blätter).Name <> "Abfrage" Then
For Zeilen = 1 To Sheets(Blätter).Range("A65536").End(xlUp).Row
If Sheets(Blätter).Cells(Zeilen, 1) = TextBox1 Then
Sheets(Blätter).Rows(Zeilen).Copy _
Sheets("Abfrage").Cells(Sheets("Abfrage").Range("A65536").End(xlUp).Offset(1, 0).Row, 1)
End If
Next
End If
Next
End Sub

Mit dem Code wird der Buchstabe, den Du in das Textfeld eingibst, in allen Tabellenblättern gesucht und bei Übereinstimmung wird die Zeile in das Blatt "Abfrage" in die nächste freie Zeile kopiert.

Ich hoffe, Du kommst klar. Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

• Automatische Aktualisierung : Abfrage - Tabelle
• Access Abfrage export nach Excel
• Excel Abfrage mit Verknüpfung von Daten aus 2 Mappen
• Abfrage von Zellen in einer Spalte