ich möchte durch Doppelklick auf eine Zelle den Wert kopieren und in einem anderen Arbeitsblatt an Pos $A$1 einfügen.
Wer weiß Rat?
ich möchte durch Doppelklick auf eine Zelle den Wert kopieren und in einem anderen Arbeitsblatt an Pos $A$1 einfügen.
Wer weiß Rat?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets(1).Range("a1").Value = ActiveCell.Value
End Sub
gruß
andreas e
http://www.skripteundaufgaben.de viele kostenlose Downloads und Lösungsansätze zu EXCEL und mehr
Gruß Hajo
Es soll aber bei Doppelklick das Arbeitsblatt "Tabelle 2" aufgerufen und der Wert dort in a1 eigetragen werden.
Gruß Karsten
der Cursor ist kein Hund der überall rumgeführt werden muß
Gruß Hajo
gruß
andreas e
http://www.skripteundaufgaben.de viele kostenlose Downloads und Lösungsansätze zu EXCEL und mehr
danke so läuft's. Jetzt möchte ich dabei auch noch die Tabelle 2 aktiv setzen.
> der Cursor ist kein Hund der überall rumgeführt werden muß
Entschuldige, aber den Spruch verstehe ich nicht.
Gruß Karsten
in VBA kann auf Select und ähnliche Befehle verzichtet werden. Du mußt nicht immer den Cursor dorthin führen wo die nächste Aktion gemacht werden soll.
Gruß Hajo
Danke. Genau so wollt ich es haben.
Da ich in diesem Fall mit dem zweiten Worksheet weiterarbeiten möchte, mußte der Cursor folgen.
Vielen Dank
Karsten
Um in Excel durch einen Doppelklick auf eine Zelle den Wert zu kopieren und in ein anderes Arbeitsblatt einzufügen, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Anleitung:
Öffne den VBA-Editor:
ALT + F11
, um den VBA-Editor zu öffnen.Wähle das Arbeitsblatt aus:
Füge den folgenden Code ein:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("Tabelle2").Range("A1").Value = ActiveCell.Value
Cancel = True
End Sub
Speichere die Änderungen:
Teste die Funktion:
Fehler: Doppelklick funktioniert nicht
Lösung: Stelle sicher, dass der Code im richtigen Arbeitsblatt-Modul eingefügt wurde. Der Code muss in dem Arbeitsblatt sein, in dem Du die Aktion ausführen möchtest.
Fehler: Wert wird nicht kopiert
Lösung: Überprüfe den Namen des Arbeitsblatts im Code. Achte darauf, dass "Tabelle2" genau so heißt. Wenn Dein Blatt einen anderen Namen hat, passe den Code entsprechend an.
Wenn Du den Doppelklick nicht verwenden möchtest, gibt es auch andere Möglichkeiten:
Excel in Zelle schreiben ohne Doppelklick: Du kannst eine Schaltfläche erstellen, die den Wert aus einer Zelle in ein anderes Arbeitsblatt kopiert, wenn Du darauf klickst.
Excel mit Doppelklick in Zelle springen: Du kannst den Doppelklick nutzen, um direkt zu einem anderen Arbeitsblatt zu springen, ohne Werte zu kopieren. Dazu kannst Du den Code wie folgt anpassen:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("Tabelle2").Activate
Cancel = True
End Sub
Hier sind einige Beispiele zur Veranschaulichung:
Beispiel 1: Du hast auf "Tabelle1" den Wert "100" in Zelle A1 und Doppelklick darauf. Nach dem Doppelklick wird der Wert in "Tabelle2" A1 eingefügt.
Beispiel 2: Wenn Du den Doppelklick verwendest, um zur "Tabelle2" zu springen, kannst Du dort direkt weiterarbeiten, ohne manuell wechseln zu müssen.
Verwende Target
: Du kannst den Target
-Parameter nutzen, um den Wert der angeklickten Zelle dynamisch zu kopieren, anstatt immer den aktiven Wert zu verwenden.
Sheets("Tabelle2").Range("A1").Value = Target.Value
Multiple Zellen: Wenn Du mehrere Zellen kopieren möchtest, kannst Du den Code erweitern, um die Werte in eine Liste einzufügen.
1. Wie kann ich die Funktion deaktivieren?
Du kannst den Code einfach aus dem Arbeitsblatt-Modul löschen oder auskommentieren, indem Du ein '
vor die Zeile setzt.
2. Funktioniert das auch in Excel Online?
Nein, VBA-Makros sind in Excel Online nicht verfügbar. Du musst die Desktop-Version von Excel verwenden.
3. Kann ich die Zielzelle anpassen?
Ja, ändere einfach die Range in Sheets("Tabelle2").Range("A1")
zu der gewünschten Zelle, in die Du den Wert kopieren möchtest.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen