Guten Abend,
ich möchte, nachdem ich den Namen gefunden habe, die Zellen
ab Zeile 3 bis 8 kopieren.
So klappte es aber mit den Kürzel nicht.
Habe diese Makro gefunden:
Private Sub CommandButton5_Click()
Dim sSuchbegriff As String ' das zu suchende Muster-Angebot
Dim WkSh_M As Worksheet ' das Tabellenblatt Adressen
Dim WkSh_A As Worksheet ' das Tabellenblatt Vertrag
Dim lLetzte As Long ' die letzte belegte Zeile im Tabellenblatt Muster-Angebote
Dim iSpalte As Integer ' die zu übertragenden Spalten
Dim lZeile_A As Long ' der Zeilen-Zähler im Tabellenblatt Angebote
Dim lzeile_M As Long ' der Zeilen-Zähler im Tabellenblatt Adressen
Dim rZelle As Range ' die Zelle mit dem gesuchten Muster-Angebot
sSuchbegriff = ListBox1.Value ' den Suchbegiff = Muster-Angebote übernehmen
Unload UserForm1 ' das UserForm(ular) schließen
Set WkSh_M = ThisWorkbook.Worksheets("Adressen")
Set WkSh_A = ThisWorkbook.Worksheets("Vertrag")
With WkSh_M.Rows(1) ' die Muster-Angebote in Zeile 1 suchen
Set rZelle = .Find(What:=sSuchbegriff, LookAt:=xlWhole, LookIn:=xlValues)
''bis hier einwandfrei !!!
damit klappts aber nur die 1.Zelle, es sollte aber 6 Zellen kopiert werden.
Sheets("Adressen").Cells(3, 4).Copy _
Destination:=Sheets("Vertrag").Cells(10, 4)
End With
Exit Sub
hoffentlich kann mir jemand helfen ?
mfg sigrid