leider habe ich nicht den richtigen Lösungsansatz finden können. Deswegen hoffe ich das ihr mir helfen könnt. Ist bestimmt ganz simpel :)
Ich habe eine Excel Tabelle mit dem Namen "Test1" in der ich verschiedene Daten Eingebe und über Formeln berechnen lasse, diese variieren von Mitglied zu Mitglied. Jetzt habe ich mir ein Makro gebaut das ein neues Tabellenblatt an legt und so umbenennt das der Name des Mitglieds xyz welcher in Zelle A2 genommen wird. Nun werden verschiedene Ergebnisse aus dem ersten Tabellenblatt in das neu angelegte Tabellenblatt NameMitglied_xyz kopiert. Soweit so gut und alles funktioniert.
Nun zum Problem:
Ich weiß nicht wie ich es dem Makro beibringen kann bei einem neuen Namen als beispiel NameMitglied_abc ein neues Tabellenblatt anzulegen und die neuen Werte aus Tabelle "Test1" in die Tabelle zu kopieren.
Ich hoffe das ist einigermaßen verständlich. :)
Danke schonmal vorab für eure Hilfe!:)
Torsten
Hier der Code:
Sub Makro9()
'Tabellenblatt Umbenennen
Dim Bereich As String
Dim Zelle As Range
Dim Tabelle As Worksheet
Bereich = "A2"
With ActiveWorkbook
For Each Zelle In ActiveSheet.Range(Bereich).Cells
Set Tabelle = .Sheets.Add(After:=.Sheets(Sheets.Count))
Tabelle.Name = Zelle.Text
Next Zelle
End With
'Werte aus Test1 werden kopiert
Sheets("Test1").Select
Range("A1:C1").Select
Selection.Copy
ActiveWorkbook.Worksheets(2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Test1").Select
Application.CutCopyMode = False
Range("A2:C2").Select
Range("C2").Activate
Selection.Copy
ActiveWorkbook.Worksheets(2).Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Worksheets(2).Select
Application.CutCopyMode = False
Range("F2").Select
Selection.Copy
ActiveWorkbook.Worksheets(2).Select
Range("F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Test1").Select
Application.CutCopyMode = False
Range("F3:F23").Select
Selection.Copy
ActiveWorkbook.Worksheets(2).Select
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Worksheets(2).Select
Range("M3:M23").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWorkbook.Worksheets(2).Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Test1").Select
Application.CutCopyMode = False
End Sub