Hinzufügen | Suchen und Ersetzen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Metz,
teste mal diese Codes:


Public Sub Hinzufuegen()
Dim lng_zeile As Long
Dim obj_wks_quelle As Worksheet
Dim obj_wks_ziel As Worksheet
Set obj_wks_quelle = Worksheets("Eingabe")
Set obj_wks_ziel = Worksheets("Autos")
With obj_wks_ziel
lng_zeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lng_zeile, 1) = obj_wks_quelle.Range("D4")
.Cells(lng_zeile, 2) = obj_wks_quelle.Range("D6")
.Cells(lng_zeile, 3) = obj_wks_quelle.Range("D8")
.Cells(lng_zeile, 4) = obj_wks_quelle.Range("I4")
.Cells(lng_zeile, 5) = obj_wks_quelle.Range("I6")
.Cells(lng_zeile, 6) = obj_wks_quelle.Range("I8")
End With
MsgBox "Übertragen!"
End Sub
Public Sub Aktualisieren()
Dim lng_zeile As Long
Dim obj_wks_quelle As Worksheet
Dim obj_wks_ziel As Worksheet
Set obj_wks_quelle = Worksheets("Eingabe")
Set obj_wks_ziel = Worksheets("Autos")
lng_zeile = 2
With obj_wks_ziel
For lng_zeile = 2 To .Cells(Rows.Count, 1).End(xlUp).Row + 1
If .Cells(lng_zeile, 2) = obj_wks_quelle.Range("D15") And _
.Cells(lng_zeile, 3) = obj_wks_quelle.Range("I15") Then
.Cells(lng_zeile, 5) = obj_wks_quelle.Range("I17")
.Cells(lng_zeile, 6) = "Y"
Exit For
End If
Next
End With
MsgBox "Übertragen!"
End Sub

Gruß Regina

Hallo Armin,
vielen Dank für deine Rückmeldung.
Leider ist es mir momentan nicht möglich die Kollegin zu fragen, ob sie eventuell eine Userform-Variante vorzieht. Aber ich frage mal aus Neugier heraus, ob es möglich ist die Userform auf einem anderen Worksheet anzulegen? Per Button starten und die Funktionen Hinzufügen / Aktualisieren (alle Suchtreffer aktualisieren) auszuführen? z.B. auf Worksheet "Eingabe"
Und eventuell eine neue Bitte der Kollegin (kopiere mal den Text den ich Regina geschrieben habe)..
"[Suchen] Die Kollegin hatte mich gefragt, ob es möglich sei eine Suchfunktion einzubauen. Welche ähnlich wie das Hinzufügen über die Eingabe von Kriterien in bestimmten Feldern (hier dann in Userform) abläuft. Sie benutzt mehrere Kriterien, allerdings meistens nur 2-3. Bei einem Suchtreffer soll der Datensatz (sprich die gesamte Zeile der Suchtreffer) kopiert und in dem neuem Worksheet "Ausgabe" ausgegeben werden. Da diese Frage, meiner von letzter Woche ähnlich ist habe ich den Code (vielleicht hilft er dir) unter Virtual Basic hinzugefügt."
angepasste Beispieldatei: https://www.herber.de/bbs/user/135738.xlsm
Danke für deine Hilfe
Metz
P.S: wusste jetzt nicht, wenn ich antworte, ob ihr beide es sieht - deshalb antworte ich getrennt)

Beliebteste Forumthreads (12 Monate)

Hinzufügen | Suchen und Ersetzen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hinzufügen | Suchen und Ersetzen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread