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

Ansicht des Beitrags:
Von:
VBA - Neuling
Datum:
26.04.2012 16:40:59
Views:
866
Rating: Antwort:
  Ja
Thema:
VBA Problem dringend

Hallo zusammen,
ich bin ein VBA Neuling und brauche dringend Hilfe.

Problemstellung:

Ich habe eine UserForm mit 3 Textboxen und einem Button. In der TextBox1 soll man unterschiedliche Werte eingeben können. Die zweite Textbox soll die Anzahl der untereinander eingelesenen Werte begrenzen (zb wert =5 dann soll man die ersten 5 eingegebenen werte in die Zellen A2 - A6 schreiben) danach soll Soll man in die Spalte B springen und dort das gleiche machen und danach in Spalte C usw... Die TextBox 3 soll begrenzen wie oft es nach rechts springen soll also beim wert 4 zb nur bis Saplte D

Ich habe es versucht aber nicht hinbekommen mein Quellcode ist bis jetzt so:

Function lngletztezeile() As Double

Dim i As Integer
Dim lngMin As Integer
Dim lngMax As Integer
'Ermittelt die letzte beschriebene Zeile in der Spalte A

For i = 2 To 2

lngMin = Cells(65538, i).End(xlUp).Row

If lngMax < lngMin Then
lngMax = lngMin
End If

Next i
lngletztezeile = lngMax

End Function


Private Sub CommandButton1_Click()
Dim X As Integer
Dim i As Integer
Dim P As Integer
Dim y As Integer


i = TextBox2.Value

Range("A1").Value = Range("A1").Value + 1
X = Range("A1").Value

If X = i Then
Selection.Offset(0, 1).Select
Range("A1").Value = 0
End If

Cells(lngletztezeile + 1, 2).Value = TextBox1.Value


End Sub



Hoffe mir kann jemand weiterhelfen

danke im voraus


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

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

     

nmd runner pk adidas nmd gold adidas stan smith gold adidas stan smith billig adidas superstar