ERLEDIGT
NEIN
ANTWORTEN
3
ZUGRIFFE
1949
EMPFEHLEN
  • An Twitter übertragen
  • An Facebook übertragen
  1. #1
    WarGodNT ist offline Grünschnabel
    Registriert seit
    Feb 2012
    Beiträge
    1
    Hallo zusammen ich habe ein problem ... ich habe etw 100 imageboxen und ich will nun auf alle ein bild laden immer ein anderes je nach text in der verlinkten tabelle
    nun will ich nicht jede imagebox einzeln überprüfen auf 3 bilder den das ging ewig also wollte ich das einmal mit einer while schleife machen ... nun da die boxen immer anders heisen "image1","image2","image3" usw. wollte ich die nummer durch eine variabel ersetzen welche bei jedem durchlauf eins höherget habe es bereits so probiert :

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    
    Private Sub UserForm_Initialize()
    Dim zeilen As Integer
    Dim zeilenr As Integer
    Dim max As Integer
    Dim i As Integer
     
    max = ("3")
    zeilen = ("1")
    zeilenr = ("2")
    zeilen = i
     
    While zeilenr < max
     
    If Range("E" & zeilenr) = "Erledigt" Then
    Image(zeilen).Picture = LoadPicture("M:\haus.gif")
    End If
     
    If Range("E" & zeilenr) = "Nicht begonnen" Then
    Image(zeilen).Picture = LoadPicture("M:\tree.gif")
    End If
     
    If Range("E" & zeilenr) = "In Bearbeitung" Then
    Image(zeilen).Picture = LoadPicture("M:\baustelle.jpg")
    End If
     
    zeilen = zeilen + 1
    zeilenr = zeilenr + 1
     
     
    Wend
     
    End Sub

    dies ging jedoch nicht da man irgendwie im namen noch ne variabel reinpaken kann -.-

    hebt ihr vileich eine lösung währe super
     

  2. #2
    Avatar von Yaslaw
    Yaslaw ist gerade online n/a
    tutorials.de Moderator
    Registriert seit
    Dec 2007
    Ort
    Winterthur(CH)
    Beiträge
    7.055
    item: Excel? ah ja, da kommt Range() drin vor. Dürfte also Das Microsoft Manager-Spielzeug sein - Excel.

    item: Du solltest dein Code formatieren. Tabulatoren wirken Wunder was die Lesbarkeit angeht

    item: Du solltest dich an die eigenen Definitionen halten
    Code vb:
    1
    2
    3
    4
    5
    6
    
    Dim zeilen As Integer
     
    'Das folgende wird als String übergeben und muss von Excel zuerst in ein Integer gewandelt werden. Die Klammer ist ebenfalls unnützer Code
    zeilen = ("1")
    'So reicht es föllig aus:
    zeilen = 1

    item: Bitte verwende Satzzeichen im Text und Gross und Kleinschreibung
    nun will ich nicht jede imagebox einzeln überprüfen auf 3 bilder den das ging ewig also wollte ich das einmal mit einer while schleife machen ... nun da die boxen immer anders heisen "image1","image2","image3" usw. wollte ich die nummer durch eine variabel ersetzen welche bei jedem durchlauf eins höherget habe es bereits so probiert
    Ich verstehs echt nicht. Auf 3 Bilder in einer While-Schleife ging es ewig?
    Du hast es Probiert. Soweit so gut. Kommt eine Fehlermeldung?

    item: Wennd ie Imageboxe 'image1', 'image2' etc. heissen, dann solltest du sich auch über diesen Namen aufrufen. Ich kenne Excel-VBA nur am Rande. Aber ist Image() eine Liste aller Imageboxen?
     
    ---------------------------------------------------------------------------------------------------
    item: Ich habe es mir aus gesundheitlichen Gründen abgewöhnt unformatierten Code zu lesen (Auch SQL-Statements¨in PHP-Code kann man formatieren!)
    item: Tutorial: [PHP][MySQL] Debug Queries
    item: Schreibt mir keine PN mit Fragen die im Forum beantwortet werden können - ich mache kein persönliches coaching
    item: Bitte zur besseren Lesbarkeit Code-Tags verwenden

  3. #3
    Avatar von tombe
    tombe ist offline Mitglied Diamant
    tutorials.de Premium-User
    Registriert seit
    Sep 2004
    Ort
    Möglingen (BaWü)
    Beiträge
    4.563
    Ich glaube er meint da was anderes.

    Code vb:
    1
    2
    3
    4
    5
    
    Dim variable As String
     
    variable = "Image"  'oder was anderes
     
    Controls(variable & zeilen).Picture = "M:\haus.gif"
     
    Sollte ein Tipp von mir geholfen haben, habe ich nichts gegen ein Danke und wenn ein Problem gelöst ist, dann den Beitrag bitte auch als erledigt markieren.

    Beiträge bitte mit Codetags ausstatten!

    Ein Blindtext-Generator ist oft hilfreich.

    placeholder-Images: lorempixel.com

    HTML, JavaScript, CSS, ... online testen: jsfiddle.net oder jsbin.com

  4. #4
    Zvoni ist offline Mitglied Smaragd
    Registriert seit
    Jul 2008
    Ort
    Hinter dem Mond gleich links
    Beiträge
    1.031
    Hier gehts fast um dasselbe Problem:

    http://www.tutorials.de/visual-basic...bjektname.html
     
    Zwei Dinge sind unendlich: Die menschliche Dummheit und das Universum, nur bei letzterem bin ich mir noch nicht sicher. - Albert Einstein

    Code vb:
    1
    
    If Beitrag.Hilfreich=True Then Bewertung.Send("Positiv")

Thema nicht erledigt

Ähnliche Themen

  1. Bilder dynamisch laden und in MovieClip laden
    Von Nambot im Forum Flash Plattform
    Antworten: 2
    Letzter Beitrag: 28.02.08, 19:38
  2. Variable in While Schleife
    Von starfoxfs im Forum PHP
    Antworten: 7
    Letzter Beitrag: 08.02.08, 14:45
  3. variable in for schleife
    Von 1manni1 im Forum Flash Plattform
    Antworten: 9
    Letzter Beitrag: 28.03.07, 17:59
  4. Variablen aus php in Schleife laden
    Von Claus mit Zeh im Forum Flash Plattform
    Antworten: 2
    Letzter Beitrag: 11.10.06, 21:19
  5. Antworten: 3
    Letzter Beitrag: 13.04.04, 20:45

Stichworte