Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: hello123 am März 12, 2018, 11:24:23 Vormittag

Titel: Makro - bestimmten Spaltewert der aktiven Zeile kopieren und einfügen
Beitrag von: hello123 am März 12, 2018, 11:24:23 Vormittag

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?

Titel: Antw: Makro - bestimmten Spaltewert der aktiven Zeile kopieren und einfügen
Beitrag von: hello123 am März 13, 2018, 09:55:44 Vormittag

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, 8)).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 (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 (https://www.computerbase.de/forum/showthread.php?t=1754841&p=21015739#post21015739)