ich markiere in der Tabelle1 Spalte A versichiedene Zellen. zb.A1,A3,A4,A6.
Gibt es eine möglichkeit das ich dann per Makro in die markierten Zellen den Text KB1 einfügen kann
Danke für eure Hilfe
Option Explicit
Sub Makierte_Zellen_füllen()
Dim rngtmp As Range
For Each rngtmp In Selection
rngtmp = "test" 'Dein Text
Next rngtmp
End Sub
Gruß
Sub text()
Selection = "KB1"
End Sub
gruss hary