Zielverknüpfung auf verschiedene Felder

• Zielverknüpfung auf verschiedene Felder von Martin vom 15.03.2005 13:10:14
• AW: Zielverknüpfung auf verschiedene Felder - von Dan am 15.03.2005 13:17:58
• AW: Zielverknüpfung auf verschiedene Felder - von UweD am 15.03.2005 13:30:00
  • AW: Zielverknüpfung auf verschiedene Felder - von Martin am 15.03.2005 13:38:13
  • AW: Zielverknüpfung auf verschiedene Felder - von u_ am 15.03.2005 13:40:30
    • AW: Zielverknüpfung auf verschiedene Felder - von Martin am 15.03.2005 13:53:25
      • AW: Zielverknüpfung auf verschiedene Felder - von UweD am 15.03.2005 14:14:07
        • AW: Zielverknüpfung auf verschiedene Felder - von Martin am 15.03.2005 14:22:28

Betrifft: Zielverknüpfung auf verschiedene Felder
von: Martin
Geschrieben am: 15.03.2005 13:10:14
Hallo zusammen!
Ich habe folgendes Problem:
Ich möchte das die Zielverknüpfung einer Bildlaufleiste in Abhängigkeit von einer anderen Variablen auf verschiedene Felder in einem anderen Sheet zeigt.
Bin bis jetzt soweit gekommen:

Sub Bildlaufleiste31_BeiÄnderung()
 If Sheets("Basis").Cells(6, 2).Value = 1 Then Bildlaufleiste31.LinkedCell = "Basis!$J$76"
 If Sheets("Basis").Cells(6, 2).Value = 2 Then Bildlaufleiste31.LinkedCell = "Basis!$J$83"
 If Sheets("Basis").Cells(6, 2).Value = 2 Then Bildlaufleiste31.LinkedCell = "Basis!$J$90"
End Sub

Ich bekommen ständig die Fehlermeldung das ein Objekt fehlt, da ich aber keine Ahnung von VBA habe, hoffe ich das ihr mir helfen könnt.
Viele Grüße
Martin

Betrifft: AW: Zielverknüpfung auf verschiedene Felder
von: Dan
Geschrieben am: 15.03.2005 13:17:58
Hallo Martin, es sind da zwei Objekt-Namen :
"Basis"
"Bildlaufleiste31"
und wahrscheinlich existiert einer davon nicht (oder beide ;-))? Dan

Betrifft: AW: Zielverknüpfung auf verschiedene Felder
von: UweD
Geschrieben am: 15.03.2005 13:30:00
Hallo
so...

Sub Bildlaufleiste2_BeiÄnderung()
 If Sheets("Basis").Cells(6, 2).Value = 1 Then ActiveSheet.Shapes("Scroll Bar 2").LinkedCell = "Basis!$J$76"
 If Sheets("Basis").Cells(6, 2).Value = 2 Then ActiveSheet.Shapes("Scroll Bar 2").LinkedCell = "Basis!$J$83"
 If Sheets("Basis").Cells(6, 2).Value = 3 Then ActiveSheet.Shapes("Scroll Bar 2").LinkedCell = "Basis!$J$90"
End Sub

Gruß UD

Betrifft: AW: Zielverknüpfung auf verschiedene Felder
von: Martin
Geschrieben am: 15.03.2005 13:38:13
Hallo und Danke schonmal.
Wenn ich es so wie von UweD vorgeschlagen ändere, bekomme ich die Meldung, dass das Objekt die Methode nicht unterstützt. :(
Martin

Betrifft: AW: Zielverknüpfung auf verschiedene Felder
von: u_
Geschrieben am: 15.03.2005 13:40:30
Hallo,
da kann ich mich nicht zurückhalten, bei diesen vielen IFs. Das macht man besser mit Select Case!
With Activesheet.Bildlaufleiste31
Select Case sheets("Basis").cells(6,2)
case 1:.linkedcell="Basis!J76"
case 2:.linkedcell"Basis!J83"
case 3:.linkedcell="Basis!J90"
End Select
End With
Gruß

Betrifft: AW: Zielverknüpfung auf verschiedene Felder
von: Martin
Geschrieben am: 15.03.2005 13:53:25
Programiertechnisch sicherlich die elegantere Variante, ändert leider nix an dem Problem, dass VBA immer noch meint, das Objekt unterstützt die Methode nicht.
Gruß
Martin

Betrifft: AW: Zielverknüpfung auf verschiedene Felder
von: UweD
Geschrieben am: 15.03.2005 14:14:07
Hallo nochmal
nimm die Bildlaufleiste aus der Steiuerelement Toolbox, dann klappt es.

Private Sub ScrollBar1_Change()
    With Me.ScrollBar1
            Select Case Sheets("Basis").Cells(6, 2)
            Case 1: .LinkedCell = "Basis!J76"
            Case 2: .LinkedCell = "Basis!J83"
            Case 3: .LinkedCell = "Basis!J90"
        End Select
    End With
End Sub

siehe Musterdatei:
https://www.herber.de/bbs/user/19697.xls

Betrifft: AW: Zielverknüpfung auf verschiedene Felder
von: Martin
Geschrieben am: 15.03.2005 14:22:28
Ok,
das hab ich auch grad raus gefunden :)
Vielen Dank auf jeden Fall.
Kann mir noch jemand erklären warum es mit den Scrollbars aus der Formularreihe nicht funktioniert?
Grüße
Martin

Beiträge aus den Excel-Beispielen zum Thema "Zielverknüpfung auf verschiedene Felder"