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

Ansicht des Beitrags:
Von:
xlKing		 Datum:
13.06.2021 02:18:23		 Views:
568		 Rating:
     
Antwort:
 Nein
Thema:
Zelle in andere Zelle durch Mausklick kopieren

Hallo Sani,

erstens solltest du Begriffe wie Zeilen und Spalten nicht durcheinanderhauen. Deinem Code ist zu entnehmen, dass die Skala in jeder Zeile horizontal angeordnet ist. Zahl 1 steht dann wohl in Spalte B und Zahl 10 in Spalte K. Die gewählte Zahl soll also nach Spalte L kopiert werden, richtig? Wenn ich dich recht verstehe, funktioniert dein Code bereits für Zeile 4 und du benötigst nur eine Erweiterung für die anderen Zeilen? Probiers mal so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("B4:K10")) Is Nothing Then
   Cells(Target.Row, 12) = Target.Cells(1)
 End If
End Sub

oder um bei deinem Code zu bleiben, vielleicht verstehst du ihn ja besser:

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

Einer dieser beiden Codes wird dir sicher Abhilfe schaffen.

Gruß Mr. K.

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
13.06.2021 00:47:49 Sani
NotSolved
Blau Zelle in andere Zelle durch Mausklick kopieren
13.06.2021 02:18:23 xlKing
Solved