Office: Wert in Zeile suchen und entsprechende Spalte kopieren

Servus!

ich möchte gern in Blatt A die Zeile 6 nach einem Wort durchsuchen lassen.

und dann (einschließlich Zeile 6) bis Zeile 46 die entsprechende Spalte kopieren und in Blatt B einfügen.

Hinweis: die Zelle in der das Wort steht ist ein Zellenverbund!

Beispiel:

Wort steht in I6, dann ist es eigentlich (I-J-K-L-M-N)6
..und diese(n) Spalte(n) möchte ich dann bis Zeile 46 kopieren

Über Hinweise und Hilfe wäre ich sehr dankbar!

:)

 

Hallo Caesar7,

versuchs mal so: Code:

 

Hey!

habe deine vorgabe mal so übernommen und lediglich die Namen der Tabellenblätter angepasst sowie das suchwort definiert.

Dim rngZelle As Range
Dim strSuchwort As String

strSuchwort = ComboBox3.Value

For Each rngZelle In Worksheets("Zusammenfassung Testing").Range("6:6")
If rngZelle = strSuchwort Then
Worksheets("Zusammenfassung Testing").Range(Cells(6, rngZelle.Column), Cells(46, rngZelle.Column)).copy _
Destination:=Worksheets("Bericht-Ausgabe").Range("C6")
Exit Sub
End If
Next rngZelle

erhalte aber eine fehlermeldung:
Laufzeitfehler 1004
Anwendungs- oder objektdefinierter Fehler

betrifft die Zeile ab "then"

hast du dafür eine lösung?

 

Hallo
Weil du den Code nicht im Aktiven Blatt startest.
Cells(6, rngZelle.Column) geht vom aktivem Blatt aus. Du musst die cells mit Blattnamen ansprechen und das geht mit der with Anweisung. Siehe die punkte vor range und Cells.

Code:

gruss hary

 

hallo hary!

danke für die Hilfe.

direkt übernommen und prompt ein fehler. *wink.gif*

das "End With" kommt scheinbar ganz ans ende, also vor "End sub"

danach kommt allerdings ein anderer fehler zum tragen:

laufzeitfehler 1004: kann teil einer verbundenen Zelle nicht ändern

wie gesagt: die suchzelle ein zellenverbund [Wort steht in I6, dann ist es eigentlich (I-J-K-L-M-N)6]

 

Hallo
Teste mal das Makro im Anhang.
gruss hary

 

Hey Hary

Stark! einfach nur Stark! Vielen lieben Dank!

kommst gleich in meine Buddy-Liste! *wink.gif*