Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datensätze aus Blatt auslesen

Datensätze aus Blatt auslesen
02.09.2008 15:55:27
bully
Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss bully

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datensätze aus Blatt auslesen
02.09.2008 16:24:00
Chris
Servus,
ungetestet / probier mal aus an einer Probedatei:

Sub rüberdamit()
Dim rSuche As Range, rFinde As Range, strErste As String, Zeile As Long
Set rFinde = Sheets("Blatt2").Range("C:C")
Set rSuche = rFinde.Find(what:=Sheets("Blatt3").Range("F6"), LookAt:=xlWhole, LookIn:=xlValues)
Zeile = 14
If Not rSuche Is Nothing Then
strErste = rSuche.Address
Do
rSuche.EntireRow.Copy Sheets("Blatt3").Range("A" & Zeile)
Zeile = Zeile + 1
Set rSuche = rFinde.FindNext(rSuche)
Loop While Not rSuche Is Nothing And rSuche.Address  strErste
Else
MsgBox "Keine Treffer!"
End If
End Sub


Die Blattnamen eben entsprechend anpassen.
Gruß
Chris

Anzeige
AW: Datensätze aus Blatt auslesen
02.09.2008 17:56:25
bully
Hallo Chris,
erstmals danke für deine Codezeilen. Leider funtioniert es nicht. Ich bekomme nach langem warten den Laufzeitfehler 1004 und der Code bleit bei der Zeile "rSuche.EntireRow.Copy Sheets("Vorlage").Range("A" & Zeile)" stehen.
Ich wollte die Datei hochladen, aber mit den Codezeilen ist sie plötzlich über 2MB gross!
Ich werde noch etwas weiter tüfteln.
Gruss bully
AW: Datensätze aus Blatt auslesen
02.09.2008 18:06:56
Chris
Servus bully,
ich hab's jetzt mal getestet und in meiner Testdatei funktioniert das Makro.
ich kann dir leider auch nicht sagen, woran das liegt.
Gruß
Chris
AW: Datensätze aus Blatt auslesen
02.09.2008 18:50:00
bully
Hallo Chris,
wenn ich in die Zelle F6 einen Wert eingebe, funktioniert dein Code auch bei mir!!
Wer nichts zu suchen hat, der findet auch nichts!
Danke nochmals für die Codezeilen, ich werde sie so verwenden.
Gruss bully
Anzeige
AW: Datensätze aus Blatt auslesen
02.09.2008 19:24:06
Chris
Servus bully,
dann solltest du noch eine Abfrage des Wertes in F6 einbauen:
If Sheets("Blatt3").Range("F6") = "" Then Exit Sub
Das ganze vor den Set-anweisungen.
Gruß
Chris

371 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige