---

excel+VB.zip

Liebes Forum!
Habe eine Frage bezüglich Excel u. Visual Basic.

Möchte eine Liste erweitern mit einem Visual Basic Fenster.(wie laut pic)
In der Excel Liste gibt es eine Fortlaufende Nr.(ganz links),sie soll bei jedem Listeneintrag um eins erhöt werden.

Ablauf:
- der User soll das Fenster vollständig ausfüllen,und danach auf    "Einfügen" klicken.
-Visual Basic soll nachsehen,welche Fortlaufende NR.die höchste ist,und wenn sie die Zeile gefunden hat,soll sie in der nächsten Zeile die Nr. um eins erhöhen.
Der nächste Schritt wäre dann,die Daten die der User in das Eingabefeld eingetragen hat,in diese neue Zeile einzutragen.

Wie Ihr sehen könnt,hab ich zwar den grafischen Part mit dem Eingabefenster geschaft,aber bei der Umsetztung der Befehle hapert es noch. 

Kann mir jemand bei der Umsetzung helfen??
Bitte-Danke!!

lg Andi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

excel+VB.jpg excel+VB.zip

2. Versuch!!! DAtananhang *gg*

[Diese Nachricht wurde von zini am 02. Nov. 2006 editiert.]

[Diese Nachricht wurde von zini am 02. Nov. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zini,
könntest Du Dich bitte auf einen thread beschränken?
Also entweder hier oder im VB-Forums-Beitrag den Hinweis setzen, wo denn nun geantwortet werden soll
Wir machen's nicht 2x 

------------------
Gruß,
Nicole                          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hmmm?
Bitte entscheide du,wo dieser Beitrag am besten passen würde.

SORRY!!!

mfg Andi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich würd's hier lassen, ist ja ne Excel-Liste mit VBA-Ansatz drin 
Aber Anregungen von den reinen VB'lern könnten auch helfen, also drüben den Hinweis auf hier.

Mal auf die Schnelle vorweg:
die letzte Zeile findest Du mit

Code:

---

Sub LetzeZeile()
  Dim i As Long
    With Sheets("Tabelle1")
        For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
        Next
    Cells(i, 1) = "einzutragender Wert"
  End With
End Sub

---

Vielleicht kommste damit schon weiter.

------------------
Gruß,
Nicole                          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Warum um Alles in der Welt,
braucht man jetzt ein graphischen Eingabefenster mittels Vba?
Ist der User unmündig, ein DAU oder whatever?

Wäre die Lösung =WENN(B153>"";A152+1;"") nicht eleganter, um das hochzählen zu realisieren und User füllt direkt in der Tabelle aus?
- oder halt gleich Access nehmen^^

Oder welchen sinnvolleren Zweck hätte die Userform die man nicht mit dem oben Beschriebenen erreichen kann?

gruss Thomas*hasst beschneidungen jeglicher Art*

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP