Office: (Office 2016) Aktive Zelle kopieren

Hallo zusammen,
Bitte um VBA Hilfe!

In Tabelle 1 sollte jeweils die Aktive Zelle in die Tabelle 2 ab Spalte D2
nach Button Betätigung untereinander kopiert werden!

Wie müsste der Code dafür aussehen ?

Vielen Dank für Eure Hilfe...

Gruß Derhard

:)

 

ActiveCell.Copy Worksheets("Tabelle 1").Range(D23*biggrin.gif*1048576")


Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Hallo Derhard,

anbei ein Lösungsvorschlag

mfg
Bernd

Sub Makro1()
'
' Makro1 so festlegen dass Aufruf zum Beispiel mit Strg+a erfolgt
' Zelle in "Tabelle1" markieren,, dann Strg+a und schon ist der Inhalt in "Tabelle2"
' In Zelle A1 der Tabelle2 steht der Zeilenzähler der dann jeweils um 1 erhöht wird
' Wenn man dort zu Beginn 3 reinschreibt wird dann alles unter D3,D4,.. kopiert

Sheets("Tabelle1").Select 'Auf Tabelle1 gehen
x = ActiveCell.Value 'Inhalt der aktiven Zelle einlesen
Sheets("Tabelle2").Select 'Auf Tabelle2 gehen
Zeile = Cells(1, 1) 'Aktuellen Zeilenzähler einlesen

' Auswahl der Zelle in Tabelle2 und reinkopieren des vorher ausgewählten Inhaltes aus Tabelle1
Range("D" & CStr(Zeile)).Select
ActiveCell.Value = x

Cells(1, 1) = Zeile + 1 'Aktuellen Zeilenzähler um 1 erhöhen
Sheets("Tabelle1").Select 'Auf Tabelle1 gehen

End Sub

 

Hallo Bernd
Danke für Deinen Lösungsvorschlag!
Aber die Lösung so wie ich es wollte funktioniert nicht ganz.
Ich habe mal eine einfache Testmappe beigefügt.
Aus Tabelle1 sollte die jeweils markierte Zelle in die Tabelle2 ab der Spalte D2 untereinander übertragen werden!
Mit einem Button oder noch besser mit einem Doppelklick

LG
Derhard

 

Hallo derhard,

dafür langt folgendes Makro: Code:

 

Hallo Hasso,
Vielen Dank für Deine Hilfe
Makro funktioniert soweit
Habe nur noch eine Bitte!!!
Wenn in der Tabelle1 eine Zelle ausgewählt wird und dann der Button
zur Übernahme in die Tabelle2 erfolgt springt der Cursor von der ausgewählten Zelle in der Tabelle1 immer in die Spalte D!!!
Lässt sich das nicht verhindern? Die Cursor-Position der ausgewählten Zelle soll in der Tabelle1 erhalten bleiben!

Vielen Dank
LG
Derhard

 

Hallo Derhard,

kein Problem: Code:

 

Hallo Hasso,
Das sieht jetzt gut aus!!!
Vielen Dank für Deine schnelle Hilfe
Gruß
Derhard

 

Hallo Derhard,

wäre es nicht effektiver, wenn der Kopiervorgang nicht durch einen Button, sondern durch einen Doppelklick in die zu kopierende Zelle ausgelöst würde?
Du hast ja schon ein Makro Code:

in deiner Datei. Ersetze das einfach durch Code:

 

Hallo Hasso
Super noch besser!!

Danke...
Gruß
Gerhard und Bleib Gesund

 

Hallo Derhard,

war gestern nicht mehr online doch die Lösung von Hasso ist natürlich eleganter.

mfg

Bernd

 

Hallo Hasso,
ich bin neu hier im Forum und leider ein absolutes VBA Greenhorn.

Auf der Suche nach einem Makro wie Derhard, mit dem ich per Doppelklick in Tabelle 1 die jeweils Aktive Zelle in Tabelle 2 ab Spalte C13 untereinander kopieren kann, bin ich auf Deinen Code gestoßen.
Das mit Spalte C habe ich hinbekommen. Aber wie ändere ich Deinen Code, damit das Einfügen ab Zelle 13 beginnt?

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lngLetzteZeile As Long
If Target.Cells.Count = 1 Then
lngLetzteZeile = Worksheets("Tabelle2").Cells(Rows.Count, 3).End(xlUp).Row + 1
Worksheets("Tabelle2").Cells(lngLetzteZeile, 3) = ActiveCell
Cancel = True
End If
End Sub

Vielen Dank für Deine/Eure Hilfe...

VG
Frank

 

Hallo,

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lngLetzteZeile As Long
If Target.Cells.Count = 1 Then
lngLetzteZeile = Max(Worksheets("Tabelle2").Cells(Rows.Count, 3).End(xlUp).Row + 1, 13)
Worksheets("Tabelle2").Cells(lngLetzteZeile, 3) = ActiveCell
Cancel = True
End If
End Sub

 

Hallo u. Danke Exl121150,

leider bekomme ich mit Deinem Code folgende Fehlermeldung.

 

Hallo,

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lngLetzteZeile As Long
If Target.Cells.Count = 1 Then
lngLetzteZeile=Worksheetfunction.Max(Worksheets("Tabelle2").Cells(Rows.Count, 3).End(xlUp).Row + 1, 13)
Worksheets("Tabelle2").Cells(lngLetzteZeile, 3) = ActiveCell
Cancel = True
End If
End Sub