Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1832to1836
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Zelle auswählen durch Klick

VBA Zelle auswählen durch Klick
29.05.2021 10:42:03
Vanessa
Hallo zusammen,
ich habe folgendes Problem:
Ich habe eine Auswahl von Daten bzw. Werten in den Zellen B22:F24. Ich möchte, dass bei der Auswahl einer Zelle in diesem Bereich, der Wert in der Zelle G22 ausgegeben wird.
Das heißt am Ende möchte ich den Wert ausgegeben haben durch einen Mausklick auf die jeweilige Zelle, die ich benötige.
Habe es bis jetzt geschafft den ganzen Datenbereich zu kopieren und einzufügen mit dem folgenden Code.
Hilft mir im Endeffekt nicht weiter, wenn alle Werte aus dem Datenbereich auftauchen...
Hoffe jemand kann helfen :)

Sub kopieren ()
Worksheet("Tabelle1").Range("B22:F24").Copy Destination:'=Worksheets("Zeugnis").Range("G22")
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zelle auswählen durch Klick
29.05.2021 11:06:16
RPP63
Moin!
Ich nehme doch schwer an, dass das (entgegen deines Code-Snippets) im aktiven Blatt stattfinden soll.
Ins Modul der Tabelle (Rechtsklick auf Tabellenregister, Code anzeigen):
Microsoft Excel Objekt Tabelle8
Option Explicit 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
If Not Intersect(Range("B22:F24"), Target) Is Nothing Then 
  If Target.CountLarge = 1 Then 
    Range("G22") = Target 
  End If 
  Else 
  Range("G22") = Null 
End If 
End Sub 
Gruß Ralf
Anzeige
AW: VBA Zelle auswählen durch Klick
29.05.2021 11:56:54
Vanessa
Vielen Dank hat geklappt!
Aber würde gerne noch etwas wissen:
Wenn ich den Wert auswähle im Bereich B22:F24 erhalte ich den Zielwert in G22. Das passt!
Nun habe ich noch Werte in B27:F29 und will diese in G27 ausgegeben haben.
Und nochmals Werte in B31:F34 und will diese in G31 erhalten.
Ich bin ein Anfänger habe auch schon ein wenig rumprobiert , aber das klappt bei mir nicht.
AW: VBA Zelle auswählen durch Klick
29.05.2021 12:29:06
hary
Moin
Kann so so loesen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("B22:F24,B27:F29,B31:F34"), Target) Is Nothing Then
If Target.CountLarge = 1 Then
Select Case Target.Row
Case 22 To 24: Range("G22") = Target
Case 27 To 29: Range("G27") = Target
Case 31 To 34: Range("G31") = Target
End Select
End If
Else
Union(Range("G22"), Range("G27"), Range("G31")) = Null
End If
End Sub
gruss hary
Anzeige

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige