Suchfunktion
30.01.2004 12:44:42
Jacob
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 in "Aktuell" ändert. Momentan habe ich es erreicht dass, ich gezielt den Knopf und die Tabelle anspreche und die Überschrift ändere. Das ist aber nicht der Sinn der Sache, da später sich in den Tabellen mehrere Knöpfe befinden sollten. Die Dateien besitzen im Prinzip jeweils nur drei Tabellen und in einer beliebigen Tabelle existiert zur Zeit nur ein Knopf.
In der Aktuell.xls der Knopf "Vormonat"
In der Vormonat.xls der Knopf "Vormonat" - der soll gefunden und geändert werden
In der Start.xls der Knopf "Suchen" - damit wird das Makro ausgeführt.
Ich hoffe man kann es verstehen, ansonsten stehe ich für Fragen zur Verfügung.
DANKE !!!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