ich möchte einen Bereich aus einer Tabelle kopieren und in eine neue Tabelle der aktuellen Arbeitsmappe an letzter position als Werte einfügen.
Das geht ganz gut, aber jetzt soll er überprüfen ob es diese Tabelle mit den Namen, das ich vorher aus der Quelltabelle der Zelle A1 übernommen habe, es schon gibt.
Die Reihefolge stimmt hier nicht, bekomme es aber nicht hin!
Kann jemand von euch mal drüber schauen!!
Vielen Dank im voraus
Gruß Andi
Sub KopiereBereich()
Dim Quelltab As Worksheet
Dim Zieltab As Worksheet
Dim Zelle As Range
Dim MyName$, x&
Set Quelltab = ActiveWorkbook.Worksheets("Tabelle1")
Worksheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Worksheets("Tabelle1").Range("A1").Value
Quelltab.Range("A8:H30").Copy
ActiveSheet.Cells(1, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveSheet.Cells(1, 1).Select
MyName = Quelltab.Range("A1").Text
On Error GoTo ErrExit
For x = 1 To Worksheets.Count
If Worksheets(x).Name = MyName Then
MsgBox "Dieses Blatt existiert schon", vbCritical
Exit Sub
End If
Next
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = MyName
Exit Sub
ErrExit:
MsgBox "es ist ein Fehler augfgetreten evtl. sind ungültige Zeichen im Namen", vbInformation
Application.DisplayAlerts = False
Sheets(Sheets.Count).Delete
Application.DisplayAlerts = True
End Sub