Herbers Excel-Forum - das Archiv

Suchbegriff aus Zelle

Bild

Betrifft: Suchbegriff aus Zelle
von: Gisela

Geschrieben am: 15.04.2005 09:33:00
Hallo liebe Helfer,
ich übernehme mit dem folgenden Makro bestimmte Zeilen in eine neue Tabelle.
Das klappt auch.
Ich muss aber nach verschiedenen Suchbegriffen die neuen Daten zusammenstellen.
Was muss ich ändern, damit ich den Suchbegriff nicht in den Makro, sondern in eine Zelle, z.B. A1, schreiben kann.
Option Explicit
Dim i As Integer
Dim WsQuelle As Worksheet
Dim WsQuelleLastR As Integer
Dim WsQuelleLastC As Integer
Dim Ws1 As Worksheet
Dim Ws1Last As Integer
Private Sub Datensuch()
Set WsQuelle = Worksheets("Quelle")
WsQuelleLastR = WsQuelle.Cells(Rows.Count, 8).End(xlUp).Row
WsQuelleLastC = WsQuelle.UsedRange.Columns.Count
Set Ws1 = Worksheets("Tabelle2")
Ws1Last = Ws1.Cells(Rows.Count, 8).End(xlUp).Row + 1
Application.ScreenUpdating = False
For i = 2 To WsQuelleLastR
Select Case (WsQuelle.Cells(i, 8))
Case Is = 20  'Wert in Spalte H  >>DIESER WERT SOLLTE AUS EINER ZELLE KOMMEN<<<
Ws1.Range(Ws1.Cells(Ws1Last, 1), Ws1.Cells(Ws1Last, WsQuelleLastC)).Value = WsQuelle.Range(WsQuelle.Cells(i, 1), WsQuelle.Cells(i, WsQuelleLastC)).Value
Ws1Last = Ws1Last + 1
End Select
Next
Application.ScreenUpdating = True
End Sub

Vielen Dank für jede und auch die bisherige Hilfe
Grüße
Gisela
Bild

Betrifft: AW: Suchbegriff aus Zelle
von: Fritz
Geschrieben am: 15.04.2005 10:02:12
Hi Gisela,
statt:
Case Is = 20 'Wert in Spalte H >>DIESER WERT SOLLTE AUS EINER ZELLE KOMMEN<<<
WsQuelle.Range("A1")

Fritz
Bild

Betrifft: AW: Suchbegriff aus Zelle
von: Gisela

Geschrieben am: 15.04.2005 10:45:38
Hallo Fritz,
vielen Dank. Aber hierbei erhalte ich die Fehlermeldung:
>>Anweisungen und Zeilenmarken zwischen Select Case und erstem Vorkommen von Case unzulässig<<
Hast Du noch einen Tipp?
Grüße
Gisela
Bild

Betrifft: AW: Suchbegriff aus Zelle
von: Fritz

Geschrieben am: 15.04.2005 11:18:07
Hi Gisela,
Ich habe Deinen Code nochmal an dieser Stelle verändert:
....
Wert = WsQuelle.Range("A1") 'Variable Wert dem Zellinhalt zugewiesen
For i = 2 To WsQuelleLastR
Select Case (WsQuelle.Cells(i, 8))
Case Is = Wert 'Wert in Spalte H >>DIESER WERT SOLLTE AUS EINER ZELLE KOMMEN<<<
....
Probier das mal aus. Bei mir funktioniert es ohne Fehler.
Fritz
Bild

Betrifft: AW: Suchbegriff aus Zelle
von: Gisela
Geschrieben am: 15.04.2005 11:52:16
Hallo Fritz,
nachdem ich die entsprechende Variable deklariert habe, funktionierts.
Super, mein Wochenende ist gerettet.
Vielen Dank und schönes Wochenende
Gruß
Gisela
 Bild
Excel-Beispiele zum Thema "Suchbegriff aus Zelle"
Suchbegriff über mehrere Tabellenblätter suchen. Zellinhalt als Internet-Suchbegriff
Suchbegriff aus einer UserForm-Textbox in Tabelle suchen und melden Suchbegriff über InputBox abfragen und Fundzeile löschen
Suchbegriff in vorhergehenden Tabellen suchen Suchbegriff-Fundstelle mit anderer Zelle multiplizieren
Suchbegriff abfragen und Fundzeile in UserForm-TextBoxes Suchbegriff in Tabelle suchen und Fundzeilen auswählen
Suchbegriffe aus Tabelle im Excel-WebArchiv suchen Suchbegriff abfragen und Fundzeile markieren