Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

suchen und kopieren

Betrifft: suchen und kopieren von: Joe
Geschrieben am: 15.09.2004 16:16:31

Guten Tag ich habe folgendes Problem

In einer Tabelle steht in in den Spalten A-D bis zur Zeile 70 in jeder Zelle ein Wert.
Nun würde ich gerne über eine Inputbox einen Wert z.B Jungen I eingeben und dann wird jede Zeile in der der Wert vorkommt in Tabelle 2 ab zelle A1 kopiert.

Vielen Dank für eure Hilfe

Joe

  


Betrifft: AW: suchen und kopieren von: Mac4
Geschrieben am: 15.09.2004 16:59:26

Hallo Joe,

so sollte es gehen:

Sub finden()
Dim Treffer, erste_Adresse, Such
Such = InputBox("Eingabe des Suchbegriffs")
Set Treffer = Range("A1:D70").Find(Such, after:=[A1], LookIn:=xlValues)
If Not Treffer Is Nothing Then
erste_Adresse = Treffer.Address
Do
Rows(Treffer.Row).Copy Destination:=Sheets("Tabelle2").Cells(Sheets("Tabelle2").[A65536].End(xlUp).Row + 1, 1)
Set Treffer = Range("A1:D70").FindNext(Treffer)
Loop While Not Treffer Is Nothing And Treffer.Address <> erste_Adresse
End If
End Sub


Marc


  


Betrifft: AW: suchen und kopieren von: Joe
Geschrieben am: 15.09.2004 17:07:34

Super
nur wenn ich Jungen I eingebe übernimmt er auch Jungen II es soll nur genau der Suchtext übertragen werden


  


Betrifft: AW: suchen und kopieren von: Mac4
Geschrieben am: 15.09.2004 19:20:12

Hallo Joe,

dann so:

Sub finden()
Dim Treffer, erste_Adresse, Such
Such = InputBox("Eingabe des Suchbegriffs")
Set Treffer = Range("A1:D70").Find(Such, after:=[A1], LookIn:=xlValues, lookat:=xlWhole)
If Not Treffer Is Nothing Then
erste_Adresse = Treffer.Address
Do
Rows(Treffer.Row).Copy Destination:=Sheets("Tabelle2").Cells(Sheets("Tabelle2").[A65536].End(xlUp).Row + 1, 1)
Set Treffer = Range("A1:D70").FindNext(Treffer)
Loop While Not Treffer Is Nothing And Treffer.Address <> erste_Adresse
End If
End Sub


Marc


  


Betrifft: AW: suchen und kopieren von: joe
Geschrieben am: 15.09.2004 23:24:18

Vielen Dank jetzt klappts


 

Beiträge aus den Excel-Beispielen zum Thema "suchen und kopieren"