mein aktuelles Problem ist folgendes:
Ziel:
Markierten Zelleninhalt kopieren, nur die Werte in ein neues Blatt einfügen, dieses neue Blatt ans Ende einfügen und mit Inhalt von Zelle D3 benennen.
Spalte 1:1 schrift fett und Spaltenbreite anpassen
Problem:
Ich weiß nicht, was ich ändern muss, um das dynamisch zu machen und nicht von Tabelle7 abhängig.
Sub neuesBlattfüllen()
Sheets.Add
Sheets("Tabelle7").Select
Sheets("Tabelle7").Move After:=Sheets(4)
Sheets("Tabelle1").Select
Application.Run "'datei.xls'!MakiereAlles"
Selection.Copy
Sheets("Tabelle7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("1:1").Select
Selection.Font.Bold = True
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
End Sub
Bitte helft mir - Danke an euch vorab :)Gruß
Nadine