Makro auf selektierte Tabellenblätter anwenden
17.11.2006 16:26:05
Mario
Ich habe folgenden VBA Text geschrieben bekommen. Mit dem Makro möchte ich aber nicht ein bestimmtes Tabellenblatt bearbeiten, sondern alle Tabellenblätter, die ich vorher manuell selektiert habe. Wer kann mir helfen, den Text so anzupassen?
Vielen Dank & viele Grüsse
Mario
Sub AFranzösisch()
Dim wks As Worksheet, zelle As Range, SpalteAlt As String, SpalteNeu As String
SpalteAlt = "!$A"
SpalteNeu = "!$B"
'Spalte A konvertieren'
Set wks = Worksheets("iR1018")
Set zelle = wks.Cells(21, 1)
With zelle
.FormulaLocal = Replace(.FormulaLocal, SpalteAlt, SpalteNeu)
End With
Set zelle = wks.Cells(22, 1)
With zelle
.FormulaLocal = Replace(.FormulaLocal, SpalteAlt, SpalteNeu)
End With
Set zelle = wks.Cells(23, 1)
With zelle
.FormulaLocal = Replace(.FormulaLocal, SpalteAlt, SpalteNeu)
End With
Set zelle = wks.Cells(24, 1)
With zelle
.FormulaLocal = Replace(.FormulaLocal, SpalteAlt, SpalteNeu)
End With
End Sub