Herbers Excel-Forum - das Archiv
Zielverknüpfung auf verschiedene Felder
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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