Supportnet / Forum / Tabellenkalkulation

Hallo zusammen! Ich suche eine Lösung für folgendes Problem: Nach einer Eingabe einer Zahl in einem Userform soll auf einem Tabellenblatt eine Tabellenkopfzeile mit der Spaltenanzahl in Höhe der eingegebenen Zahl + 1 erscheinen. Die erste Spalte soll keine Bezeichnung tragen, die restlichen Spalten beginnend von 1 bis zur eingegebenen Zahl durchnummeriert. Bsp: Eingabe: "3" Es erscheint: | . | 1 | 2 | 3 | Wäre spitze, wenn mir jemand weiterhelfen könnte, hab versucht schon diverse Antworten hier im Forum auf meine Bedürfnisse umzubauen, hatte aber bisher keinen Erfolg! Gruß, Markus

Hi Markus,

wenn du die Zahl in eine TextBox eingibst

Private Sub CommandButton1_Click()
    Dim inSpalte As Integer
    For inSpalte = 2 To 10
        Cells(CInt(TextBox1) + 1, inSpalte) = inSpalte - 1
    Next inSpalte
End Sub

Bis später,
Karin

Danke für die schnelle Hilfe!

Bin aber in VBA leider so unbedarft, dass ich bisher nicht mal das Userform zum laufen bekommen hab...

Hat vielleicht jemand einen Tip ob es irgendwo ne Vorlage oder Beispieldatei gibt, die man sich mal runterladen kann und eventuell auf eigene Bedürfnisse umbauen kann?

Wäre für jeden Tip dankbar!

Gruß,
Markus

Hi Markus,

füge im VBA-Editor ein UserForm ein und ziehe aus der Werkzeugleiste eine TextBox auf das Userform und einen CommandButton. Mache einen Doppelklick auf den CommandButton und füge dann den obigen Code ein.

Um das UserForm zu starten, kannst du im Tabellenblatt eine Schaltfläche aus der Formular-Symbolleiste erstellen und ihr dann diese Cdoezeile zuweisen

UserForm1.Show

Bis später,
Karin

• Suche in mehreren Tabellen
• umfangreicher Bericht mit Access2000 erstellen
• Ms Access Frage zu Tabellen
• 2 Excel-Tabellen vergleichen und neue Tabelle erstellen