Hallo Zusammen,
ich erzeuge per:
With Me.Controls.Add("Forms.Image.1")
.Left = 288
.Top = 66
.AutoSize = True
.BackStyle = 0
.BorderStyle = 0
.Name = "pic_right_1"
.Picture = LoadPicture(ThisWorkbook.Path & "\system\img\pl_ass1.jpg")
End With
eine Grafik auf einer Userform.
Nun möchte ich diese per Schaltfläche wieder löschen.
Vor dem Löschen möchte ich aber abfragen ob das Objekt vorhanden ist.
Wie kann ich dies tun?
Danke im Voraus.
VG
Steffen Schmerler

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: UF abfragen ob Element da ist

Ramses
AW: UF abfragen ob Element da ist

Rudi
AW: UF abfragen ob Element da ist

Tino
UF abfragen ob Element da ist

Anton
Danke

SteffenS
So würde ich es nicht machen

Nepumuk

AW: UF abfragen ob Element da ist

27.07.2010 19:39:00

Ramses

Hallo
Mach es doch einfach so
On Error Resume Next
Me.Controls("pic_right_1").Picture = LoadPicture("")
Gruss Rainer

AW: UF abfragen ob Element da ist

27.07.2010 19:39:55

Rudi

Hallo,
mit ner Schleife

Function ControlDa(myUF As Object, ControlName As String) As Boolean
Dim c As Object
For Each c In myUF.Controls
ControlDa = ControlDa Or c.Name = ControlName
Next
End Function

Sub tt()
msgbox Controlda(Userform1,"pic_right_1")
End Sub

Gruß
Rudi

AW: UF abfragen ob Element da ist

27.07.2010 19:47:17

Tino

Hallo,
warum prüfen ob da, einfach evt. Fehler abfangen.

Private Sub CommandButton2_Click()
On Error Resume Next
Me.Controls.Remove "pic_right_1"
End Sub

Gruß Tino

UF abfragen ob Element da ist

27.07.2010 19:49:30

Anton

Hallo ,
noch eine Variante:


For Each ctl In Me.Controls
If ctl.Name = "pic_right_1" Then Me.Controls.Remove ctl.Name
Next

mfg Anton

Danke

27.07.2010 22:35:21

SteffenS

so ging es.
VG
Steffen

So würde ich es nicht machen

28.07.2010 09:37:32

Nepumuk

Hallo,
ich würde das Control immer drin haben und nur die Visible-Eigenschaft auf True oder False setzen.
Gruß
Nepumuk

Links zu Excel-Dialogen

CommandButton UserForm

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn text enthält dann

33892
excel wenn eine zelle einen wert enthält dann andere zelle farbig

23315
excel teilstring bis zeichen

16436

Weitere Forumthreads anzeigen

excel zeichen ergänzen

15820

excel scrollen nicht möglich

15740

excel kopieren ohne zellbezug zu ändern

15220

excel wenn zelle buchstaben enthält dann

14059

excel wenn in zelle bestimmter text dann andere zelle text

12159

excel zeichen abschneiden

11872

excel die ersten 3 zeichen löschen

11300

excel summe ergebnis immer 0

10470

excel wenn dann farbe andere zelle

10270

excel zählenwenns mit oder

9501

excel zeichen links entfernen

9408

excel prüfen ob wert in zelle enthalten

9370

wenn ergebnis 0 dann leer

9090

vba zelle auswählen und wert eintragen

8841

excel links bis zum ersten leerzeichen

8758

zählenwenn zeitraum

8297

wert einer zelle in eine andere übernehmen

8062

zählenwenns doppelte werte ausschließen

8043

excel text ab zeichen

7923

excel text ab zeichen ausgeben

7867

excel formel kleiner als und größer als

7813

excel vba letzte zeile mit inhalt ermitteln

7718

datum und uhrzeit excel zusammenführen

7426

excel zeilen ausblenden mit button

7303

excel weißes kreuz geht nicht weg

7004

excel minuten in stunden und minuten anzeigen

7000

excel wenn zelle x dann zeile ausblenden

6981

excel monat aus kalenderwoche als text

6944

summewenns ungleich

6501

excel wenn datum älter als heute dann rot

6415

excel spalten in zeilen untereinander

6242

excel vba zellen löschen

6043

excel wenn uhrzeit zwischen dann

5994

excel bestimmte wörter aus zelle auslesen

5906

excel formel wenn ergebnis negativ dann 0

5900

excel letzte 4 zeichen ausgeben

5900

excel tab wechseln shortcut

5852

excel runterziehen fortlaufend geht nicht

5839

excel bedingte formatierung istleer mehrere zellen

5813

excel wenn wert in spalte vorhanden, dann

5799

excel at zeichen

5742

excel datei durch eigenen benutzer gesperrt

5704

excel letztes zeichen abschneiden

5638

excel wenn zelle leer dann wert aus zelle darüber

5573

sverweis summe bilden

5553

excel wort suchen

5501

excel minuten addieren zu uhrzeit

5451

excel zählenwenn zelle nicht leer

5378

vba suche

5299

summewenn bereich mehrere spalten

5275

excel email aus name vorname

5088

excel führende null entfernen formel

5086

excel vba inputbox ja nein

5068

sverweis wenn wert nicht vorhanden dann 0

5059

excel zelle färben wenn wert in anderer zelle

5038

excel vba zellen färben

4997

excel buchstaben löschen

4978

wenn zelle farbig dann

4961

wert aus anderer tabelle übernehmen wenn bedingung erfüllt

4870

summewenn nicht

4811

excel string enthält

4760

excel makro mit passwort schützen

4739

excel datum + 3 monate

4733

excel textkette anführungszeichen

4730

summewenn datum zwischen zwei werten

4726

excel suchen von rechts nach links

4685

mehrere if bedingungen vba

4684

excel 2 linien in einem diagramm

4654

excel erkennt datum nicht als datum

4631

excel bilder einfügen immer gleiche größe

4559

excel tausendertrennzeichen entfernen

4552

excel erste buchstaben abschneiden

4518

excel vba zeilenumbruch im code

4486

vba text in zahl

4483

excel text aus zelle übernehmen formel

4479

excel prüfen ob daten in anderer tabelle vorhanden

4455

excel spalte mit wert finden

4425

zählenwenn text enthalten

4387

excel summe und runden

4362

excel datum heute darf sich nicht ändern

4353

excel makro beenden

4349

prozent durchschnitt berechnen

4343

kw in datum excel

4341

excel formel kopieren ohne änderung

4329

excel vba userform schließen button

4320

excel datum als text verketten

4315

excel uhrzeit

4313

vba zelle in anderem tabellenblatt ansprechen

4275

wenn funktion mit 3 ausgaben

4246

excel gruppe benennen

4236

excel zelle suchen und zeile ausgeben

4235

excel gruppierung wird nicht angezeigt

4232

dropdown excel leere zellen ignorieren

4206

zeilenumbruch vba

4205

excel blatt schützen aber filter erlauben

4092

gestrichelte linie excel entfernen

4044

excel heute jahr

4007

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

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn text enthält dann

33892
excel wenn eine zelle einen wert enthält dann andere zelle farbig

23315
excel teilstring bis zeichen

16436

Weitere Forumthreads anzeigen

excel zeichen ergänzen

15820

excel scrollen nicht möglich

15740

excel kopieren ohne zellbezug zu ändern

15220

excel wenn zelle buchstaben enthält dann

14059

excel wenn in zelle bestimmter text dann andere zelle text

12159

excel zeichen abschneiden

11872

excel die ersten 3 zeichen löschen

11300

excel summe ergebnis immer 0

10470

excel wenn dann farbe andere zelle

10270

excel zählenwenns mit oder

9501

excel zeichen links entfernen

9408

excel prüfen ob wert in zelle enthalten

9370

wenn ergebnis 0 dann leer

9090

vba zelle auswählen und wert eintragen

8841

excel links bis zum ersten leerzeichen

8758

zählenwenn zeitraum

8297

wert einer zelle in eine andere übernehmen

8062

zählenwenns doppelte werte ausschließen

8043

excel text ab zeichen

7923

excel text ab zeichen ausgeben

7867

excel formel kleiner als und größer als

7813

excel vba letzte zeile mit inhalt ermitteln

7718

datum und uhrzeit excel zusammenführen

7426

excel zeilen ausblenden mit button

7303

excel weißes kreuz geht nicht weg

7004

excel minuten in stunden und minuten anzeigen

7000

excel wenn zelle x dann zeile ausblenden

6981

excel monat aus kalenderwoche als text

6944

summewenns ungleich

6501

excel wenn datum älter als heute dann rot

6415

excel spalten in zeilen untereinander

6242

excel vba zellen löschen

6043

excel wenn uhrzeit zwischen dann

5994

excel bestimmte wörter aus zelle auslesen

5906

excel formel wenn ergebnis negativ dann 0

5900

excel letzte 4 zeichen ausgeben

5900

excel tab wechseln shortcut

5852

excel runterziehen fortlaufend geht nicht

5839

excel bedingte formatierung istleer mehrere zellen

5813

excel wenn wert in spalte vorhanden, dann

5799

excel at zeichen

5742

excel datei durch eigenen benutzer gesperrt

5704

excel letztes zeichen abschneiden

5638

excel wenn zelle leer dann wert aus zelle darüber

5573

sverweis summe bilden

5553

excel wort suchen

5501

excel minuten addieren zu uhrzeit

5451

excel zählenwenn zelle nicht leer

5378

vba suche

5299

summewenn bereich mehrere spalten

5275

excel email aus name vorname

5088

excel führende null entfernen formel

5086

excel vba inputbox ja nein

5068

sverweis wenn wert nicht vorhanden dann 0

5059

excel zelle färben wenn wert in anderer zelle

5038

excel vba zellen färben

4997

excel buchstaben löschen

4978

wenn zelle farbig dann

4961

wert aus anderer tabelle übernehmen wenn bedingung erfüllt

4870

summewenn nicht

4811

excel string enthält

4760

excel makro mit passwort schützen

4739

excel datum + 3 monate

4733

excel textkette anführungszeichen

4730

summewenn datum zwischen zwei werten

4726

excel suchen von rechts nach links

4685

mehrere if bedingungen vba

4684

excel 2 linien in einem diagramm

4654

excel erkennt datum nicht als datum

4631

excel bilder einfügen immer gleiche größe

4559

excel tausendertrennzeichen entfernen

4552

excel erste buchstaben abschneiden

4518

excel vba zeilenumbruch im code

4486

vba text in zahl

4483

excel text aus zelle übernehmen formel

4479

excel prüfen ob daten in anderer tabelle vorhanden

4455

excel spalte mit wert finden

4425

zählenwenn text enthalten

4387

excel summe und runden

4362

excel datum heute darf sich nicht ändern

4353

excel makro beenden

4349

prozent durchschnitt berechnen

4343

kw in datum excel

4341

excel formel kopieren ohne änderung

4329

excel vba userform schließen button

4320

excel datum als text verketten

4315

excel uhrzeit

4313

vba zelle in anderem tabellenblatt ansprechen

4275

wenn funktion mit 3 ausgaben

4246

excel gruppe benennen

4236

excel zelle suchen und zeile ausgeben

4235

excel gruppierung wird nicht angezeigt

4232

dropdown excel leere zellen ignorieren

4206

zeilenumbruch vba

4205

excel blatt schützen aber filter erlauben

4092

gestrichelte linie excel entfernen

4044

excel heute jahr

4007

UF abfragen ob Element da ist

6 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)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread