Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

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

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

CDbl Faktor <1 wird nicht übernommen

• CDbl Faktor <1 wird nicht übernommen von Thomas Herzlieb vom 08.09.2020 10:30:53
• AW: CDbl Faktor <1 wird nicht übernommen - von Werner am 08.09.2020 10:54:19
  • AW: CDbl Faktor <1 wird nicht übernommen - von Thomas Herzlieb am 08.09.2020 12:36:32
    • AW: CDbl Faktor <1 wird nicht übernommen - von Werner am 08.09.2020 12:57:55
      • AW: CDbl Faktor <1 wird nicht übernommen - von Thomas Herzlieb am 08.09.2020 14:26:29
        • Beispielmappe ohne Daten, sehr sinnvoll. oT - von Werner am 08.09.2020 14:45:26
• AW: CDbl Faktor <1 wird nicht übernommen - von Daniel am 08.09.2020 11:04:05

Guten Tag,


ich habe ein kleines Problem was wahrscheinlich der VBA Profi und 2 sec löst.


Ich habe ein User Form das Eingabe von 2 Artikelnnummern und einem Umrechnungsfaktor vorgibt.

Mein Problem bei Zahlen <1 beim Umrechnungsfaktor will das Ganze nicht laufen. Ich vermute an einer Zahlenvariablen (CDbl) icht würde beim Rechnen auch Zahlen <1 benötigen bspw. 0,5.


Bitte um Lösungen, Danke.


Hier noch der CODE:


Option Explicit

Private Sub CommandButton1_Click()

Dim loLetzte As Long, ws As Worksheet

Application.ScreenUpdating = False

If Me.TextBox1 <> "" And Me.TextBox2 <> "" And Me.TextBox3 <> "" Then
    For Each ws In ActiveWorkbook.Worksheets
        If WorksheetFunction.CountIf(ws.Columns(3), CDbl(Me.TextBox1)) = 0 Then
        Else
            With ws
                loLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
                .Range("C1:F" & loLetzte).AutoFilter Field:=1, Criteria1:=Me.TextBox1
                .AutoFilter.Range.Offset(1).Resize(.AutoFilter.Range.Rows.Count - 1).Columns(1)  _
 _
 _
 _
 _
 _
_
                .SpecialCells(xlCellTypeVisible).Value = CDbl(Me.TextBox2)
                .AutoFilter.Range.Offset(1).Resize(.AutoFilter.Range.Rows.Count - 1).Columns(4)  _
 _
 _
 _
 _
 _
_
                .SpecialCells(xlCellTypeVisible).Value = CDbl(Me.TextBox3)
                .AutoFilterMode = False
            End With
        End If
    Next ws
    Unload Me
Else
    MsgBox "Es sind nicht alle Eingabefleder befüllt."
    Me.TextBox1.SetFocus
End If

End Sub

Private Sub CommandButton2_Click()


Unload Me


End Sub

Private Sub UserForm_Click()



End Sub

Private Sub CommandButton1_Click()

Dim loLetzte As Long, ws As Worksheet

Application.ScreenUpdating = False

If Me.TextBox1 <> "" And Me.TextBox2 <> "" And Me.TextBox3 <> "" Then
    For Each ws In ActiveWorkbook.Worksheets
        If WorksheetFunction.CountIf(ws.Columns(3), CDbl(Me.TextBox1)) = 0 Then
        Else
            With ws
                loLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
                .Range("C1:F" & loLetzte).AutoFilter Field:=1, Criteria1:=Me.TextBox1
                .AutoFilter.Range.Offset(1).Resize(.AutoFilter.Range.Rows.Count - 1).Columns(1)  _
_
                .SpecialCells(xlCellTypeVisible).Value = CDbl(Me.TextBox2)
                .AutoFilter.Range.Offset(1).Resize(.AutoFilter.Range.Rows.Count - 1).Columns( _
4) _
                .SpecialCells(xlCellTypeVisible).Value = CDbl(Me.TextBox3)
                .AutoFilterMode = False
            End With
        End If
    Next ws
    Unload Me
Else
    MsgBox "Es sind nicht alle Eingabefleder befüllt."
    Me.TextBox1.SetFocus
End If

End Sub

Private Sub CommandButton1_Click()
Dim loLetzte As Long, ws As Worksheet

Application.ScreenUpdating = False

If Me.TextBox1 <> "" And Me.TextBox2 <> "" And Me.TextBox3 <> "" Then
    For Each ws In ActiveWorkbook.Worksheets
            With ws
                If WorksheetFunction.CountIf(.Columns(3), CDbl(Me.TextBox1)) > 0 Then
                    loLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
                    .Range("C1:F" & loLetzte).AutoFilter Field:=1, Criteria1:=CDbl(Me.TextBox1)
                    With .AutoFilter.Range
                        .Offset(1).Resize(.Rows.Count - 1).Columns(1) = CDbl(Me.TextBox2)
                        .Offset(1).Resize(.Rows.Count - 1).Columns(4) = CDbl(Me.TextBox3)
                    End With
                    .AutoFilterMode = False
                End If
            End With
    Next ws
    Unload Me
Else
    MsgBox "Es sind nicht alle Eingabefleder befüllt."
    Me.TextBox1.SetFocus
End If

End Sub

Beiträge aus dem Excel-Forum zum Thema "CDbl Faktor <1 wird nicht übernommen"