Excel VBA Aktive Zelle mit Doppelklick in Zwischenablage?

Hallo ihr,

ich habe ein Problem mit einer Excel Anwendung, die ich machen möchte.

Ich habe einige Zellen in Excel, die jeweils einige Nummern oder Kennzeichnungen enthalten.

Für verschiedene Fälle muss ich einige dieser Nummern in eine Liste herausschreiben.

Ich möchte gerne, dass wenn ich auf eine Zelle Klicke oder Doppelklicke, dass sich der Inhalt dieser Aktiven Zelle in die Zwischenablage kopiert. Im Besten Fall fügt sich die Zwischenablage dann untereinander in einem Excel Blatt wieder ein, sodass ich nacheinander die verschiedenen Zellen anklicken kann und meine Liste so zusammenstellen kann.

Habe in VBA schon versucht, sowas zu realisieren, aber bis jetzt hat das nicht so funktioniert.

Ich hoffe, jemand kann mir weiterhelfen.

Vielen Dank!

1 Antwort

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

25.10.2021, 15:09

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Worksheets("Liste").Range("A9999").End(xlUp).Offset(1).Value = Target.Value
   Target.Copy
   Cancel = True
End Sub

Woher ich das weiß:Berufserfahrung – Programmierer

Ähnliche Fragen

Excel VBA - Zellen nach Datum löschen?

Hallo Liebe Excel - Kenner,

gibt es die Möglichkeit oder einen Code, wo ich Zellen löschen die ich nach Datum und Uhrzeit bestimme?

Bsp: Zelle A1: K30 löschen am 25.03.2016 - 14:00 Uhr

Gruß Manuel

...zur Frage

Excel Text aus Zelle filtern?

Hallo,

ich habe mehrere hundert Zellen in einer Spalte die jeweils eine Beschreibung und eine dazugehörige AA Nummer innerhalb einer Zelle beinhaltet. Nun möchte ich aber die ganze Beschreibung raushaben und im Prinzip nur die AA-Nummer rausfiltern, bzw. die Zelle auf diese Nummer reduzieren. Gibt es solch eine Funktion bei Excel oder vielleicht mit VBA? Beispiel wie diese Zellen aktuelle aussehen im Bild (s.u.)

LG Aseterus

...zur Frage

Wie kann ich Excel-Zellen für Word auslesen?

Ich muss den Inhalt einer speziellen Zelle in einem Excel-Sheet als String auslesen und in einem Word-Dokument einfügen. Das ganze soll per VBA funktionieren. Dabei sollte die Excel-Datei bestenfalls geschlossen bleiben. Kann jemand helfen? Nutze MS-Office 2013.

...zur Frage

Excel VBA Zellen färben, wenn best. Wert in anderer Zelle

Servus,

ich habe durch die Arbeit vermehrt mit Excel VBA und Makro zu tun, meine Aufgabe besteht darin, dass ich ein Makro erstellen soll, das Daten aus mehreren Dokumenten zu einem monatlichen Bericht zusammenstellt.

Ich bin schon recht weit, jetzt fehlts am Feinschliff, ich habe in Spalte A Werte von FF58200 bis FF59625. Ist der Wert in einer Zelle zwischen FF58200 und FF58425 ist, so sollen in den Spalten E und F diese Zellen Gelb gefärbt werden, sofern sie zwischen FF58430 und FF 58650 sind Grün.

Das Problem dabei ist, dass ich absolut keine Wenn-Funktion hinbekomme.

Könnt ihr mir helfen?

Danke vielmals :D

...zur Frage

Letze Zelle finden und Bis runter Ziehen VBA?

Excel letzte Zelle mit wert finden, eine Zelle darunter auswählen, formel einfügen und bis Zelle 500 runterziehen.

per VBA

...zur Frage

Excel VBA: wie kann ich in einer Spalte Zellen nach dem entsprechenden Muster selektieren - erste Zelle mit einem Wert bis nächste Zelle mit einem Wert minus 1?

Excel VBA: wie kann ich in einer Spalte Zellen nach unten mit dem entsprechenden Muster selektieren - erste Zelle mit einem Wert bis zur nächste Zelle mit einem Wert minus einer Zelle: es soll B1+B2 durch das Makro selektiert werden, dann sollen diese Zellen merged werden; danach soll B3 gewält werden und gemergered werden; danach dann B4+B5+B5 markiert werden und ebenfalls merged werde usw bis zum Ende der Spalte B

Reihe A B C D

Reihe 1 1 da er we

Reihe 2 2

Reihe 3 1 be de oi

Reihe 4 1 as sa ds

Reihe 5 2

Reihe 6 3

Reihe 7 1 dw

Vielen Dank für Hilfe und Anregungen

Grüße Sascha

...zur Frage

Text in einer Zelle mit Liste Vergleichen und die entsprechenden Worte Fett schreiben VBA Excel?

Ich würde gerne Text aus einer Zelle in einer andere Zelle schreiben. Der Text soll bevor er in die andere Zelle geschrieben wird mit einer Liste (Worte einzeln in einer Tabellenspalte) verglichen werden. Worte die in dieser Liste Stehen sollen dann Fett geschrieben werden.

Ohne VBA geht das nicht. Evtl. hat hier ja jemand ne gute Idee wie man das am einfachsten Umsetzen kann?

Wäre für die Hilfe Dankbar. Habe schon sämtliche Foren durchsucht.

...zur Frage

EXCEL VBA Werte in Bezug auf andere Zelle einfügen

Hallo miteinander. Habe eine Tabelle auf der auf Zeile D verschiedene Zahlen mehrmals vorkommen. Auf der Nachbarszeile E sind nur z.T. Werte vorhanden. Nun suche ich ein VBA das mir ermöglicht die leeren Zellen von E mit den jeweiligen Werte von Zelle E in Bezug auf der Nachbarszelle D auszufüllen.

Für eure Hilfe und Tipps jetzt schon vielen Dank

...zur Frage

Excel Aktive Zelle auslesen VBA?

Ich habe eine Tabelle in Excel erstellt. Nun ist dort ein Button, der auf Knopfdruck ein Makro ausführt, das, wenn die aktuelle entweder B2 oder C6 oder D10 ist, in diese Zelle eine 5 einträgt. Wie kann ich das mit einer If-Anweisung umsetzen (mithilfe von Or-Operatoren)?

Also ich meine so in die Richtung

If ActiveCell = B2 Or C6 Or D10 Then

Active Cell.Value = 5

Else

MsgBox("Das Argument ("5") ist nicht mit der aktuellen Zelle kompatibel.")

End If

Nur dass das oben nie funktioniert, weil ich nicht weiß, wie ich mehrere Zellen als richtig ansehen lassen kann.

Kann mir jemand das richtige Makro zeigen?

...zur Frage

Excel-Zeilen nach Inhalt über Button und VBA ausblenden?

Hallo zusammen,

ich möchte in Excel mithilfe eines Buttons und VBA bestimmte Zeilen ausblenden.

Das ganze soll wie folgt wirken:

Klickt man auf den Button sucht Excel nach Zeilen die in Spalte C den Inhalt "ohne Angaben" enthalten und blendet alle Zeilen aus welche diesen Text in Zelle C enthalten.

Wie kann man das realisieren?

Dirk

...zur Frage

Problem mit VBA Excel: Wert Finden und Zeilen daneben ersetzen.

Hallo zusammen,

Ich versuch mich grade mit VBA und stoß so langsam an meine Grenzen.

Ich möchte mit mit einem Formular einen Wert aus Tabelle1 nehmen, diesen in Tabelle2 suchen und markieren. Außerdem soll zusätzlich in den Zeilen daneben Werte aus Tabelle1 eingetragen werden.

Das switchen zwischen den Tabellen, das Finden und Markieren klappt soweit, nur funktioniert das Kopieren aus den Zellen in Tabelle1 in die neben den gefundenen Wert aus Tabelle2 befindlichen Zellen nicht. Anscheinend selektiert mein Makro die Markierte Zelle nicht, weshalb ich mit "ActiveCell" nicht weiter komme.

Wäre cool wenn jemand mir da weiterhelfen könnte :)

Sheets("Tabelle2").Select
Cells.Find(What:=Worksheets("Tabelle1").Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Interior.Color = vbRed                 

    If ActiveSheet.Name = "Tabelle2" Then                             Sheets("Tabelle1").Select                                           Else                                                                Sheets("Tabelle2").Select                                             End If

...zur Frage

Excel - Kann nicht in eine Zelle "reinklicken"

Hallo liebe Community,

folgendes Problem: Habe Excel 2010 und seit Kurzem, wenn ich auf eine Zelle Doppelklicke, kann ich nicht innerhalb der Zelle reingehen. Normalerweise würde ich bei einem doppelklick auf eine zelle einen Strich sehen und schreiben können sowie meine Position im Text einer zelle direkt ändern können.

Jetzt ist es allerdings so, dass ich die Zelle auswählen kann, aber Änderungen nur oben in der Leiste vornehmen kann (dort wo davor fx steht).

Weiß jemand Rat?

...zur Frage

Wie ermittelt man in Excel (VBA) den Zelleninhalt bei verbundenen Zellen?

Ich durchlaufe in meinem Excel VBA-Script die Zellen einer Spalte, um den Zelleninhalt auszuwerten. Nun kann es passieren daß Zellen "verbunden" sind. In diesem Fall liefert mir das Script nur jeweils für die linke oberste Zelle der verbundenen Zellen den Wert zurück. In den anderen Zellen kommt Blank zurück. Ich würde in allen Zellen den gleichen Wert zurückerwarten?
Wie könnte man das bewerkstelligen?
Hardcopy/Beispiel: In den grünen Spalten steht was ich erwarten würde. In den gelben die tatsächliche VBA-Ausgabe.

Private Sub Worksheet_Activate()
  Dim iRow As Integer
  iRow = 4
  Do
    Worksheets("Test").Cells(iRow, 5) = Worksheets("Test").Cells(iRow, 1)
    Worksheets("Test").Cells(iRow, 7) = Worksheets("Test").Cells(iRow, 2)
    iRow = iRow + 1
    If iRow > Worksheets("Test").UsedRange.Rows.Count Then Exit Do
  Loop
End Sub

...zur Frage

Per Doppelklick plus 1 in eine Excel Zelle zählen?

Ich möchte in mehreren Zellen mit Maus-Doppelklick eine 1 dazu zählen und finde nur alte Beiträge, ich habe Office 365. Danke für die Hilfe Paula

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen