Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro auf selektierte Tabellenblätter anwenden

Makro auf selektierte Tabellenblätter anwenden
17.11.2006 16:26:05
Mario
Hallo zusammen
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro auf selektierte Tabellenblätter anwenden
17.11.2006 17:12:30
Andi
Hi,
probier's mal so (ungetestet):

Sub AFranzösisch()
Dim wks As Worksheet, zelle As Range, SpalteAlt As String, SpalteNeu As String
SpalteAlt = "!$A"
SpalteNeu = "!$B"
'Spalte A konvertieren'
For Each wks In ActiveWindow.SelectedSheets '<---------
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
Next wks  '<----------
End Sub

Meine Änderungen hab ich mit Schönen Gruß,
Andi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige