Typen unverträglich
02.09.2021 20:02:22
Basti
Sub DIY_Makro200C9()
' Makro überschreibt UNSER Zeichen In RECHNUNG mit laufender Datei-Nr und Rechnungsnr, sofern >1
Dim DatNr As Integer
Dim ReNr As Integer
Dim zelle As Range
ReNr = Range("A5") ' = RechnungsNr ' 1 Then 'Wenn "A2 = leer" wahr ist => GoTo beenden
GoTo Beenden 'Makro200a4 nur ausführen wenn bereits mit Makro Druckrechnung1 Rechnungsblatt
End If 'angelegt wurde und also die DateiNr in Zelle A2 geschrieben ist
Range("A2").Select 'Wähle Zelle A2
Selection.Copy 'Kopiere deren Inhalt in Buffer-Speicher
Range("F20").Select 'Wähle Zellbereich F20 ("Unser Zeichen")
ActiveSheet.Paste 'fülle diesen mit Inhalt aus Buffer-Speicher
For Each zelle In Selection 'weise jeder Zelle des Bereichs F20:H20 ("Unser Zeichen") folgende Werte zu:
zelle.Value = zelle.Value & "=Ang-Nr_" & Range("C9") 'der Kundenname steht in C9
Next
Range("D11").Select
Beenden:
End Sub