Hallo zusammen,
der folgende Code erlaubt es mir, per Hyperlink von Tabelle 1 nach Tabelle 2
zu springen, dort eine Zelle anzuklicken, deren Inhalt dann in eine bestimmte Zelle in
Tabelle1 eingefügt wird (hier G10). Nach dem Klick befinde ich mich wieder in Tabelle 1.
in Tabelle 1:
Option Explicit
Private Sub Worksheet\_FollowHyperlink(ByVal Target As Hyperlink)
Dim strAdr As String
Dim strSht As String
strAdr = Target.SubAddress
strSht = Replace(Left(strAdr, Len(strAdr) - InStr(1, StrReverse(strAdr), "!")), "'", "")
Sheets(strSht).Visible = xlSheetVisible
Sheets(strSht).Activate
End Sub
in Tabelle 2:
Option Explicit
Dim wert
Private Sub Worksheet\_SelectionChange(ByVal Target As Range)
wert = Target.Value
Sheets("Tabelle2").Visible = True
If wert \> "" Then Worksheets("Tabelle1").Range("g10") = wert
Worksheets("Tabelle1").Activate
End Sub
Könnte mir bitte jemand verraten, wie ich
a) von einer Schaltfläche aus nach Tabelle2 starte und
b) wie ich den Inhalt der in Tabelle2 angeklickten Zelle
statt in eine fest definierte Zelle in die zuletzt aktive Zelle
in Tabelle 1 übertrage?
Excel 2000
Gruß und danke
Rolf
Hallo Rolf
Zu Frage b)
den Inhalt der in Tabelle2 angeklickten Zelle statt
in eine fest definierte Zelle in die zuletzt aktive Zelle
in Tabelle 1 übertrage?
If wert > „“ Then Worksheets(„Tabelle1“).Range(„g10“) = wert
Worksheets(„Tabelle1“).Activate
Diese zwei Zeilen musst Du ersetzen durch:
If wert > „“ Then
Worksheets(„Tabelle1“).Select
ActiveCell = wert
End If
Ich arbeite mit Excel 2003.
Grüsse Niclaus
Moin Niclaus
Diese zwei Zeilen musst Du ersetzen durch:
If wert > „“ Then
Worksheets(„Tabelle1“).Select
ActiveCell = wert
End If
das klappt prima 
, vielen Dank.
Jetzt habe ich noch zwei Wünsche:
a) Ich möchte den Sprung nach Tabelle2 von einer
Schaltfläche starten und
b) die Übernahme eines Zellinhaltes in Tabelle 2
soll erst bei einem Doppelklick erfolgen (dann kann
ich vorher noch per Autofilter sortieren).
Ist das möglich?
Gruß
Rolf
Jetzt habe ich noch zwei Wünsche:
a) Ich möchte den Sprung nach Tabelle2 von einer
Schaltfläche starten und
b) die Übernahme eines Zellinhaltes in Tabelle 2
soll erst bei einem Doppelklick erfolgen (dann kann
ich vorher noch per Autofilter sortieren).
Hallo Rolf
Weisst Du gar nicht, wie man eine Makro-Schaltfläche einrichtet? Es ist etwas mühsam für mich, das in Worte zu fassen )
Und das mit dem Doppelklick - vielleicht kommt mri was vernünftiges in den Sinn.
Bis später Niclaus
Jetzt habe ich noch zwei Wünsche:
a) Ich möchte den Sprung nach Tabelle2 von einer
Schaltfläche starten und
b) die Übernahme eines Zellinhaltes in Tabelle 2
soll erst bei einem Doppelklick erfolgen (dann kann
ich vorher noch per Autofilter sortieren).
Hallo Rolf
Weisst Du gar nicht, wie man eine Makro-Schaltfläche
einrichtet?
Hi Niclaus
aalso, wenn ich eine Schaltfläche aus der Steuerelemente-toolbox
nehme und den code
Private Sub CommandButton1\_Click()
'Private Sub Worksheet\_FollowHyperlink(ByVal Target As Hyperlink)
Dim strAdr As String
Dim strSht As String
strAdr = Target.SubAddress
strSht = Replace(Left(strAdr, Len(strAdr) - InStr(1, StrReverse(strAdr), "!")), "'", "")
Sheets(strSht).Visible = xlSheetVisible
Sheets(strSht).Activate
End Sub
in Tabelle 1 hinterlege, steigt er aus und sagt:
Variable nicht definiert
Nehme ich eine Schaltfläche aus der Formularleiste und
hinterlege den Code:
Sub Schaltfläche5\_BeiKlick()
'Private Sub Worksheet\_FollowHyperlink(ByVal Target As Hyperlink)
Dim strAdr As String
Dim strSht As String
strAdr = Target.SubAddress
strSht = Replace(Left(strAdr, Len(strAdr) - InStr(1, StrReverse(strAdr), "!")), "'", "")
Sheets(strSht).Visible = xlSheetVisible
Sheets(strSht).Activate
End Sub
in Modul 1 steigt er aus und sagt: Objekt erforderlich.
Ich komm nicht weiter.
Es ist etwas mühsam für mich, das in Worte zu
fassen )
Kann ich verstehen… 
Und das mit dem Doppelklick - vielleicht kommt mri was
vernünftiges in den Sinn.
Ich hatte mal was mit "…by doubleKlick… gesehen,
ich finds aber nicht wieder.
Hast Du noch Lust?
Gruß
Rolf
‚Target‘ wird zu Recht bemängelt o.w.T.
Hast Du noch Lust?
Mögen tät’ ich schon wollen !!!
Hoffen wir, dass sich Reinhard Deiner erbarmt. Bei dieser Gelegenheit zitiere ich gern eine Bemerkung, die Karin etwas weiter unten getan hat: „Reinhard - er ist hier mein persönlicher Excel-King.“
Wenn er für Karin der King ist, ist er für mich der Kaiser!!!
Grüsse Niclaus
Moin zusammen,
Wenn er für Karin der King ist, ist er für mich der Kaiser!!!
Das sehen sicher noch mehrere so
Danke Niclaus.
@Reinhard,
Jetzt habe ich noch zwei Wünsche:
a) Ich möchte den Sprung nach Tabelle2 von einer
Schaltfläche starten und
b) die Übernahme eines Zellinhaltes in Tabelle 2
soll erst bei einem Doppelklick erfolgen (dann kann
ich vorher noch per Autofilter sortieren).
Hilfst Du mir nochmal aus der Klemme?
Gruß
Rolf
Hallo Rolf,
in Tabelle1:
Option Explicit
’
Private Sub CommandButton1_Click()
Worksheets(„Tabelle2“).Visible = xlSheetVisible
Worksheets(„Tabelle2“).Activate
End Sub
in Tabelle2:
Option Explicit
’
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim Wert
Wert = Target.Value
Worksheets(„Tabelle1“).Activate
If Wert „“ Then ActiveCell = Wert
End Sub
in Modul1:
Sub Schaltfläche5_BeiKlick()
Worksheets(„Tabelle2“).Visible = xlSheetVisible
Worksheets(„Tabelle2“).Activate
End Sub
PS: Ich habe in Tab1 einen Hyperlink auf Tab2!Zelle durch Einfügen–Hyperlink gesetzt, klappt auch, aber der Code in "Follow_Hyperlink wird nie durchlaufen, k.A. warum.
Gruß
Reinhard
Danke
Hallo Reinhard,
so dachte ich mir das, klappt hervorragend.
Vielen Dank für Deine Mühe.
Sternchen hast Du wohl schon schränkeweise?
Passt noch einer rein?
Gruß und danke nochmal
Rolf