Office: Datenübernahme in andere Tabelle

Hallo zusammen,
ich benötige Eure VBA-Hilfe!

Wie kann ich die Zellinhalte aus der dynamisch wachsenden Tabelle Daten von den Spalten M-S der momentan aktiven Zeile
automatisch in die Tabelle Bilder in die Spalte C ab der Zelle C4-C10 untereinander übernommen werden?
Sobald eine andere Zeile in der Tabelle Daten aktiviert wird, sollten dann diese entsprechenden Zellinhalte von
dieser Zeile wieder in die Tabelle Bilder in die Spalte C ab der Zelle C4-C10 übernommen und die vorherigen Zellinhalte
überschrieben werden!
Sollte eine Zeile in der Tabelle Daten im Schriftkopfbereich also von Zeile1-Zeile4 aktiviert sein sollte keine Datenübertragung
erfolgen!
Ebenso sollte keine Datenübertragung erfolgen, wenn der Cursor auf einer leeren Datensatzzeile steht bzw. außerhalb der Datenbank!

siehe Beispiel im Anhang:

Vielen Dank für die Hilfe
Gruß Derhard
Den Anhang Datenübernahme in andere Tabelle.xls betrachten

 

Hi,

ich würde dir das Doppelklick-Ereignis empfehlen - also Doppelklick in Spalte A der betreffenden Zeile. Copiere dazu foldengne Code ins Codemodul des Tabellenblattes "Daten":

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 And Target.Row > 4 And _
        Application.CountA(Range(Cells(Target.Row, 13), Cells(Target.Row, 13))) > 0 Then
        Range(Cells(Target.Row, 13), Cells(Target.Row, 19)).Copy
        Worksheets("Bilder").Range("C4").PasteSpecial Paste:=xlPasteAll, Transpose:=True
        Application.CutCopyMode = False
        Cancel = True
    End If
End Sub

Bis später,
Karin

 

Hallo Karin,
Vielen Dank für Deine VBA Hilfe!
Programm funktioniert super!

Gruß Derhard

 

Hallo
wie müsste der obige Programm-Code von Karin aussehen ohne Doppelklick-Ereignis?
also nur auf Druck eines Buttons!
Vielen Dank
Gruß Derhard

 

Hi,

Code:

Sub Kopieren()
    If Application.CountA(Range(Cells(ActiveCell.Row, 13), Cells(ActiveCell.Row, 1[B][COLOR=#ff0000]9[/COLOR][/B]))) > 0 Then
        Range(Cells(ActiveCell.Row, 13), Cells(ActiveCell.Row, 19)).Copy
        Worksheets("Bilder").Range("C4").PasteSpecial Paste:=xlPasteAll, Transpose:=True
        Application.CutCopyMode = False
    End If
End Sub

Übrigens war in dem anderen Code noch ein kleiner Flüchtigkeitsfehler enthalten - ich habe ihn hier rot markiert (9 anstelle 3). Der Fehler bewirkte, dass der Code nur dann ausgeführt wird, wenn in Spalte M etwas steht, nicht jedoch wenn Spalte M leer, die anderen aber gefüllt sind.

Bis später,
Karin

 

Hallo Karin,
Vielen Dank für Deine Hilfe.
funktioniert

PS: Warum kennst Du dich so gut in Excel und der Programmierung?

Gruß Derhard

 

Hi,

Ich beschäftige mit autodidaktisch seit ca. 1980 mit dem Programmieren (BASIC, dBASE) und seit ca. 2002 mit der Excel-Pogrammierung. Grund: macht einfach Spaß, immer wieder etwas neues auszuprobieren und ich konnte mir und meinen Kollegen damit die Arbeit wesentlich vereinfachen und erleichtern und helfe seit 10 Jahren auch anderen Usern in den Foren. In den Foren ist es ein ständiges Geben und Nehmen - also auch ich lerne immer wieder dazu. ;)

Bis später,
Karin

 

Hallo Karin,
Danke für die Info

Gruß Derhard