VBA erzeugte Tabelle, Layout von einer Vorlage-Tabelle
22.02.2024 17:18:50
Ralf
Ich hoffe Ihr könnt mir weiterhelfen.
Die Idee wäre, zuerst wird eine neue Tabelle erzeugt, Name aus einer Variable (ComboBoxPR auf der UF), das klappt auch bestens.
Nun sollte aber die erzeuget Tabelle das Layout aus der Tabelle "PR_V" übernommen werden.
Daher sollte "Sheets("PR3").Select"ersetzt werden mit der Varabel aus der ComboPoxPR, .
_______________________________________________________________________
Private Sub CommandErzeugen_Click()
'** Neues benanntes Tabellenblatt einfügen
'** einfügen als letztes Blatt
'** Dimensionierung der Variablen
Dim blatt As Object
Dim BlattName As String
Dim bolFlg As Boolean
'** Blattname festlegen
BlattName = ComboBoxPR.Value
'** Prüfen, ob das Blatt, welches eingefügt werden soll bereits vorhanden ist
'** Nur einfügen, wenn Blatt noch nicht vorhanden ist
For Each blatt In Sheets
If blatt.Name = BlattName Then bolFlg = True
Next blatt
'** Blatt nur einfügen, wenn noch nicht vorhanden
If bolFlg = False Then
With ThisWorkbook
.Sheets.Add after:=Sheets(Worksheets.Count)
.ActiveSheet.Name = ComboBoxPR.Value
'** Layout von Vorlage Tablle auf erzeugte Tabelle übertragen (dieser Code ist mit Makro aufgenommen)
Sheets("PR_V").Select
Cells.Select
Selection.Copy
Sheets("PR3").Select
Cells.Select
ActiveSheet.Paste
End With
End If
End Sub