Makro - bestimmten Spaltewert der aktiven Zeile kopieren und einfügen

[hello123]

Hallo zusammen,

ich brauche ein Makro, mit dem man den Spalten-Inhalt (bspw. Spalte H) der aktiven Zeile in ein anderes Tabellenblatt kopieren kann.
Ich habe folgenden Code zusammengebastelt (mit meinen kaum vorhandenen Kenntnissen ), der nicht funktioniert:

Code: [Auswählen]

Sub Makro4()
'
' Makro4 Makro
'

'
    Range(Cells(ActiveCell.Row, 8)).Select
    Selection.Copy
    Sheets("Deckblatt Management Summary").Select
    Range("E9:F9").Select
    ActiveSheet.Paste
End Sub
Kann jemand weiterhelfen?

[hello123]

Ich habe folgenden Code erneut aufgenommen und manuell angepasst..

Code: [Auswählen]

Sub DatenExportieren()
'
' DatenExportieren Makro
'

'
    ActiveSheet.Unprotect
    Sheets("Masterliste").Select
    Range(Cells(ActiveCell.Row, 8)).Select
    Selection.Copy
    Sheets("Deckblatt Management Summar (2").Select
    Range("E9:H9").Select
    ActiveSheet.Paste
    Sheets("Masterliste").Select
    Range(Cells(ActiveCell.Row, 10)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Deckblatt Management Summar (2").Select
    Range("E11:H11").Select
    ActiveSheet.Paste
    Sheets("Masterliste").Select
    Range(Cells(ActiveCell.Row, 9)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Deckblatt Management Summar (2").Select
    Range("E13:H13").Select
    ActiveSheet.Paste
    Sheets("Masterliste").Select
    Range(Cells(ActiveCell.Row, 1)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Deckblatt Management Summar (2").Select
    Range("E15:H15").Select
    ActiveSheet.Paste
    Sheets("Masterliste").Select
    Range(Cells(ActiveCell.Row, 2)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Deckblatt Management Summar (2").Select
    Range("E17:H17").Select
    ActiveSheet.Paste
    Sheets("Masterliste").Select
    Range(Cells(ActiveCell.Row, 7)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Deckblatt Management Summar (2").Select
    Range("E19:H19").Select
    ActiveSheet.Paste
    Sheets("Masterliste").Select
    Range(Cells(ActiveCell.Row, 5)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Deckblatt Management Summar (2").Select
    Range("E21:H21").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Wie muss die Zeile "Range(Cells(ActiveCell.Row, ).Select" lauten, damit bspw. Spalte H der aktiven Zeile (also bspw. H6) kopiert wird?


siehe auch: http://www.office-loesung.de/p/viewtopic.php?f=166&t=760625&p=3127351#p3127351
https://www.computerbase.de/forum/showthread.php?t=1754841&p=21015739#post21015739