Guten Morgen, ich habe folgendes Problem, ich möchte eine Digitale verschiebbare Magnettafel in Excel machen, für personenplanung wo aber auch das verschieben der textboxen nach klick auf eine schaltfläche in eine Tabelle eingeordnet wird, auf dem folgenden bild sehen sie ein Beispiel.
Ich ordne Auto und Personen dem Projekt zu.
dann klicke ich auf die Schaltfläche.
dann soll alles untereinander angeordnete in eine Tabelle angezeigt werden, aber sobald es sich um ein neues Projekt handeln soll es eine Zeile rechts gehen.
mein momentaner code macht leider nur 3 textboxen...
Bild: http://www.directupload.net/file/d/4259/54k4timn_jpg.htm
Sub Schaltfläche5_Klicken()
Dim TextBo As Object
Dim Zeile As Long
Dim Spalte As Long
Spalte = 1
Zeile = 1
For Each TextBo In Sheets("Tabelle1").TextBoxes
Sheets("Tabelle1").Cells(Zeile, Spalte).Value = TextBo.Text
Zeile = Zeile + 1
If Zeile = 4 Then
Zeile = 1
Spalte = Spalte + 1
End If
Next TextBo
End Sub
|