Zielverknüpfung auf verschiedene Felder

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

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
Bild

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
Bild

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
Bild

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
Bild

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ß
Bild

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
Bild

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
Bild

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
 Bild

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