title image


Smiley Excel - Probleme mit Variablen in Schleife
Ich versuche mich an einer Schleife, die es mir ermöglicht gleiche Schaltflächen in verschiedenen Tabellen anzupassen, deren Eigenschaften zu verändern.Ich habe folgendes Problem:Der Variablen z.B valWidth1 wird die Länge der Schaltfläche zugewiesen mit 43.5Wenn die For I Schleife beginnt ermittelt die Schleife zunächst mit Width = "valWidth" + Mid(Str(I), 2) um welche Länge von welcher Schaltfläche es sich handelt. 1, 2 3 usw.Ich habe nun ermittelt, daß es zunächst um valWidth1 geht.valWidth1 ist mit einem ganz bestimmten Wert verbunden den ich nun wiederum in der Variablen "Width" versuche zu speichern. Nur bekomme ich nicht den Wert damit ermittelt sondern nur den String valWidth1 und der wird unter der Variablen "Width" gespeichet anstelle des Wertes 43.5Wie schaffe ich es nun in der Variablen "Width" den Wert der Variablen valWidth1 zu bekommen ?????????????Danke .... Gruß FrankPrivate Sub CommandButton4_Click()Dim bez As StringDim Width As StringDim Hight As StringDim Top As StringDim Left As StringDim valWidth1 As StringDim valHight1 As StringDim valTop1 As StringDim valLeft1 As StringvalWidth1 = 43.5valHight1 = 19.5valTop1 = 25.5valLeft1 = 3Dim valWidth2 As StringDim valHight2 As StringDim valTop2 As StringDim valLeft2 As StringvalWidth2 = 45valHight2 = 19.5valTop2 = 25.5valLeft2 = 45.75For I = 1 To 13 bez = "CommandButton" + Mid(Str(I), 2) Width = "valWidth" + Mid(Str(I), 2) Hight = "valHight" + Mid(Str(I), 2) Top = "valTop" + Mid(Str(I), 2) Left = "valLeft" + Mid(Str(I), 2) Sheets("Verkaufszahlen I").Select ActiveSheet.Shapes(bez).Select ActiveSheet.Shapes(bez).Width = Width ActiveSheet.Shapes(bez).Hight = Hight ActiveSheet.Shapes(bez).Top = Top ActiveSheet.Shapes(bez).Left = Left Sheets("Verkaufszahlen P").Select ActiveSheet.Shapes(bez).Select ActiveSheet.Shapes(bez).Width = Width ActiveSheet.Shapes(bez).Hight = Hight ActiveSheet.Shapes(bez).Top = Top ActiveSheet.Shapes(bez).Left = Left Next IEnd Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: