Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Combobox nicht sichern in neuem File

Combobox nicht sichern in neuem File
29.01.2004 10:16:31
helena
Hallo Excel Freunde
habe kleines Problem, möchte beim sichern COMBOBOX nicht mitsichern
d.h. im Zieldatei sollte Combobox nicht vorhanden sein

Sub Blattspeichern()
Application.ScreenUpdating = False
Call RechnungsNummer
Call DatenübernahmeTabelle
Sheets("Rechnung").Select
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="D:\Daten\" & Range("A18") & "_" & Range("D10") & ".xls"
Application.ScreenUpdating = True
End Sub

gibt es da einfache Möglichkeit ??? habe auch noch einen Button
welcher mich stört und mitkopiert wird, stört aber weniger da beim Drucken nicht gedruckt wird.
DANKE
gruss helena

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox nicht sichern in neuem File
29.01.2004 10:23:56
Josef Ehrensberger
Hallo Helena!
Bei Button und Combo aus der Steuerelemente-Toolbox,
sollte es so klappen.


Sub Blattspeichern()
Dim obj As OLEObject
Application.ScreenUpdating = False
Call RechnungsNummer
Call DatenübernahmeTabelle
Sheets("Rechnung").Select
ActiveSheet.Copy
For Each obj In ActiveSheet.OLEObjects
obj.Delete
Next
ActiveWorkbook.SaveAs Filename:="D:\Daten\" & Range("A18") & "_" & Range("D10") & ".xls"
Application.ScreenUpdating = True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
nicht ganz
29.01.2004 10:31:12
helena
Hallo Sepp
es funktioniert, ABER !!! es löscht mir auch im Blattkopf
das eingebettete LOGO ... dies sollte natürlich nicht sein
gruss helena
neuer Versuch
29.01.2004 10:36:33
Josef Ehrensberger
Hi,
dann halt so.


Sub Blattspeichern()
Dim obj As OLEObject
Application.ScreenUpdating = False
Call RechnungsNummer
Call DatenübernahmeTabelle
Sheets("Rechnung").Select
ActiveSheet.Copy
For Each obj In ActiveSheet.OLEObjects
If obj.Name <> "Image1" Then 'Name des Logos anpassen
obj.Delete
End If
Next
ActiveWorkbook.SaveAs Filename:="D:\Daten\" & Range("A18") & "_" & Range("D10") & ".xls"
Application.ScreenUpdating = True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Musst halt den Namen des Logos anpassen!
Gruß Sepp
Anzeige
AW: Combobox nicht sichern in neuem File
29.01.2004 10:25:47
Fabian
Hallo,
lösche doch einfach die Combobox vor dem Speichern raus... das müsste per VBA möglich sein (den passenden Befehl liefert der Recorder). Ansonsten setze doch die Visible Eigenschaft auf False, dann sollte die Box auch nicht mehr gedruckt werden.
Viele Grüsse
Fabian
AW: Combobox nicht sichern in neuem File
29.01.2004 10:34:01
Roland Hochhäuser
Guten Morgen helena,
kommst du mit
ActiveSheet.OLEObjects.Delete
weiter?
Gruß
Roland
OT:Zu Langsam
29.01.2004 10:39:39
Roland Hochhäuser
noch nicht zu langsam geht noch nicht
29.01.2004 10:45:15
helena
Hallo Sepp und Roland
es soll nur COMBOBOX gelöscht werden, auch der zweite Versuch
löscht mein FirmenLOGO

Sub Blattspeichern()
Dim obj As OLEObject
Application.ScreenUpdating = False
Call RechnungsNummer
Call DatenübernahmeTabelle
Sheets("Rechnung").Select
ActiveSheet.Copy
For Each obj In ActiveSheet.OLEObjects
If obj.Name <> "Forms.combobox.1" Then 'Name des Logos anpassen
obj.Delete
End If
Next
ActiveWorkbook.SaveAs Filename:="D:\Daten\" & Range("A18") & "_" & Range("D10") & ".xls"
Application.ScreenUpdating = True
End Sub

gruss helena
Anzeige
Fehler!
29.01.2004 10:54:14
Josef Ehrensberger
Hallo Helena!
Du hast ja auch nicht den namen des Logos angegeben!
Den Namen siehst Du, wenn das Logo selectiert ist,
ganz links in der Bearbeitungsleiste.
Gruß Sepp
immer noch Fehler
29.01.2004 11:02:05
helena
Hallo Sepp
habe beides getestet "COMBOBOX" und "OBJECT 137" es
löscht immer noch beide Objekte SOLL--> Combobox

Sub Blattspeichern()
Dim obj As OLEObject
Application.ScreenUpdating = False
Call RechnungsNummer
Call DatenübernahmeTabelle
Sheets("Rechnung").Select
ActiveSheet.Copy
For Each obj In ActiveSheet.OLEObjects
If obj.Name <> "object 137" Then 'Name des Logos anpassen
obj.Delete
End If
Next
ActiveWorkbook.SaveAs Filename:="D:\Daten\" & Range("A18") & "_" & Range("D10") & ".xls"
Application.ScreenUpdating = True
End Sub


Vielen Dank für deine Mühe
gruss helena
aus der verschneiten Schweiz
Anzeige
AW: immer noch Fehler
29.01.2004 11:10:10
Josef Ehrensberger
Hallo Helena!
Also nochmal.
Wie hast Du denn das Loge eingebunden?
Ich dachte an ein Bild aus den Steuerelementen.
Du musst den Namen des Logos angeben und nicht den Namen
der Combobox. Das Object dessen Namen angegeben wird,
wird NICHT gelöscht!
Das Logo müsste doch einen Namen wie "Image1" oder so haben?

Lass mal diesen Code laufen, er zeigt die Namen aller
OLEObjecte in einer MesageBox.


Sub test()
Dim obj As OLEObject
For Each obj In ActiveSheet.OLEObjects
MsgBox obj.Name
Next
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
OT:"Object 1" nicht ComboBox1
29.01.2004 11:51:24
Roland Hochhäuser
leider sepp
29.01.2004 11:59:59
helena
es löscht immer noch beides
das LOGO und die combobox
BOX währe ja richtig, denke jetzt gibt es erst mal
etwas zum Essen falls jemand gekocht
wünsche Dir auch Mahlzeit, vielleicht
nach dem Essen frisch gesrärkt klappt es ja
gruss helena
die Berühmte Glaskugel!
29.01.2004 12:15:07
Josef Ehrensberger
Hallo Helena!
Ich konnte ja nicht wissen das Du die Objekte aus verschiedenen
Symbolleisten verwendest.
Jetzt klappts.


Sub Blattspeichern()
Dim shp As Shape
Application.ScreenUpdating = False
Call RechnungsNummer
Call DatenübernahmeTabelle
Sheets("Rechnung").Select
ActiveSheet.Copy
For Each shp In ActiveSheet.Shapes
If shp.Name <> "Object 1" Then
shp.Delete
End If
Next
ActiveWorkbook.SaveAs Filename:="D:\Daten\" & Range("A18") & "_" & Range("D10") & ".xls"
Application.ScreenUpdating = True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
die Berühmte Glaskugel!
29.01.2004 12:33:15
Helena
Hallo Sepp
Ja jetzt klappt es tatsächlich, die Glaskugel na ich weis nicht
hab 3 Einträge weiter oben mein Musterfile eingepackt,
denke du hast dies übersehen
Vielen Dank
Helena
AW: die Berühmte Glaskugel!
29.01.2004 13:02:19
Josef Ehrensberger
Hi,
freut mich das es jetzt klappt.
Nachdem ich das File gesehen habe, war's ja klar!
Gruß Sepp

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige