Hallo liebe Experten,
ich habe eine Tabelle in die ich über eine Userform Daten einfüge.
Desweiteren gibt es ein Makro was einen Reset durchführt, sozusagen die Urform des Blattes wieder herstellt.
Jetzt soll in dieser Tabelle unser Firmenlogo erscheinen aber weder von der Userform oder vom Makro beeinflusst werden.
Wenn ich es per VBA direkt in der Tabelle ablege, wird es vom „Reset“ - Makro wieder gelöscht.
Wie kann ich also eine Grafik dauerhaft hinterlegen?
Danke und MfG
Frank
wenn das Macro ordentlich arbeitet Resettet es das document auf 0 Inhalt.
Vielleicht sollte man den Reset so ändern das gewisse sachen nciht gelöscht werden. Ein element sperren könnte sonst zu fehlern im Macro führen .
Kann man von hier aus hqalt nicht sagen.
Da ist mir gerade was aufgefallen.
Ich lasse im Makro alle DrawingObjects löschen, das mache ich, weil die Tabelle dann ausgedruckt werden soll und ich einen Command Button darauf habe, der nicht auf dem Ausdruck erscheinen soll.
Kann ich das Bild davon ausschließen?
Moin moin
Kann ich das Bild davon ausschließen?
seh ich was du siehst ?
Hi,
statt auf dem Blatt alles zu löschen, könnte das Makro doch das Blatt selbst löschen und eine Vorlage kopieren und neu benennen. Diese Vorlage kann man mit xlVeryHidden so ausblenden, daß nur das Makro sie sehen kann.
Vorteil dieses Ansatzes ist: auch wenn weitere Änderungen (nicht nur das Logo) hinzukommen: auf der Vorlage kann man ohne große Programmiererei alles verewigen.
HTH.
Markus
Nein
???
Klingt gut.
Im Prinzip läuft es schon so.
Ich habe ein Tabellenblatt was mit Daten gefüttert wird.
Das besitzt einen Tabellenkopf und verschiedene dazu gehörige Daten.
Aus dieser Tabelle soll immer ein bestimmter sich wechselnder Teil ausgedruckt werden und der Kopf kann sich auch verändern.
Der Teil der ausgedruckt werden soll wird dabei in ein weiteres Blatt kopiert in dem der gleiche Tabellenkopf steht, wie in meinem Quellblatt.
Mein „Reset“ ist dafür da, dieses Druckblatt einerseits zu löschen und anderer seits den Tabellenkopf aus meinem Quellblatt ein zu fügen, damit der Nutzer quasi nur eine Tabelle bearbeiten brauch!
Jetzt zu meinem Problem: Aus dem Kopf müssen entweder Daten gelöscht oder hinzugefügt werden, damit das dann sauber in das Druckblatt übertragen wird, lass ich dieses Komplett löschen, ähnlich müsste ich ja dann bei deiner Vorlage herangehen, um zu vermeiden, das Daten bestehen bleiben die man nicht mehr braucht! Dabei löscht es aber auch das Bild mit!
Hoffe das war einigermaßen verständlich! 
ohne Arme keine Kekse ,
ohne Code keine Logic
ohne Logic keine Fehler
ohne Fehler kein Problem 
Nein
???
Kommst nciht drauf das Programmieren nicht nur eine Lösung ist, sondern nur ein Weg von vielen der zur Lösung führt.
Schreib dein Code, sonst weiss keiner was du wo wie machst und warum Probleme da sind. Wenn der so geheim ist das du dich nciht traust, wird man kaum weiterhelfen können ausser mit Workaround wie Vorlagen etc zu arbeiten.
Okay, danke!
Das ist der Code zu meinem Reset Button.
Selbst wenn ich DrawingObjects.Delete ausklammere, löscht er das eingefügte Bild mit!
Wie kann ich also in diesem Makro hinterlegen, das er das Bild an einer bestimmten Stelle einfügt? Desweiteren wird die Arbeitsmappe auf Rechnern benutzt die das Bild nicht auf dem Rechner haben, also wie hinterlege ich das in der Arbeitsmappe.
Sub alles_wiederherstellen()
’
’ alles_wiederherstellen Makro
’
Sheets(„Schicht1“).Select
Cells.Select
Selection.Delete Shift:=xlUp
Sheets(„Urlaubsplan“).Select
Range(„Tabellenkopf“).Select
Selection.Copy
Sheets(„Schicht1“).Select
Range(„A1“).Select
ActiveSheet.Paste
Sheets(„Urlaubsplan“).Select
Range(„Schicht1“).Select
Selection.Copy
Sheets(„Schicht1“).Select
Range(„A7“).Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Cells.EntireRow.AutoFit
Range(„D2“).Select
ActiveSheet.DrawingObjects.Delete
'Kopiert aus Urlaubsplan Tabellenkopf links
Rows(„2:3“).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range(„A2“).Select
ActiveCell.FormulaR1C1 = „Personalplanung“
With ActiveCell
Range(.Offset(0, 0), .Offset(0, 7)).Select
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlBottom
With ActiveCell.Characters(start:=1, Length:=15).Font
.Name = „Arial“
.FontStyle = „Bold“
.Size = 20
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End With
Range(„A3“).Select
ActiveCell.FormulaR1C1 = „Schicht 1“
With ActiveCell
Range(.Offset(0, 0), .Offset(0, 7)).Select
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlBottom
With ActiveCell.Characters(start:=1, Length:=15).Font
.Name = „Arial“
.FontStyle = „Bold“
.Size = 20
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End With
Range(„B2:h2“).Select
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Rows(„4:4“).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range(„B3:h3“).Select
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Sheets(„Schicht2“).Select
Cells.Select
Selection.Delete Shift:=xlUp
Sheets(„Urlaubsplan“).Select
Range(„Tabellenkopf“).Select
Selection.Copy
Sheets(„Schicht2“).Select
Range(„A1“).Select
ActiveSheet.Paste
Sheets(„Urlaubsplan“).Select
Range(„Schicht2“).Select
Selection.Copy
Sheets(„Schicht2“).Select
Range(„A7“).Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Cells.EntireRow.AutoFit
Range(„D2“).Select
ActiveSheet.DrawingObjects.Delete
'Kopiert aus Urlaubsplan Tabellenkopf links
Rows(„2:3“).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'fügt 2 neue Zeilen ein
Range(„A2“).Select
ActiveCell.FormulaR1C1 = „Personalplanung“
With ActiveCell
Range(.Offset(0, 0), .Offset(0, 7)).Select
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlBottom
With ActiveCell.Characters(start:=1, Length:=15).Font
.Name = „Arial“
.FontStyle = „Bold“
.Size = 20
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End With
'Erstellt Überschrift
Range(„A3“).Select
ActiveCell.FormulaR1C1 = „Schicht 2“
With ActiveCell
Range(.Offset(0, 0), .Offset(0, 7)).Select
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlBottom
With ActiveCell.Characters(start:=1, Length:=15).Font
.Name = „Arial“
.FontStyle = „Bold“
.Size = 20
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End With
Rows(„4:4“).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'Erstellt Überschrift
Range(„B2:H2“).Select
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
'Zentriert Überschrift
Range(„B3:H3“).Select
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
'Zentriert Überschrift
Sheets(„Urlaubsplan“).Select
Range(„D2“).Select
Application.SendKeys ("{esc}")
'Markierung aufheben
’
End Sub