Tabellen durchsuchen
30.01.2004 08:52:59
Longina
Ich brauche Eure Hilfe, da ich da nicht weiter komme. Ich möchte erreichen dass, die Routine in einer Datei alle 3 Tabellen durchsucht und den Knopf mit der Überschrift "Vormonat" findet und den auch in "Aktuell" ändert. Momentan habe ich es erreicht das ich gezielt den Knopf und die Tabelle anspreche und die Überschrift ändere. Das ist aber nicht der Sinn der Sache, da später sollten sich in den Tabellen mehrere Knöpfe befinden. Das ganze dient einer Dateiarchivierung, die Dateien füge ich als Anlagen bei. Es wäre Toll wenn sich Jemand von Euch damit beschäftigen könnte. Danke im Voraus.
Sub Sichern()
Dim AlterName, Neuername
Dim Datei As String
Dim Active As Workbook
On Error GoTo Meldung
Monat = Month(Now)
If Day(Now) - 15 <= 10 Then
Monat = Monat - 1
End If
If Monat - 2 < 1 Then
Archivmonat = Monat - 2 + 12
Archivjahr = Year(Now) - 1
Else
Archivmonat = Monat - 2
Archivjahr = Year(Now)
End If
Archivname = "Stand_" & Archivmonat & "_" & Archivjahr & ".xls"
FileCopy "c:\aktuell.xls", "c:\Aktuell_alt.xls"
AlterName = "c:\Vormonat.xls": Neuername = "c:\" & Archivname
Name AlterName As Neuername
AlterName = "c:\Aktuell_alt.xls": Neuername = "c:\Vormonat.xls"
Name AlterName As Neuername
Datei = "c:\vormonat.xls"
Workbooks.Open Datei
Set Active = Application.ActiveWorkbook
ActiveSheet.Shapes("AutoShape 3").Select
Selection.Characters.Text = "Aktuell"
Workbooks("c:\vormonat.xls").Close SaveChanges:=True
Exit Sub
Meldung:
titel1 = "Fehler"
Mel0 = "Sie haben die Datei bereits einmal gesichert."
antwort = MsgBox(Mel0 + Chr(13), vbOKOnly, titel1)
End Sub