Microsoft Excel

Herbers Excel/VBA-Archiv

VBA - Letzte Tabelle Finden und Formel einfügen | Herbers Excel-Forum


Betrifft: VBA - Letzte Tabelle Finden und Formel einfügen von: André
Geschrieben am: 07.12.2009 12:29:39

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é

  

Betrifft: AW: VBA - Letzte Tabelle Finden und Formel einfügen von: Chris
Geschrieben am: 07.12.2009 13:31:49

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



  

Betrifft: AW: VBA - Letzte Tabelle Finden und Formel einfügen von: André
Geschrieben am: 07.12.2009 13:45:03

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



  

Betrifft: AW: VBA - Letzte Tabelle Finden und Formel einfügen von: Tino
Geschrieben am: 07.12.2009 13:33:33

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


  

Betrifft: AW: VBA - Letzte Tabelle Finden und Formel einfügen von: André
Geschrieben am: 07.12.2009 14:17:56

Super,

funktioniert einwandfrei.

Danke
André


Beiträge aus den Excel-Beispielen zum Thema "VBA - Letzte Tabelle Finden und Formel einfügen"