Zelle suchen, eine Zeile runter, 3 nach rechts
07.01.2004 18:53:40
Jörg
hier mal was ganz einfaches
Eine Zelle suchen, eine Zeile runter, 3 nach rechts gehen, den text der dort steht (Jürgen) als neue Arbeitsmappe Jürgen abspeichern.
sowas habe ich schon mal geschrieben bekommen.Das geht auch ich muß nur in eine andere Zelle. Datum nehme ich dann raus.
Sub speichername_Zelle()
Dim str As String
str = Range("A1").Value & "" & Date
'str = Range("A1").Value 'als Variante
ActiveWorkbook.SaveAs str
End Sub
Na wer kann's ?
Gruß Jörg
Anzeige