Kopieren von gesuchten Zeilen
16.01.2020 21:12:40
gesuchten
da ich gesehen habe, wie anderen hier auch schnell geholfen werden konnte, komme ich mit einem Problem zu euch, was mich jetzt schon etwas länger beschäftigt.
Ich soll ein Projekt bearbeiten, in dem es darum geht per VBA-Maske mit einer Textbox in einer Tabelle nach einem Datensatz zu suchen. Wenn dieser dann gefunden wurde, soll er in eine andere Tabelle kopiert werden (Ein Datensatz pro Zeile).
Da ich noch ein echt blutiger Anfänger bin habe ich versucht mithilfe des Makrorekorders in Excel und teilweise einfach nur probieren mir einen Code zusammen zu bauen.
Das habe ich bis jetzt:
Private Sub CommandButton?ndern_Click()
Dim SuchbereichFirma As Range, Firmenspalte As Long, Firmenname As String
Worksheets("StammdatenAktiv").Select
Firmenname = TextBoxFirma
Set SuchbereichFirma = Range("B4", Range("B4").End(xlDown))
Set Firmenspalte = SuchbereichFirma.Find(What:=Firmenname, MatchCase:=False, LookAt:=xlPart) _
_
_
Range("B" & Firmenspalte, "N" & Firmenspalte).Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Sheets("Stammdaten").Select
Range("H5").Select
ActiveSheet.Paste
End Sub
Zurzeit bekomme ich aber immer wieder den Fehler "Objekt erforderlich".
Bis jetzt habe ich aber auch noch keine richtige Erklärung gefunden wie dieser nun zu beheben ist.
Nun hoffe ich das ihr mir weiterhelfen könnt.
Falls euch eine andere Möglichkeit einfällt wie man das Kopieren bewerkstelligen könnte wäre ich offen für jeden Vorschlag.
Es würde mich echt freuen falls ihr mir helfen könnt.
Danke im Voraus
Gruß Martin