title image


Smiley Re: Dynamisch ComboBox Name
Gefunden :



Private Sub Speichern_Click()

Dim a As Integer



For a = 1 To 20



With UF1

Sheets("13").Cells(a, 1) = .Controls("TagA" & a).Value

Sheets("13").Cells(a, 2) = .Controls("MonatA" & a).Value

Sheets("13").Cells(a, 3) = .Controls("JahrA" & a).Value

Sheets("13").Cells(a, 4) = .Controls("TagE" & a).Value

Sheets("13").Cells(a, 5) = .Controls("MonatE" & a).Value

Sheets("13").Cells(a, 6) = .Controls("JahrE" & a).Value

.Hide

End With



Next a



End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: