Office: Per Doppelklick in Zelle Makro starten

Schönen Guten Morgen *Smilie

Ich hoffe Ihr könnt mir ein weiteres mal helfen. Bisher habe ich noch nichts passendes gefunden, was mir weiterhelfen kann.

Folgendes Makro würde ich gerne erst starten lassen, wenn ich in Zelle I40 einen Doppelklick getätigt habe.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngErste As Long
' Eingabe in Gabi
If Not Intersect(Target, Range("Gabi")) Is Nothing Then
With Tabelle3
' erste freie Zeile in Spalte B
lngErste = .Cells(Rows.Count, 2).End(xlUp).Row + 1
' Franzi kopieren
Range("Franzi").Copy
' in Spalte B erste freie Zeile aus Spalte B
.Cells(lngErste, 2).PasteSpecial Paste:=xlValues
End With
End If
End Sub

Vielen Dank schon einmal im voraus.

LG Franzi

:)

 

Dafür bietet sich das Worksheet.BeforeDoubleClick-Ereignis an, welches wie folgt aufgebaut ist:

Code:

 

Ich habe es so eingefügt aber es funktioniert leider net. Er zeigt mir aber auch keinen Fehler im Code an. Könnte es auch damit zusammen hängen das in der Zelle I40 eine Summenformel hinterlegt habe?


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Address = "Franzi" Then
Dim lngErste As Long
' Eingabe in Gabi
If Not Intersect(Target, Range("Gabi")) Is Nothing Then
With Tabelle3
' erste freie Zeile in Spalte B
lngErste = .Cells(Rows.Count, 2).End(xlUp).Row + 1
' Franzi kopieren
Range("Franzi").Copy
' in Spalte B erste freie Zeile aus Spalte B
.Cells(lngErste, 2).PasteSpecial Paste:=xlValues
End With
End If
End If

End Sub

 

Ich habe es so eingefügt aber es funktioniert leider net. Er zeigt mir aber auch keinen Fehler im Code an. Könnte es auch damit zusammen hängen das in der Zelle I40 eine Summenformel hinterlegt habe?


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Address = "Franzi" Then
Dim lngErste As Long
' Eingabe in Gabi
If Not Intersect(Target, Range("Gabi")) Is Nothing Then
With Tabelle3
' erste freie Zeile in Spalte B
lngErste = .Cells(Rows.Count, 2).End(xlUp).Row + 1
' Franzi kopieren
Range("Franzi").Copy
' in Spalte B erste freie Zeile aus Spalte B
.Cells(lngErste, 2).PasteSpecial Paste:=xlValues
End With
End If
End If

End Sub

 

Ich habe es so eingefügt aber es funktioniert leider net. Er zeigt mir aber auch keinen Fehler im Code an. Könnte es auch damit zusammen hängen das in der Zelle I40 eine Summenformel hinterlegt habe?


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Address = "Franzi" Then
Dim lngErste As Long
' Eingabe in Gabi
If Not Intersect(Target, Range("Gabi")) Is Nothing Then
With Tabelle3
' erste freie Zeile in Spalte B
lngErste = .Cells(Rows.Count, 2).End(xlUp).Row + 1
' Franzi kopieren
Range("Franzi").Copy
' in Spalte B erste freie Zeile aus Spalte B
.Cells(lngErste, 2).PasteSpecial Paste:=xlValues
End With
End If
End If

End Sub

 

Ich habe es so eingefügt aber es funktioniert leider net. Er zeigt mir aber auch keinen Fehler im Code an. Könnte es auch damit zusammen hängen das in der Zelle I40 eine Summenformel hinterlegt habe?


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Address = "Franzi" Then
Dim lngErste As Long
' Eingabe in Gabi
If Not Intersect(Target, Range("Gabi")) Is Nothing Then
With Tabelle3
' erste freie Zeile in Spalte B
lngErste = .Cells(Rows.Count, 2).End(xlUp).Row + 1
' Franzi kopieren
Range("Franzi").Copy
' in Spalte B erste freie Zeile aus Spalte B
.Cells(lngErste, 2).PasteSpecial Paste:=xlValues
End With
End If
End If

End Sub

 

Wann genau soll denn dein Makro was genau tun?

In deinem Ursprungsmakro kopiert er "Franzi" und fügt sie in Tabelle 3 in die erste freie Zeile ein (Worksheet.Change-Ereignis).

Jetzt war die Rede von Doppelklick in "I40" (Worksheet.BeforeDoubleClick-Ereignis).

Habe noch nicht so recht verstanden, was genau du jetzt wirklich haben willst.

PS: Du postest hier gerade mehrmals den gleichen Beitrag hintereinander.

 

Moin
Ist "Franzi" eine benannte Zelle??
Hier mal 3 Bsp..
If target.Name.Name = "Franzi" Then '--benannte zelle
oder
If target.Address = "$I$40" Then '--Adresse
oder
If target.Text = "Franzi" Then '--Eintrag
gruss hary

 

Entschuldigt bitte...ich hatte peinlicherweise den Ordner auf der Tastatur.

I40 - ist eine benannte Zelle "Franzi"

Franzi soll erst nach Doppelklick in die Tabelle 3 übertragen werden.

 

Moin
Dann Versuch es mal so.Code in den Code des Blattes wo "Franzi" wohnt.;-)
Code:

gruss hary

 

:-) Klasse vielen lieben Dank...es klappt...