ich habe mal eine Frage: Ist es denn möglich über ein Makro die gesamte Tabelle 2 von Excel in Powerpoint zu exportieren? Wenn ja, habt ihr einen passenden Code hierfür?
Vielen Dank für eure Rückmeldungen und Vorschläge.
LG
Meike
Sub Button_G()
Application.ScreenUpdating = False
Dim bol_Sichtbar As Boolean
Dim chb As Checkbox, wksEingabe As Worksheet
bol_Sichtbar = Sheets("Eingabe").Range("I15").Value
With Sheets("Tabelle2")
.Unprotect Password:="pw"
.Rows("425:462").Hidden = Not bol_Sichtbar
If bol_Sichtbar = True Then
.Select
.Range("B425").Select
ActiveWindow.ScrollRow = 425
Else
.Range("B425,B426,B428").ClearContents
.Range("C441:D442").Select
ActiveCell.FormulaR1C1 = "test"
setze die Häkchen in den Symbolen für die Zeilen zurück 425:462
End If
.Protect Password:="pw", DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFormattingCells:=True
End With
Application.ScreenUpdating = True
End Sub
Ich hoffe, das ich meine Anliegen darstellen konnte und der Download diesmal entspannter ist.