Meine Datei ist fast fertig, aber leider kommt beim öffnen (wenn Datei mit einen Password geschützt ist) immer eine Fehlermeldung.
Wer kann helfen?
Datei:
https://www.herber.de/bbs/user/107258.xlsm
Vielen Dank im voraus.
Gruß
Werner
Sub sdf()
Start = 7
ende = 300
With ActiveSheet
For i = Start To ende
If .Range("x" & i).Value = "" Then .Range("x" & i).Value = .Range("y" & i).Value
If .Range("y" & i).Value = "" Then .Range("y" & i).Value = .Range("x" & i).Value
Next
End With
End Sub
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0
If .Range("x" & i).Value = "" Then .Range("x" & i).Value = .Range("y" & i).Value
- - -Sub Summe()
With ActiveSheet
.Range("x1:Y2").FormulaR1C1 = "=SUM(R[6]C:R[299]C)"
.Range("W3").ClearContents
.Range("A5").Select ' wofür? Kann normal auch weg
End With
End Sub
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0