Wert übernehmen

[jjradu]

Hallo zusammen.

Ich möchte gerne einen Wert per Doppelklick übernehmen.

Ich klicke zB auf A1 und möchte den Wert aus K1 übernehmen.

Ich hoffe man kann mir helfen. Bin totaler Anfänger in Sachen Excel.

Gruß Jürgen

[Käpt'n Blaubär]

Hallo Jürgen,

Ich klicke zB auf A1 und möchte den Wert aus K1 übernehmen.

... ich werde Dir weiterhelfen können, wenn vorher noch folgende Fragen geklärt werden:

Wie soll Excel wissen, daß Du beim Doppelklick in A1 ausgerechnet die Zelle K1 nach A1 kopieren willst?

Was soll dann mit dem Eintrag in K1 passieren? 
 1. der Eintrag soll gelöscht werden
 2. der Eintrag soll erhalten bleiben

[jjradu]

Wäre toll wenn du mir helfen kannst.

Der Eintrag von K1 soll erhalten bleiben....denn der Wert ändert sich öfters.

Du fragst: Wie soll Excel wissen, daß Du beim Doppelklick in A1 ausgerechnet die Zelle K1 nach A1 kopieren willst?

Es muss doch möglich sein das man Doppelklick macht und Excel weis, das der Wert aus zB. K1 geholt werden soll

[atilla]

Wie soll Excel wissen, daß Du beim Doppelklick in A1 ausgerechnet die Zelle K1 nach A1 kopieren willst?

Hallo Peter,

das braucht Excel nicht wissen.Wir programmieren das einfach so und Excel soll einfach mal machen.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Target.Address(0, 0) = "A1" Then
   Cancel = True
   Target = Range("K1").Value
   'Range("A1")=Range("K1").Value    'oder in eine bestimme Zelle
 End If
End Sub

[BoskoBiati]

Hi,

[off topic]

Es muss doch möglich sein das man Doppelklick macht und Excel weis, das der Wert aus zB. K1 geholt werden soll

Wenn Dir einer eine Kopfnuss gibt, dann weißt Du sicher, dass Du 10 Kniebeugen machen musst!! :19: :19: :19:

[/off topic]

[atilla]

Hallo Ihr beiden,

die Anweisung ist doch hier klar.

Bei Dpoppelklick schreib den Wert aus K1 in A1 oder in die doppelgeklickte Zelle.
Da gibt es doch nichts zu deuten.

Edgar, mit der Nuss ginge es dann so:
Wenn Du mir eine Kopfnuss gibst, dann bekommst Du eine gewatschelt, das sage ich Dir.
Und nun überleg ob Du mir eine Kopfnuss geben möchtest. :19:

[Käpt'n Blaubär]

Hallo Jürgen,

Es muss doch möglich sein das man Doppelklick macht und Excel weis, das der Wert aus zB. K1 geholt werden soll

natürlich ist es möglich, aus einer Zelle einen Wert in eine andere Zelle zu übertragen.
Das funktioniert problemlos mit VBA und kann fest verdrahtet werden.

Da Du aber selbst schreibst: ... das der Wert aus zB. K1 geholt werden soll ...
dann geht das mit dem zB. eben nur, wenn man Excel beibringt, daß ein Bereich von ... bis
dafür in Frage kommt und per Auswahl einer Zelle, nun sind wir mal wieder bei zB. K1, kann
dann das Makro losrennen und den entsprechenden Wert übertragen.

[jjradu]

Hallo Peter,

das braucht Excel nicht wissen.Wir programmieren das einfach so und Excel soll einfach mal machen.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Target.Address(0, 0) = "A1" Then
   Cancel = True
   Target = Range("K1").Value
   'Range("A1")=Range("K1").Value    'oder in eine bestimme Zelle
 End If
End Sub

Genauso meinte ich das Atilla....einfach super.

Noch was anderes, wie sieht der Code aus, wenn ich nicht nur in A1 den Wert holen will, sondern inA2, A3 usw auch...bis hin zu A10000

[atilla]

Hallo,

dann kann das andere Thema ja geschlossen bzw ganz gelöscht werden. Hättest eigentlich kein neues Thema anfangan brauchen.

Folgender Code ermittelt in Spalte B (da möchtest Du doch hinschreiben) die erste freie Zelle und übernimmt in
diese, nach doppelklick in K1, den Wert aus K1.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lngz As Long
If Target.Address(0, 0) = "K1" Then
  Cancel = True
  lngz = Cells(Rows.Count, 2).End(xlUp).Row + 1  'erste frei Zelle in Spalte B
  Range("B" & lngz) = Range("K1").Value  'oder in eine bestimme Zelle
End If
End Sub

[jjradu]

SUPER!!!!!

Genau das habe ich gesucht.

1000 Dank Atilla

Gruß
Jürgen