Office: Mehrere zellen gleichzeitig füllen

Hallo zusammen,
ich würde gerne gewusst, wie man die in UF eingegebenen Daten mit einem Klick alle 4 abcd Bereiche gleichzeitig befüllt.

Test Datei als Anhang
Danke im Voraus
Gruß Natalie

:)

 

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Test, Mappe, Beispiel, Fehler usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.

 

Hallo Natalie,

Meinst etwas in dieser Art ?

Private Sub CommandButton1_Click()
Dim coun As Integer
Dim arr(1 To 4, 1 To 1) As Variant
coun = 4
Select Case coun
Case 4
arr(1, 1) = TextBox1
arr(2, 1) = TextBox2
arr(3, 1) = TextBox3
arr(4, 1) = TextBox4
Range("C4:C7") = arr
Range("F4:F7") = arr
Range("C10:C13") = arr
Range("F10:F13") = arr
Case Else
End Select
End Sub


ransi

 

Hallo ransi,
Ein Array, Hmm.. darauf muss man erstmal kommen*Smilie
raffiniert und einfach.Funktioniert super!
ransi danke dir vielmals
Gruß Natalie