Wer kann mir helfen ?
26.11.2007 10:41:49
Carsten
Hallo
da ich überhaupt keine kennung von VBA habe, muss ich hier schon wieder betteln.
wer von euch könnte mir das umbasteln
der code macht schon fast alles was ich will.
nur sucht er in dem ganzen tabellenblatt nach dem suchbegriff .
das soll er nur in spalte A
wenn er dann die zeilen in Tabelle2 einträgt sollte er es erst ab zeile 10
Sub ArtikelSuchenKopieren()
'Sucht einen Begriff in einem bestimmten Blatt,
'und kopiert die Ergebnisse in ein anderes Blatt
Static Suchbegriff As String
'Hinweis zur Variablendeklaration: Im Beispielcode waren nur
'jeweils die letzten Variablen korrekt deklariert. Alle anderen
'Variablen waren (autom.) vom Typ "Variant". Es reicht nicht,
'den Typ nur am Ende einer Zeile anzugeben.
Dim Zelle As Variant, ErsteAdresse As String
Dim LetzteZelle As Integer, intCount As Integer
Application.ScreenUpdating = False
Worksheets("Tabelle2").Cells.Clear 'Alte Tabelleninhalte löschen
Suchbegriff = InputBox(Prompt:="Bitte Suchbegriff eingeben:", _
Default:=Suchbegriff)
If Suchbegriff = "" Then Exit Sub
With Worksheets("GWG")
'Überschriftenzeile kopieren ...
.Rows(1).Copy Destination:=Worksheets("Tabelle2").Range("a1")
With .UsedRange
Set Zelle = .Find(What:=Suchbegriff, After:=Range("A1"), _
LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlNext, MatchCase:=True)
If Not Zelle Is Nothing Then
ErsteAdresse = Zelle.Address
LetzteZelle = 2
Do
.Rows(Zelle.Row).Copy _
Destination:=Worksheets("Tabelle2") _
.Cells(LetzteZelle, 1)
Set Zelle = .FindNext(Zelle)
LetzteZelle = LetzteZelle + 1
Loop While Not Zelle Is Nothing And _
Zelle.Address ErsteAdresse
End If
Worksheets("Tabelle2").Select
Range("a1").Select
End With
End With
Application.ScreenUpdating = True
End Sub