VBA Problem (Für fortgeschritene)

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox MsgBox
Bild

Betrifft: VBA Problem (Für fortgeschritene)
von: Sascha
Geschrieben am: 05.12.2003 16:09:45

Hallo liebe Freunde
Habe etwas problemme mit meinem VBA
Siehe unten
https://www.herber.de/bbs/user/2339.xls
Für jede hilfe dankbar
Sascha

Bild


Betrifft: AW: VBA Problem (Für fortgeschritene)
von: Beni
Geschrieben am: 05.12.2003 19:16:34

Hallo Sascha,
entferne das ELSE
Gruss Beni


Private Sub TextBox4_Change()
    Application.ScreenUpdating = False
    If Me.TextBox4.TextLength = 3 Then
        Me.TextBox1.Enabled = True
        Me.TextBox2.Enabled = True
        [A2].Select
        Do Until ActiveCell = CDate(Me.TextBox3) And ActiveCell.Offset(0, 1) = CInt(Me.TextBox4) Or ActiveCell = ""
            ActiveCell.Offset(1, 0).Activate
        Loop
        If ActiveCell = "" Then
            Range("A2").Activate
            MsgBox "NEPOSTOJECI KUPAC", vbInformation, "GRESKA"
            Me.TextBox1.Enabled = False
            Me.TextBox2.Enabled = False
            With Me.TextBox4
                .SetFocus
                .SelStart = 0
                .SelLength = .TextLength
            End With
        'Else <<<<<<<<<<<<<
            ActiveCell.Offset(1, 0).Activate
             TextBox9.Value = ActiveCell.Offset(0, 3)
            TextBox10.Value = ActiveCell.Offset(0, 4)
            TextBox11.Value = ActiveCell.Offset(0, 5)
              ActiveCell.Offset(0, 2) = TextBox4.Value
            Me.TextBox4.SetFocus
        End If
    End If
    Application.ScreenUpdating = True
End Sub



Bild


Betrifft: AW: VBA Problem (Für fortgeschritene)
von: Sascha
Geschrieben am: 07.12.2003 12:46:20

Danke Beni
Sascha


Bild

Beiträge aus den Excel-Beispielen zum Thema " VBA Problem (Für fortgeschritene)"