title image


Smiley Per VBA : Pro Name ein eigenes Tabellenblatt
Hey MArtin,



dieses Makro sollte den Zweck erfüllen :

      

Sub TabNamen()

    On Error Resume Next

    Set blatt = ActiveSheet

    For zeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row

        If blatt.Cells(zeile, 1).Value <> "" Then

            Err.Clear

            Set Blattneu = Sheets(blatt.Cells(zeile, 1).Value)

            If Err <> 0 Then

                Set Blattneu = Sheets.Add(after:=Sheets(Sheets.Count))

                Blattneu.Name = blatt.Cells(zeile, 1)

                zneu = 1

            Else

                zneu = Blattneu.Cells(Rows.Count, 1).End(xlUp).Row + 1

            End If

            Blattneu.Cells(zneu, 1) = blatt.Cells(zeile, 1)

            Blattneu.Cells(zneu, 2) = blatt.Cells(zeile, 2)

        End If

    Next

End Sub 

In Spalte A des Ausgangsblattes sollten aber wirklich nur Namen (bis max. 31 Zeichen Länge) ohne Sonderzeichen enthalten sein !!

Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: