Office: (Office 2016) Aktive Zelle kopieren

Helfe beim Thema Aktive Zelle kopieren in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; 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... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von derhard, 30. März 2020.

  1. 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

    :)
     
    derhard, 30. März 2020
    #1
  2. Hajo_Zi
    Hajo_Zi Erfahrener User
    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
     
    Hajo_Zi, 31. März 2020
    #2
  3. 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
     
    BerndP, 31. März 2020
    #3
  4. Aktive Zelle kopieren

    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
     
    derhard, 31. März 2020
    #4
  5. Hallo derhard,

    dafür langt folgendes Makro: Code:
     
    Hasso, 1. April 2020
    #5
  6. 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
     
    derhard, 1. April 2020
    #6
  7. Hallo Derhard,

    kein Problem: Code:
     
    Hasso, 1. April 2020
    #7
  8. Aktive Zelle kopieren

    Hallo Hasso,
    Das sieht jetzt gut aus!!!
    Vielen Dank für Deine schnelle Hilfe
    Gruß
    Derhard
     
    derhard, 1. April 2020
    #8
  9. 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:
     
    Hasso, 1. April 2020
    #9
    1 Person gefällt das.
  10. Hallo Hasso
    Super noch besser!!

    Danke...
    Gruß
    Gerhard und Bleib Gesund
     
    derhard, 1. April 2020
    #10
  11. Hallo Derhard,

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

    mfg

    Bernd
     
    BerndP, 1. April 2020
    #11
  12. Frank-J Neuer User
    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
     
    Frank-J, 19. April 2023
    #12
  13. Exl121150 Erfahrener User

    Aktive Zelle kopieren

    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
     
    Exl121150, 20. April 2023
    #13
  14. Frank-J Neuer User
    Hallo u. Danke Exl121150,

    leider bekomme ich mit Deinem Code folgende Fehlermeldung.

    Aktive Zelle kopieren upload_2023-4-20_14-39-22.png
     
    Frank-J, 20. April 2023
    #14
  15. Exl121150 Erfahrener User
    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
     
    Exl121150, 20. April 2023
    #15
    1 Person gefällt das.
Thema:

Aktive Zelle kopieren

Die Seite wird geladen...
  1. Aktive Zelle kopieren - Similar Threads - Aktive Zelle kopieren

  2. Aktive Zeile dauerhaft markieren

    in Microsoft Excel Hilfe
    Aktive Zeile dauerhaft markieren: Möchte wenn ich in eine Zelle gehe, das per Knopfdruck die Zeile von Spalte B bis P dauerhaft markiert wird. Bin ein Newbie und habe einiges gefunden um die Aktuelle Zeile zu markieren, jedoch...
  3. VBA: Text in Aktiver Zelle finden

    in Microsoft Excel Hilfe
    VBA: Text in Aktiver Zelle finden: Hallo, ich suche nach einer einfachen Textzeile, die überprüft, ob ein bestimmtes Wort in der aktiven Zelle hinterlegt ist. Wie folgt geht das schon: If ActiveCell = "Textbeispiel" Then...
  4. CommandButton1 nur aktiv wenn Zelle gefüllt.

    in Microsoft Excel Hilfe
    CommandButton1 nur aktiv wenn Zelle gefüllt.: Hallo Zusammen, habe den CommandButton1 mit einem Makro belegt. Möchte aber das der Button nur funktioniert wenn die Zellen B5:B13 mit Werten gefüllt sind. In den Zellen A5:A13 stehen...
  5. Aktive Zeile, Textbox

    in Microsoft Excel Hilfe
    Aktive Zeile, Textbox: Hallo Zusammen, ich würde gerne die Zelle D der aktive Zeile in eine im PoPUp eingebetteten Textbox ausgeben ohne jetzt auch in Spalte D zu sein. Leider sind da meine Laien Kenntnisse zu wenig...
  6. Bestimmte Zellen aus aktiver Zeile kopieren und Differenzberechnung

    in Microsoft Excel Hilfe
    Bestimmte Zellen aus aktiver Zeile kopieren und Differenzberechnung: Nachdem meine Ranglistenaktualisierung (siehe zur Erklärung des Problems) nun toll funktioniert, möchte ich mir das Eintragen von Spielergebnissen etwas erleichtern. Dazu habe ich in Tabelle2...
  7. zellen einer aktiven zeile kopieren in ein anderes tabellenblatt

    in Microsoft Excel Hilfe
    zellen einer aktiven zeile kopieren in ein anderes tabellenblatt: hallo und guten morgen, ich möchte zellen von a-g in das tabellenblatt m1 kopieren und zwar immer aus der zeile, in der eine zelle oder die komplette zeile markiert ist. eingefügt in das...
  8. Aktive Zelle kopieren und darunter einfügen

    in Microsoft Excel Hilfe
    Aktive Zelle kopieren und darunter einfügen: Hallo, bin nicht wirklich ein VBA Fachmann und die Aufnahmefunktion bringt mich grade auch nicht weiter. Ich möchte in eine beliebige Zelle markieren und dann per VBA Code darüber oder darunter...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden