Dim AnZeigen As Double
Dim ergebnis As Long
Dim Zielwert As Double
Private Sub CommandButton1_Click()
Zielwert = Application.WorksheetFunction.Sum(Range("I42:I999"))
If Zielwert > "-1" Then
Zielwert = Format(Zielwert, "#,##0.00")
End If
If Zielwert > "1" Then
Zielwert = Format(Zielwert, "#,##0.0")
End If
If Zielwert > "10" Then
Zielwert = Format(Zielwert, "#,##0")
End If
If Zielwert = 0 Then
Range("d31").Value = "0"
Else
Range("d31").Value = Zielwert
End If
End Sub
Private Sub ersetzen_Click()
Dim i As Integer
param1 = 42
param2 = 79
param3 = 2
GoSub mach
param1 = 90
param2 = 115
param3 = 2
GoSub mach
Exit Sub
mach:
For i = param1 To param2 Step param3
If Cells(12, 3).Value <= 15 = True Then
If Cells(i, 9).Value < 1 = True And Not (Cells(i, 9).Value = "") And Not (Cells(i, 9).Value = 0#) Then
Cells(i, 9).Value = 1
Cells(i, 8).Value = "<"
ElseIf Cells(i, 9).Value > 1 = True And Not (Cells(i, 9).Value = "") And Not (Cells(i, 9).Value = 0#) Then
Cells(i, 8).Value = ""
End If
ElseIf Cells(12, 3).Value <= 50 = True And Cells(12, 3).Value > 15 = True Then
If Cells(i, 9).Value < 0.3 = True And Not (Cells(i, 9).Value = "") And Not (Cells(i, 9).Value = 0#) Then
Cells(i, 9).Value = 0.3
Cells(i, 8).Value = "<"
ElseIf Cells(i, 9).Value > 0.3 = True And Not (Cells(i, 9).Value = "") And Not (Cells(i, 9).Value = 0#) Then
Cells(i, 8).Value = ""
End If
ElseIf Cells(12, 3).Value <= 150 = True And Cells(12, 3).Value > 50 = True Then
If Cells(i, 9).Value < 0.1 = True And Not (Cells(i, 9).Value = "") And Not (Cells(i, 9).Value = 0#) Then
Cells(i, 9).Value = 0.1
Cells(i, 8).Value = "<"
ElseIf Cells(i, 9).Value > 0.1 = True And Not (Cells(i, 9).Value = "") And Not (Cells(i, 9).Value = 0#) Then
Cells(i, 8).Value = ""
End If
ElseIf Cells(12, 3).Value > 150 = True Then
If Cells(i, 9).Value < 0.05 = True And Not (Cells(i, 9).Value = "") And Not (Cells(i, 9).Value = 0#) Then
Cells(i, 9).Value = 0.05
Cells(i, 8).Value = "<"
ElseIf Cells(i, 9).Value > 0.05 = True And Not (Cells(i, 9).Value = "") And Not (Cells(i, 9).Value = 0#) Then
Cells(i, 8).Value = ""
End If
End If
Next i
End Sub
Private Sub Image_Click()
Dim filename As Variant
filename = Application.GetOpenFilename("JPEG (*.jpg),*.bmp,AlleDateien,*.*", 1, "Bild auswählen")
If filename <> False Then
Image.Picture = LoadPicture(filename)
End If
End Sub
Private Sub Sichtbar_Change()
If Sichtbar.Value = False Then
Range("g36").Select
Selection.Font.ColorIndex = 2
End If
If Sichtbar.Value = False Then
Range("i36").Select
Selection.Font.ColorIndex = 2
End If
If Sichtbar.Value = True Then
Range("g36").Select
Selection.Font.ColorIndex = 1
End If
If Sichtbar.Value = True Then
Range("i36").Select
Selection.Font.ColorIndex = 1
End If
Dim i As Integer
For i = 40 To 118
If Sichtbar.Value = False Then
Cells(i - 1, 10).Select
Selection.Font.ColorIndex = 2
Else
If Sichtbar.Value = True Then
Cells(i - 1, 10).Select
Selection.Font.ColorIndex = 1
End If
End If
Next i
Sichtbar.Select
End Sub
Das ist das ganze programm, reichen die Infos?