Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Änderung in mehreren Tabellen | Herbers Excel-Forum


Betrifft: Änderung in mehreren Tabellen von: Peter
Geschrieben am: 03.12.2009 13:34:23

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

  

Betrifft: AW: Änderung in mehreren Tabellen von: ChrisL
Geschrieben am: 03.12.2009 15:15:52

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


Beiträge aus den Excel-Beispielen zum Thema "Änderung in mehreren Tabellen"