Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

neue tabellenblätter einfügen





Frage

Hallo, wie kann ich neue Tabellenblätter in eine Datei einfügen ohne dabei zu sagen, ob es das 5te oder 6te Blatt ist. Es soll einfach am Ende eingefügt werden. Bin für jeden Rat dankbar. MFG Tobias

Antwort 1 von JLM

Hallo

Du klickst auf die letzte Tabelle ( Tabelle3 ) unten links Reiter

Menü einfügen - tabelle

Ich hoffe ich habe dein Frage richtig verstanden!

Gruss JLM

Antwort 2 von master-t

Hi JLM,

du hast die Frage richtig verstanden.

Ich habe aber was bei der Fragestellung vergessen.

Das soll über ein Makro laufen.

Weist du auch wie das geht?

MFG

Tobias

Antwort 3 von JLM

Hallo Tobias

Du kannst in Ecel jeden Schritt wie Enfügen - Tabelle in eine Makro aufzeichnen

Extras - Makro - Aufzeichnen - und dann als Icon in die Symbolleiste ablegen !

Mit Makro schreiben kenne ich mich nicht so aus - da werden dich sicher andere besser helfen können.

Gruss JLM

Antwort 4 von Gastleser

Der Code fügt ein Tabellenblatt am Ende ein:

Sheets.Add , Worksheets(Worksheets.Count)

Gruß
Pete

Antwort 5 von Saarbauer

Hallo

das Makro


Sub Blatt()
´ Blatt Makro
´ Makro am 07.07.2005 von Saarbauer´
Sheets.Add
ActiveSheet.Move After:=Sheets(Sheets.Count)
End Sub


Gruß

Helmut

Antwort 6 von master-t

Danke für die Info´s.

Wie kann ich diesem Sheet dann noch einen bestimmten Namen geben?

MFG
Tobias

Antwort 7 von Gastleser

Hier das rundum sorglos Paket:

Private Sub AddSheet()

Dim s As String
    
    s = InputBox("Gib hier den Namen ein.")
    If s <> "" Then
        Sheets.Add , Worksheets(Worksheets.Count)
        Sheets(Worksheets.Count).Name = s
     End If
    
End Sub

Gruß
Pete

Antwort 8 von master-t

Vielen Dank!

Funktioniert einwandfrei!


Tobias

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: