Thema Datum  Von Nutzer Rating
Antwort
26.04.2012 16:40:59 VBA - Neuling
NotSolved
Blau VBA Problem dringend
 30.04.2012 15:53:05 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
30.04.2012 15:53:05		 Views:
932		 Rating:
     
Antwort:
  Ja
Thema:
VBA Problem dringend

Hallo namenloser VBA-Neuling,

ich gehe davon aus, dass die Textbox1 zur Eingabe der auszugeben Werte, Textbox2 für die Zeilenanzahl und Textbox3 für die Spaltenanzahl benutzt werden sollen und die Ausgabe in der Zelle A2 wie in deinem Beispiel beginnen soll.

Private a, b, z, s
Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
z = z + 1
If z > a Then
    z = 2
    s = s + 1
End If
Cells(z, s) = TextBox1
Cancel = True
TextBox1 = ""
If z = a And s = b Then Unload UserForm5
End Sub

Private Sub Textbox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
a = Val(TextBox2) + 1
z = 1
End Sub

Private Sub Textbox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
b = Val(TextBox3)
s = 1
End Sub

Private Sub UserForm_initialize()
TextBox2.SetFocus
End Sub

Gruß

Holger

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.04.2012 16:40:59 VBA - Neuling
NotSolved
Blau VBA Problem dringend
 30.04.2012 15:53:05 Holger
NotSolved