HERBERS Excel-Forum - das Archiv

Thema: Änderung in mehreren Tabellen | Herbers Excel-Forum

Änderung in mehreren Tabellen
Peter

Hallo Forum,
ich möchte den Inhalt aus einer UF Textbox an mehrere Tabellen in verschiedenen
Zellen (nicht gleiche Position) speichern. Der Tabellenname, der Tabellen in denen ich den
Textboxinhalt speichern möchte, fängt immer mit „A3C“ an.
Wie spricht man diese Bereiche ordentlich an?
(Z. Zt. suche ich diese Zellen die farblich gekennzeichnet sind und übergebe den Wert).
Danke
Peter

AW: Änderung in mehreren Tabellen
ChrisL

Hallo Peter
Mal ein Beispiel:
Private Sub CommandButton1_Click()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If Left(WS.Name, 3) = "A3C" Then
WS.Range("A1") = TextBox1
End If
Next WS
End Sub
Zelle A1 ist fix, weil keine Ahnung nach welchem Kriterium die "nicht gleiche Position" ermittelt wird.
mfg
Chris