PDA

Vollständige Version anzeigen : Makro Hilfe


cloudue
25.07.2012, 09:24
Hallo ich habe folgendes problem ich möchte

Worksheets(Replace(Me.Name, "L", "H")).Activate

ausführen wenn ich auf B1 Klicke(beliebiges tabellenblatt), was muss ich dafür tun?

ich habe es schon mit If target.adress versucht hat aber nicht funktioniert. =/

Gruß Daniel

hary
25.07.2012, 09:43
Hallo
'Code in den den Code der Arbeitsmappe
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count = 1 And Target.Address = "$B$1" Then
'hier dein Code
End If
End Sub

gruss hary

cloudue
25.07.2012, 10:04
Option Explicit

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "A1" And Sh.Index <> 1 Then
Cancel = True
Application.Goto Sheets(1).Range("A1")
End If
End Sub


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count = 1 And Target.Address = "$B$1" Then
Worksheets(Replace(Me.Name, "L", "H")).Activate
End If
End Sub

Wenn ich das eintippe geht kein makro mehr =/

hary
25.07.2012, 10:15
Hallo
Wo hast du den Code reingesetzt? Der gehoert nicht in ein Makro.
Siehe Anhang.
Klick einfach in B1.
An den Code kommst du mit Alt+F11 Tasten. Und unter: DieseArbeitsmappe
gruss hary
Wobei ich diese zeile nicht getestet habe.
Worksheets(Replace(Me.Name, "L", "H")).Activate

cloudue
25.07.2012, 11:34
ich habe die beiden makros unter dieseArbeitsmappe, liegt das vllt daran?

ich habe es nun mal ohne den anderen makro ausprobiert geht so auch nicht. ( mein code funktionert bei einen button)

hary
25.07.2012, 12:17
Hallo
War kurz weg. Habe versucht deine Mappe nachzubauen, hat aber keine Zweck.
Verstehen tue ich diese Zeile
Worksheets(Replace(Me.Name, "L", "H")).Activate
bloss meine Mappe sieht bzw heisst bestimmt aus/anders.
Lade mal eine Bsp.Mappe hoch.
gruss hary

cloudue
25.07.2012, 13:02
der code bewirkt nur das der Buchstabe L durch H (Tabellenblattname) ersetzt wird ( MLE zu MHE )


und der andere code/ makro bewirkt nur dass man wieder auf das erste tabellenblatt kommt

hary
25.07.2012, 13:07
hallo
Hab hier nur 2007.
Ja ist schon klar. Nimmt aber .xls mit.
Also muss die Tabelle MHE.xls heissen dann klappt das auch.
In Anhang mein Versuch.
gruss hary