ERLEDIGT
NEIN
ANTWORTEN
3
ZUGRIFFE
1147
EMPFEHLEN
  • An Twitter übertragen
  • An Facebook übertragen
  1. 16.02.12 15:02 #1
    WarGodNT
    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
     
    Zitieren Zitieren
  2. 16.02.12 15:24 #2
    Avatar von Yaslaw
    Yaslaw
    Yaslaw ist offline n/a
    tutorials.de Moderator
    Registriert seit
    Dec 2007
    Ort
    Winterthur(CH)
    Beiträge
    6.380
    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 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 PHP-Code in [PHP]...[/PHP], SQL in [SQL]...[/SQL], Visual Basic in [VB]...[/VB] etc. schreiben
    Zitieren Zitieren
  3. 16.02.12 15:46 #3
    Avatar von tombe
    tombe
    tombe ist offline Mitglied Diamant
    tutorials.de Premium-User
    Registriert seit
    Sep 2004
    Ort
    Möglingen (BaWü)
    Beiträge
    3.877
    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 eine entsprechende Bewertung oder 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.

    HTML, JavaScript, CSS, ... online testen: jsbin.com
    Zitieren Zitieren
  4. 16.02.12 16:22 #4
    Zvoni
    Zvoni ist offline Mitglied Brillant
    Registriert seit
    Jul 2008
    Ort
    Hinter dem Mond gleich links
    Beiträge
    900
    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")
    Zitieren Zitieren
Thema nicht erledigt
« Excel zahl aus Zelle auslesen und einfügen | Seitenzahlen in Calc »

Ä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. Bilder in eine Variable laden, wie geht das ?
    Von Lars_oe im Forum PHP
    Antworten: 3
    Letzter Beitrag: 13.04.04, 20:45

Stichworte