Tabellenkalkulation

neue tabellenblätter einfügen

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

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