Microsoft Excel

Herbers Excel/VBA-Archiv

Makro einer Tabelle in weitere Tabellen kopieren

Betrifft: Makro einer Tabelle in weitere Tabellen kopieren von: Matze Matthias
Geschrieben am: 20.09.2014 22:46:04

Hallo zusammen,

habe ein Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Makro in Tabelle 1 oder als Textdatei

Dieses möchte ich nun nicht händisch in die knapp 40 Arbeitsblätter kopieren.
Wie muss ich das lösen? Wie bekomme ich die von Tabelle8 bis Tabelle44 da rein kopiert? der Recorder zeigt bei mir hier gar nix auf, hmmm.

Gruß Matze

  

Betrifft: Lege diese EreignisProzedur besser im ... von: Luc:-?
Geschrieben am: 20.09.2014 23:06:30

…Dokument-KlassenModul der Mappe an, Matze,
dann gilt es für alle Blätter. Sollen welche ausgenommen wdn, kannst du das über den automatisch ermittelten BlattObjekt-Parameter Sh lösen.
Gruß, Luc :-?


  

Betrifft: Benötige doch weitere Hilfe,... von: Matze Matthias
Geschrieben am: 21.09.2014 20:47:17

Hallo Luc,
ich bin in Sachen VBA immer noch schwer Hilfebedürftig.
Mit KlassenModul hatte ich bislang noch gar nix zu tun (oder unbewusst).

Ich hab jetzt unter dieser Arbeitsmappe dieses Ereignis gesehen, aber es gelingt mir nicht wirklich
die Umsetzung zu erstellen:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel  _
As Boolean)

'Es Soll ab der Tabelle 7 bis letzte Tabelle möglich sein die Zelle A1 per doppelklick zu  _
nutzen um
'ein Makro zu starten (Call BackTo)

'Das Sh as Object ,weis ich leider nicht wie ich das schreiben 

If Range("A1") Is Nothing Then Exit Sub
  With Target
    Call BackTo 'steht im Modul Sheetsanzeigen
  End With
Cancel = True


End Sub



  

Betrifft: AW: Benötige doch weitere Hilfe,... von: hary
Geschrieben am: 22.09.2014 08:46:56

Moin Matze

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel  _
As Boolean)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$1" Then
 Select Case Sh.Index
   Case 7 To Worksheets.Count
     Call BackTo
 End Select
End If
End Sub

gruss hary


  

Betrifft: Hary, wie immer, Fettes Danke ! von: Matze Matthias
Geschrieben am: 22.09.2014 09:53:01

Hi Hary,
.Index oh man ich bekomms irgendwann noch in den Kopp,
wunderbar , funktioniert,läuft,rennt,..Danke.
Gruß Matze


  

Betrifft: noch eine Variante von: Erich G.
Geschrieben am: 22.09.2014 10:14:29

Hi Matthias,
hier noch ein Vorschlag:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
                                            ByVal Target As Range, _
                                                  Cancel As Boolean)
  ' Ab der 7. Tabelle bis letzte Tabelle
  ' soll per Doppelklick auf die Zelle A1
  ' die Prozedur 'BackTo' gestartet werden.

   If Sh.Index >= 7 And Target.Address = "$A$1" Then
      Call BackTo
      Cancel = True
   End If
End Sub
@Hary:
"If Target.Count > 1 Then Exit Sub" ist hier m. E. völlig überflüssig.
(Wie groß kann Target sein, wenn Target.Address = "$A$1 ist?)

Hast du "Cancel = True" absichtlich weggelassen?

Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich


  

Betrifft: AW:@Erich von: hary
Geschrieben am: 22.09.2014 10:20:32

Moin Erich
Schau mal auf den Kalender, ist Montag. ;-))
Klar, bei Doppelklick kann's nur eine geben.
und Cancel vergessen.
gruss hary


  

Betrifft: AW: noch eine Variante von: Matze Matthias
Geschrieben am: 22.09.2014 12:03:59

Hi Erich,
auch dir ein fettes Danke, das Cancel hatte ich schon selbst eingefügt bei harys Zeilen.
Gruß Matze


 

Beiträge aus den Excel-Beispielen zum Thema "Makro einer Tabelle in weitere Tabellen kopieren"