Thema Datum  Von Nutzer Rating
Antwort
Rot Zelle in andere Zelle durch Mausklick kopieren
13.06.2021 00:47:49 Sani
NotSolved
13.06.2021 02:18:23 xlKing
Solved

Ansicht des Beitrags:
Von:
Sani
Datum:
13.06.2021 00:47:49
Views:
83
Rating: Antwort:
  Ja
Thema:
Zelle in andere Zelle durch Mausklick kopieren

Hallo, 

ich bin ein totaler VBA Neuling und schlage mich seit Tagen mit dem Kopieren von einer Range in eine andere Zelle durch einen einfachen Mausklick rum. Also durchs Anklicken soll die Zelle D5 in L5 erscheinen. Hintergrund ist, dass ich eine Skala zwischen 1  und 10 habe, die ich durchs einfache Anklicken bedienen möchte. So bewerte ich nach folgenden Kriterien. Das Problem ist, dass ich in meiner ersten Spalte durchs Anklicken schaffe, die von mir ausgesuchte Zahl in meiner Spalte nebenan zu kopieren. Die anderen Spalten schaffe ich nicht zu kopieren. Es kommen dauernd Fehlermeldungen. 

Bsp: Durchs Anklicken der 9 auf meiner Skala erscheint die 9 auch in einer beliebigen Zelle, hier L5 

1,2,3,4,5,6,7,8,9,10 -> 9

In der nächsten Spalte klick ich die 4 und sie erscheint dann in L6 

1,2,3,4,5,6,7,8,9,10 -> 4

und so weiter 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Intersect(Target, Range("B4:K4")) Is Nothing Then Exit Sub
 ActiveCell.Copy ActiveSheet.Range("L4")
 
 End Sub

Ich hoffe ihr könnt mir helfen! 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zelle in andere Zelle durch Mausklick kopieren
13.06.2021 00:47:49 Sani
NotSolved
13.06.2021 02:18:23 xlKing
Solved