ich habe zwei Fragen:
1. Ich möchte dieses Makro nur für markierte Zellen ausführen:
Sub Zellen_Kommentar()
Dim Zelle As Range
On Error Resume Next
For Each Zelle In Range("b25000:b35060")
Zelle.AddComment
Zelle.Comment.Text Text:=Zelle.Comment.Text & vbLf & Zelle.Value
Next Zelle
End Sub
Was muss geändert werden?
2. Dieses Makro soll ebenso nur für markierte Zellen ausgeführt werden. Eventuell noch neben TXT auch Txt einfügen.
Sub TXT_to_txt()
Range("B:B").Replace What:=".TXT", Replacement:=".txt", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=True
ActiveWindow.SmallScroll ToRight:=0
Range("B2").Select
End Sub
Was muss geändert werden?
Vielen Dank vorab.....
Gruß
Dzana