Microsoft Excel

Herbers Excel/VBA-Archiv

VBA Code für alle Blätter

Betrifft: VBA Code für alle Blätter von: WalterK
Geschrieben am: 17.11.2012 18:48:10

Guten Abend,

der folgende Code kopiert Zellen per Doppelklick in eine andere Spalte des Blattes.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim KopiereZuSpalte As Long
    
        With ActiveSheet
                
                KopiereZuSpalte = 10 'Spaltennummer angeben, in die kopiert werden soll
                
                If Target.Column = 1 Then 'Spaltennummer angeben, aus der mit Doppelklick  _
kopiert werden soll
                Cells(ActiveSheet.Cells(Rows.Count, KopiereZuSpalte).End(xlUp).Row + 1,  _
KopiereZuSpalte).Value = Target.Value
                End If
        End With
End Sub
Was muss ich ändern, damit der Code in allen Tabellenblättern der Mappe wirksam ist und er nicht in jedes einzelne Blatt kopiert werden muss.

Danke und Servus, Walter

  

Betrifft: Code in "DieseArbeitsmappe" von: robert
Geschrieben am: 17.11.2012 19:06:42

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel  _
As Boolean)
 Dim KopiereZuSpalte As Long
    
        With ActiveSheet
                
                KopiereZuSpalte = 10 'Spaltennummer angeben, in die kopiert werden soll
                
                If Target.Column = 1 Then 'Spaltennummer angeben, aus der mit Doppelklick _
kopiert werden soll
                Cells(ActiveSheet.Cells(Rows.Count, KopiereZuSpalte).End(xlUp).Row + 1, _
KopiereZuSpalte).Value = Target.Value
                End If
        End With
End Sub

Gruß
robert


  

Betrifft: Danke Robert, so gehts! Servus, Walter von: WalterK
Geschrieben am: 17.11.2012 19:11:27




  

Betrifft: Statt ActiveSheet kannst du Sh verwenden, ... von: Luc:-?
Geschrieben am: 18.11.2012 17:28:51

…Robert,
denn dieser StandardParameter referenziert hier ja stets das ActiveSheet. ;-)
Gruß Luc :-?


  

Betrifft: Ich hab nur seinen Code eingefügt-in Workbook... von: robert
Geschrieben am: 18.11.2012 18:05:30

owT


  

Betrifft: Sicher, aber da war's ja auch überflüssig! ;-) orT von: Luc:-?
Geschrieben am: 18.11.2012 18:11:14

SchöSonAb, Luc :-?


  

Betrifft: Ich bin unschuldig ;-)) owT- ebensolchen.. von: robert
Geschrieben am: 18.11.2012 18:26:40




  

Betrifft: Ja, klar... ;-) owT von: Luc:-?
Geschrieben am: 18.11.2012 21:04:36

:-?


  

Betrifft: AW: VBA Code für alle Blätter von: Matthias L
Geschrieben am: 17.11.2012 19:10:57

Hallo

Probier mal ob Du es hier unterbringen kannst

DieseArbeitsmappe

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel  _
As Boolean)
'... Dein Code
End Sub
Gruß Matthias


  

Betrifft: Danke Matthias, 2 Antworten - 2 Treffer! Servus, W von: WalterK
Geschrieben am: 17.11.2012 19:14:33




 

Beiträge aus den Excel-Beispielen zum Thema "VBA Code für alle Blätter"