Ich hoffe es kann mir jemand weiter helfen:
Das folgende Makro schreibt in die markierte Zelle eine fortlaufende Nummer.
Ich möchte gerne das dieses Makro nur in den Spalten "Q" und "Y" ausgeführt wird.
Ist eine Zelle in einer anderen Spalte markiert soll eine Fehlermeldung aufpoppen.
Kann mir jemand helfen?
Sub Test()
Dim Nr%
Dim ExcelExe$, dName$
dName = ("C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\") & "\lager.ini"
Close
On Error Resume Next
Open dName For Input As #1
If Err > 0 Then
Open dName For Output As #1
Print #1, "0"
Close
Open dName For Input As #1
End If
Input #1, Nr
Close
ActiveCell.FormulaR1C1 = Nr + 1
Open dName For Output As #1
Print #1, Nr + 1
Close
End Sub
GrußMicha