Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

VBA: IF/Else

Betrifft: VBA: IF/Else von: Marsi
Geschrieben am: 26.08.2004 11:50:07

Hallo zusammen,

ich habe einen Spalte von B4 bis B253. Da möchte ich Einträge per Textbox reinsetzen. Wenn nun die Zelle B4 schon gefüllt ist. Soll der Eintrag in Zelle B5 usw.

Ich versuch das schon die ganze Zeit mit nem If else Begehl, aber das gelingt mir nicht wirlich...

Danke Marsi

@Marcl, Du hattest mir ja schon mal so was in der Richtung gezeigt, nur blick ich das nicht wie ich das auf mein neues Problem anpasse...

  


Betrifft: AW: VBA: IF/Else von: Dr.
Geschrieben am: 26.08.2004 11:54:50

Ungetestet:

Sub eintrag()
.
.
.
letztezeile = ActiveSheet.Cells(253,1).End(xlUp).Row
Cells(letztezeile,2).Value = Inputboxeintrag
.
.
.
End Sub



  


Betrifft: AW: VBA: IF/Else von: Marsi
Geschrieben am: 26.08.2004 12:39:04

klappt nicht so wirklich gut - also gar nicht bei mir. Ich weiß auch nicht was inputboxen sind....ist das, das selbe wie ne Textbox?


  


Betrifft: AW: VBA: IF/Else von: ralf.p
Geschrieben am: 26.08.2004 13:18:03

Versuch´s mal so:

x = Cells(Rows.Count, 2).End(xlUp).Row + 1
Range("B" & x).Value = TextBox1.Text

Gruß Ralf


  


Betrifft: AW: VBA: IF/Else von: Marsi
Geschrieben am: 26.08.2004 13:32:27

cool, ja so gehts, allerdings fehlt mir die einschränkung, dass es nur für die zellbereiche B4 bis B 253 gelten soll danach solls nicht nix mehr machen....


  


Betrifft: AW: VBA: IF/Else von: ralf.p
Geschrieben am: 26.08.2004 15:54:16

Versuch´s mal so:

x = Cells(Rows.Count, 2).End(xlUp).Row + 1
if x < 4 or > 253 Then Exit Sub
Range("B" & x).Value = TextBox1.Text

Gruß Ralf


  


Betrifft: AW: VBA: IF/Else von: Marsi
Geschrieben am: 26.08.2004 19:51:37

er bringt mir da einen syntaxfehler in der zeile mit dem if....

könnte es daran liegen, dass ich den code einem commandbutton zugeordnet habe....


  


Betrifft: AW: VBA: IF/Else von: Marsi
Geschrieben am: 27.08.2004 08:03:36

so ich habe es noch mal ausprobiert:

mein Code lautet jetzt:

Private Sub CommandButton1_Click()

x = Cells(Rows.Count, 2).End(xlUp).Row + 1
If x < 4 Or x > 253 Then Exit Sub
Range("B" & x).Value = TextBox1.Text


End Sub



das Problem dabei ist jetzt nur, dass nun nix mehr vom UserForm ins Tabellenblatt übertragen wird....


  


Betrifft: AW: VBA: IF/Else von: Marsi
Geschrieben am: 27.08.2004 08:46:03

alles quatsch, ich war zu dusselig.

Natürlich funktioniert der Code!!! in Zelle B4 muss, aber was drin stehen.....

Danke!!!

Marsi