Ich mühe mich mit meinen bescheidenen VBA Kenntnissen nun schon länger mit folgendem ab.
Ich möchte den ausgewählten Wert aus einer Combobox in mehrere Tabellenblätter übertrage. Leider schaffe ich es bisher nur immer im ausgewählten Blatt.
Mein Code sieht bis jetzt so aus:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim lngZiel As Long
Dim wks As Worksheets
With Worksheets("Lebensmittel")
' For Each wks In ThisWorkbook.Worksheets 'gibt einen Laufzeitfehler Typenunverträglich aus :-(
lngZiel = .Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To 1
.Cells(lngZiel, i).Value = cbMonat.Value
Next i
'Next wks
End With
End Sub
Info: Der Tabellenname jeder Tabelle steht mit folgender Formel in A1
=TEIL(@ZELLE("dateiname";A1);FINDEN("]";@ZELLE("dateiname";A1))+1;255)
Ich denke für euch ist das eine kleine "Geschichte" und ich zerbreche mir seit Stunden den Kopf.
Danke euch schon jetzt im Voraus für eure Hilfe und sende euch liebe Grüsse aus der Schweiz.
Dani