Hallo @ All,
wie kann man feststellen, ob in einem Image(Userform oder Tabelle) bereits
ein Bild geladen wurde? Wenn nicht, dann lade Bild aus Datei, sonst mach nichts.
Grüße Olaf

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

If TypeName(Image1.Picture) = "Nothing" Then

08.10.2007 22:50:00

NoNet
If Image1.Picture Is Nothing Then

08.10.2007 23:01:26

Original
Danke, klappt super! oT

08.10.2007 23:26:00

Olaf

If TypeName(Image1.Picture) = "Nothing" Then

08.10.2007 22:50:00

NoNet

Hallo Olaf,
das kannst Du folgendermassen lösen :

Private Sub UserForm_Initialize()
    If TypeName(Image1.Picture) = "Nothing" Then
        MsgBox "Bild wird JETZT geladen"
        Image1.Picture = LoadPicture("C:\Temp\DeinBild.jpg")
    ElseIf TypeName(Image1.Picture) = "Picture" Then
        MsgBox Image1.Picture, , "Bild bereits geladen !"
    End If
End Sub

Gruß, NoNet

If Image1.Picture Is Nothing Then

08.10.2007 23:01:26

Original

...oder in einer Tabelle:
If Tabelle1.Image1.Picture Is Nothing Then
...wobei Tabelle1 der Codename der Tabelle ist.
mfg Kurt

Danke, klappt super! oT

08.10.2007 23:26:00

Olaf

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn text enthält

34081
zelle einfärben wenn andere zelle wert enthält

23512
excel text ab einem bestimmten zeichen auslesen

16681

Weitere Forumthreads anzeigen

excel text am anfang einer zelle einfügen

16052

excel tabelle scrollt nicht nach unten

15741

excel formeln kopieren ohne änderung

15343

excel wenn zelle enthält dann

14267

excel wenn wahr dann wert in andere zelle schreiben

12306

excel formel abschneiden ab zeichen

11938

excel erste buchstaben entfernen

11417

excel zeigt summe 0

10634

excel farbe wenn andere zelle bestimmten wert hat

10521

zählenwenn oder kriterien

9511

excel text links abschneiden

9498

excel zelle auf bestimmten text prüfen

9480

wenn 0 dann leer formel

9079

vba zelle schreiben

8864

excel text nach leerzeichen ausgeben

8800

zählenwenn datum kleiner als

8428

excel werte nur einmal zählen

8178

excel zellenwert übernehmen

8062

excel ab bestimmten zeichen auslesen

7989

excel suchen von rechts bis leerzeichen

7915

excel größer gleich und kleiner gleich

7806

letzte zeile ermitteln vba

7675

datum und uhrzeit in excel zusammenführen

7521

excel ausblenden mit plus

7291

excel minuten in stunden umwandeln

7167

excel bestimmte zeilen ausblenden

7070

excel mauszeiger ändern

7068

kalenderwoche in monat umrechnen

6935

excel datum färben wenn älter als heute

6521

excel summewenns ungleich

6515

excel mehrere spalten in eine spalte untereinander

6294

vba zelle löschen

6182

excel wenn summe negativ dann 0

6026

excel formel uhrzeit

6006

excel ziffern aus zelle auslesen

5981

excel formel wenn wert in spalte vorhanden dann

5920

excel zweites wort aus zelle auslesen

5910

excel sheet wechseln shortcut

5872

excel 1 2 3 runterziehen funktioniert nicht

5838

excel wenn zwei zellen leer dann

5829

excel durch eigenen benutzer gesperrt

5734

excel letzten zeichen einer zelle löschen

5705

was bedeutet in excel formel

5689

sverweis und summe

5676

excel wenn zelle leer dann

5582

excel string in zelle suchen

5539

excel uhrzeit plus 1 stunde

5492

excel vba finden

5379

zählenwenn feld nicht leer

5341

summewenn mehrere spalten addieren

5321

excel 0 entfernen

5224

excel bedingte formatierung abhängig von anderer zelle

5182

vba message box ja nein

5105

email adresse in excel generieren

5082

excel #nv durch 0 ersetzen

5082

vba zelle hintergrundfarbe

5053

wenn zelle farbig dann wert

5053

excel buchstaben aus zelle entfernen

4974

excel zellen kopieren wenn bedingung erfüllt

4903

excel kriterium ungleich

4847

excel anführungszeichen in text

4841

excel vba teilstring suchen

4789

excel monate addieren

4769

summe wenn zwischen zwei daten

4754

vba passwort eingeben

4727

excel finden rechts

4710

vba mehrere if bedingungen nacheinander

4679

liniendiagramm excel mehrere linien

4659

excel datum nicht erkannt

4654

excel bild in zelle

4588

excel trennzeichen entfernen

4564

excel erste drei zeichen löschen

4556

excel text von anderer zelle übernehmen

4516

excel vba string in zahl umwandeln

4508

vba zeilenumbruch in string

4482

zählenwenn bestimmter text

4469

excel spalte ausgeben

4452

excel vba check if sheet exists

4430

excel vba abbrechen

4411

excel datumseingabe

4362

excel-tabelle kopieren ohne inhalt

4360

excel summe aufrunden auf ganze zahl

4357

excel jetzt uhrzeit

4332

userform close

4327

durchschnitt berechnen prozent

4327

kalenderwoche in datum

4324

excel zeilennummer ermitteln

4308

excel verketten mit datumsformat

4300

excel daten von anderem tabellenblatt holen

4285

gruppierungen excel benennen

4260

excel gruppierung nicht sichtbar

4229

argumente einer funktion

4199

vba absatz

4182

excel drop down leere zellen ignorieren

4158

excel spalte sperren ohne blattschutz

4142

excel linien druckbereich ausblenden

4075

excel jahr(heute)

4025

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn text enthält

34081
zelle einfärben wenn andere zelle wert enthält

23512
excel text ab einem bestimmten zeichen auslesen

16681

Weitere Forumthreads anzeigen

excel text am anfang einer zelle einfügen

16052

excel tabelle scrollt nicht nach unten

15741

excel formeln kopieren ohne änderung

15343

excel wenn zelle enthält dann

14267

excel wenn wahr dann wert in andere zelle schreiben

12306

excel formel abschneiden ab zeichen

11938

excel erste buchstaben entfernen

11417

excel zeigt summe 0

10634

excel farbe wenn andere zelle bestimmten wert hat

10521

zählenwenn oder kriterien

9511

excel text links abschneiden

9498

excel zelle auf bestimmten text prüfen

9480

wenn 0 dann leer formel

9079

vba zelle schreiben

8864

excel text nach leerzeichen ausgeben

8800

zählenwenn datum kleiner als

8428

excel werte nur einmal zählen

8178

excel zellenwert übernehmen

8062

excel ab bestimmten zeichen auslesen

7989

excel suchen von rechts bis leerzeichen

7915

excel größer gleich und kleiner gleich

7806

letzte zeile ermitteln vba

7675

datum und uhrzeit in excel zusammenführen

7521

excel ausblenden mit plus

7291

excel minuten in stunden umwandeln

7167

excel bestimmte zeilen ausblenden

7070

excel mauszeiger ändern

7068

kalenderwoche in monat umrechnen

6935

excel datum färben wenn älter als heute

6521

excel summewenns ungleich

6515

excel mehrere spalten in eine spalte untereinander

6294

vba zelle löschen

6182

excel wenn summe negativ dann 0

6026

excel formel uhrzeit

6006

excel ziffern aus zelle auslesen

5981

excel formel wenn wert in spalte vorhanden dann

5920

excel zweites wort aus zelle auslesen

5910

excel sheet wechseln shortcut

5872

excel 1 2 3 runterziehen funktioniert nicht

5838

excel wenn zwei zellen leer dann

5829

excel durch eigenen benutzer gesperrt

5734

excel letzten zeichen einer zelle löschen

5705

was bedeutet in excel formel

5689

sverweis und summe

5676

excel wenn zelle leer dann

5582

excel string in zelle suchen

5539

excel uhrzeit plus 1 stunde

5492

excel vba finden

5379

zählenwenn feld nicht leer

5341

summewenn mehrere spalten addieren

5321

excel 0 entfernen

5224

excel bedingte formatierung abhängig von anderer zelle

5182

vba message box ja nein

5105

email adresse in excel generieren

5082

excel #nv durch 0 ersetzen

5082

vba zelle hintergrundfarbe

5053

wenn zelle farbig dann wert

5053

excel buchstaben aus zelle entfernen

4974

excel zellen kopieren wenn bedingung erfüllt

4903

excel kriterium ungleich

4847

excel anführungszeichen in text

4841

excel vba teilstring suchen

4789

excel monate addieren

4769

summe wenn zwischen zwei daten

4754

vba passwort eingeben

4727

excel finden rechts

4710

vba mehrere if bedingungen nacheinander

4679

liniendiagramm excel mehrere linien

4659

excel datum nicht erkannt

4654

excel bild in zelle

4588

excel trennzeichen entfernen

4564

excel erste drei zeichen löschen

4556

excel text von anderer zelle übernehmen

4516

excel vba string in zahl umwandeln

4508

vba zeilenumbruch in string

4482

zählenwenn bestimmter text

4469

excel spalte ausgeben

4452

excel vba check if sheet exists

4430

excel vba abbrechen

4411

excel datumseingabe

4362

excel-tabelle kopieren ohne inhalt

4360

excel summe aufrunden auf ganze zahl

4357

excel jetzt uhrzeit

4332

userform close

4327

durchschnitt berechnen prozent

4327

kalenderwoche in datum

4324

excel zeilennummer ermitteln

4308

excel verketten mit datumsformat

4300

excel daten von anderem tabellenblatt holen

4285

gruppierungen excel benennen

4260

excel gruppierung nicht sichtbar

4229

argumente einer funktion

4199

vba absatz

4182

excel drop down leere zellen ignorieren

4158

excel spalte sperren ohne blattschutz

4142

excel linien druckbereich ausblenden

4075

excel jahr(heute)

4025

Bild im Image?

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread