AW: Zelle per Makro Werte zuweisen
24.01.2022 22:36:25
Bastian
Der Autor ist vor ca. 15 Jahren gestorben, ich hatte die Lizensgebühr bezahlt, ich habe einen Großteil die "Lizenzgeschichte" auskommentiert
Sub auto_open()
Dim tmp
Worksheets("Artikel").OnDoubleClick = "artikelinrechnung"
Worksheets("Adressen").OnDoubleClick = "adresseinrechnung"
Worksheets("Sicherung").OnDoubleClick = "Prüfen"
tmp = Worksheets("Adressen").Range("w1").Value
Worksheets("Adressen").OnCalculate = "Kontrolle"
'Worksheets("Sicherung").OnDoubleClick = "Sehen"
Application.DisplayStatusBar = True
Application.StatusBar = "Rechnung3.5 von ............................."
Dim i, a, k, inhalt, da, f, nur, dd, voll, demo, volle
ddd = 5
volle = "Vollversion Passwort für VBA = Beckum34"
demo = "Sie haben die Demoversion"
Sheets("Sicherung").Select
i = Cells(Rows.Count, "b").End(xlUp).Row
a = 0
Range("f1").Select
nur = ActiveCell
nur = nur + 1
ActiveCell = nur
Range("i10").Select
voll = ActiveCell
Range("j10").Select
ActiveCell = demo
''If voll = 962122634 Then
''Range("j10").Select
''ActiveCell = volle
''Range("f1").Select
''ActiveCell = -1
''End If
da = Date - 30
dd = 100 - nur
''''If dd 962122634 Then
''''MsgBox "Sie Haben die Demoversion3.5 und können noch " & dd & " mal speichern! mail to: dc2qf@web.de http://home.worldonline.de/home/rechnung
''''End If
'''''''For k = 2 To i
'''''''Cells(k, "b").Select
'''''''inhalt = ActiveCell 'liest den inhalt der zelle in var "inhalt"
''''''''''If inhalt 0 Then '''
Sub auto_close()
Worksheets("Artikel").OnDoubleClick = ""
Worksheets("Adressen").OnDoubleClick = ""
Worksheets("Sicherung").OnDoubleClick = ""
Worksheets("Adressen").OnCalculate = ""
End Sub