Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1120to1124
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA - Letzte Tabelle Finden und Formel einfügen

VBA - Letzte Tabelle Finden und Formel einfügen
André
Hallo Forum,
ich habe jetzt ein paar VBA Funktionen gefunden und in meine Datei eingebaut,
komme aber trotzdem nicht zum Schluss.
Ich habe 5 Tabellenblätter (1 - 5). Für die KW 6 will ich per VBA ein neues Blatt
einfügen und in A1 der Tabelle6 mittels Makro die Funktion
"vorheriges Tabellenblatt (5) Zelle A1 + 1 eingeben, damit im Tabellenblatt 6 in A1 eine 6 erscheint.
In der nächsten Woche (7) das selbe Spiel. Gehe in das letzte Tabellenblatt, (6) kopiere
die Tabelle, gehe in A1 und gibt die Formel Tabelle 6 A1 + 1 ein, damit in Tabelle 7 in A1 eine 7 erscheint.
Habt ihr noch ne Idee oder Lösung für mich.

Sub NeueTabelle()
' NeueTabelle Makro
Sheets(Sheets.Count).Select
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
'   "Jetzt möchte ich die Formel aus A1 der voherigen tabelle in die
'    neue letzte Tabelle in A1 kopieren. (und das passiert wöchentlich
'    bis 52 Wochen voll sind.
'    ActiveCell.FormulaR1C1 = "=+'5'!RC+1" (funzt nicht, da '5' in der KW 7
'    6 sein muss
ActiveCell.Offset(5, 0).Range("A1").Select
End Sub

Gruß
André

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA - Letzte Tabelle Finden und Formel einfügen
07.12.2009 13:31:49
Chris
Hi Andre versuche es mal so:
Optional kannst du hier das Tabellen blatt noch nach der KW benennen.
einfach das Hochkomma reausmachen.
Gruss Chris
Sub NeueTabelle()
Wochennummer = Sheets.Count + 1
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
Range("A1") = Wochennummer
'optional Benennung des Blattes
'ActiveSheet.Name = "KW " & Wochennummer
End Sub

AW: VBA - Letzte Tabelle Finden und Formel einfügen
07.12.2009 13:45:03
André
Hallo Chris,
funzt soweit, habe allerdings etwas abgeändert, da ich nicht beschrieben habe, dass ich noch weitere Tabellenblätter in der Datei habe.
Ich habe aus + 1, - 5 gemacht. besten Dank.
André
Sub NeueTabelle()
' NeueTabelle Makro
' Makro am 07.12.2009 von Fungipani, Andre aufgezeichnet
Wochennummer = Sheets.Count - 5
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
Range("A1") = Wochennummer
ActiveCell.Offset(5, 0).Range("A1").Select
End Sub

Anzeige
AW: VBA - Letzte Tabelle Finden und Formel einfügen
07.12.2009 13:33:33
Tino
Hallo,
versuche es mal so
Dim LetzteSh As Worksheet
Set LetzteSh = Sheets(Sheets.Count)
LetzteSh.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Cells(1, 1).Value = LetzteSh.Cells(1, 1).Value + 1
Gruß Tino
AW: VBA - Letzte Tabelle Finden und Formel einfügen
07.12.2009 14:17:56
André
Super,
funktioniert einwandfrei.
Danke
André

445 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige