Hallo Reinhard,
vielen Dank erstmal. Bei der ersten Prozedur fügt er mir die Zeilen-/und Spaltenbezeichnungen in meinen Code ein?? Er öffnet brav vorher IrfanView aber dann… Komisch…
Die zweite habe ich leider noch nicht ausprobiert.
Ich habe noch einen alten Code, mit dem ich Diagramme als Bild gespeichert habe, das würde mir ja auch schon reichen. Dann kann sich jeder die Ansicht aussuchen, die er gerade braucht?! Kann ich dasselbe denn nicht irgendwie über die Zwischenablage auch mit meiner Tabelle machen?
Sub Bild\_export()
Dim chtPicture As Chart
Dim strSheetName As String
Application.ScreenUpdating = False
strSheetName = ActiveSheet.Name
ActiveSheet.Range("A1:BE24").CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set chtPicture = Charts.Add
chtPicture.Paste
chtPicture.Export ActiveWorkbook.Path & "\" & strSheetName & ".gif"
Application.DisplayAlerts = False
chtPicture.Delete
Application.DisplayAlerts = True
Set chtPicture = Nothing
Application.ScreenUpdating = True
End Sub
Viele Grüße und danke wie immer für die gute Hilfe!
Tina