Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wer kann mir helfen ??

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


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wer kann mir helfen ?
26.11.2007 10:45:00
Hajo_Zi
Hallo Carsten,
ersetze .UsedRange durch .Range("A:A") und LetzteZelle = 2 durch LetzteZelle = 10

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige