VBA: Suchen nur in einer Spalte :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

VBA: Suchen nur in einer Spalte

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

ArneH
Newbie
Newbie

Anmeldedatum: 16.11.2007
Beiträge: 3

Verfasst am: 07.01.2008, 12:19

Hallo,
ich möchte mir ein VBA für meine Bedürdnisse anpassen, dass ich mal vor einiger Zeit hier http://www.herber.de/forum/archiv/152to156/t153967.htm gefunden habe.
Ich würde gerne, nachdem er die Überschriftenzeile kopiert hat, nur in der Spalte A weitersuchen lassen, da dort der Begriff steht nachdem ich suche. Kopieren soll er dann aber wieder die ganze Zeile. Hat jemand eine Idee?

Sub ArtikelSuchenKopieren()
'Sucht einen Begriff in einem bestimmten Blatt, und kopiert die Ergebnisse in ein anderes Blatt
Static Suchbegriff As String
Dim Zelle As Variant, ErsteAdresse As String
Dim LetzteZelle As Integer, intCount As Integer
Application.ScreenUpdating = False

Worksheets("Ergebnis").Cells.Clear 'Alte Tabelleninhalte löschen
Suchbegriff = InputBox(Prompt:="Bitte Suchbegriff eingeben:", Default:=Suchbegriff)
If Suchbegriff = "" Then Exit Sub
With Worksheets("Daten")
'Überschriftenzeile kopieren ...
.Rows(1).Copy Destination:=Worksheets("Ergebnis").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("Ergebnis").Cells(LetzteZelle, 1)
Set Zelle = .FindNext(Zelle)
LetzteZelle = LetzteZelle + 1
Loop While Not Zelle Is Nothing And Zelle.Address <> ErsteAdresse
End If
Worksheets("Ergebnis").Select
Range("a1").Select
End With
End With
Application.ScreenUpdating = True
End Sub

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 07.01.2008, 12:46

Hallo!

Ungetestet:
Ändere die Zeile "With .UsedRange" um in "With .Columns(1)".

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!

ArneH
Newbie
Newbie

Anmeldedatum: 16.11.2007
Beiträge: 3

Verfasst am: 07.01.2008, 13:12

Hervorragend, vielen Dank. Es funktioniert...

Grüße
Arne

edit: Hmm, jetzt kopiert er nur die erste Zelle, den Rest der Zeile wird nicht mehr kopiert...

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 07.01.2008, 13:56

Hallo!

Ebenfalls ungetestet:

.Rows(Zelle.Row).EntireRow.Copy Destination:=Worksheets("Ergebnis").Cells(LetzteZelle, 1)

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	2 DIN A4 Seiten zu einer DIN A3 Seite...	screamer	Microsoft Excel Hilfe	0	20.11.2008, 10:54
	Verschiedene Wahlmöglichkeiten in ein...	danini	Microsoft Excel Hilfe	0	13.11.2008, 13:50
	Makro Einfügen/Paste Befehl immer in ...	Skatgott	Microsoft Excel Hilfe	1	12.11.2008, 16:17
	Nur bestimmte Werte einer Spalte addi...	Juvenis	Microsoft Excel Hilfe	3	12.11.2008, 08:08
	Brauche Hilfe bei doppelten Namen in ...	Prime2k8	Microsoft Excel Hilfe	5	08.11.2008, 10:02

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de