Excel VBA Programmierung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Das ist der


Sub in dem die Formulierung benötigt wird.
Konkretes Beispiel:
Wenn die bearbeitete Spalte, = LetzteSpalte, in dem Bereich von CA bis CT liegt, dann soll die Zelle in "UU" der Wert 1 eingetragen werden

Sub Daten_Ueberpruefen()
Dim Wert As Double
Dim UL As Double
Dim LL As Double
Dim LetzteSpalte As Integer
Dim LetzteZeile As Integer
Dim Wort As String
Wort = "FALSCH"
''''''''''''''''''''''''''''NACH AUSCHUSS SUCHEN''''''''''''''''''''''
LetzteSpalte = 6
For LetzteZeile = 6 To Worksheets("Datenblatt").Cells(Rows.Count, 6).End(xlUp).Row
If StrComp(Cells(LetzteZeile, 6), Wort, vbTextCompare) = 0 Then
If (Cells(LetzteZeile, 11)) + (Cells(LetzteZeile, 7)) + (Cells(LetzteZeile, 8)) + (Cells(LetzteZeile, 9)) + (Cells(LetzteZeile, 10))  0 Then
For LetzteSpalte = 7 To Worksheets("Datenblatt").Cells(7, Columns.Count).End(xlToLeft).Column
UL = Worksheets("Datenblatt").Cells.Item(2, LetzteSpalte).Value ' die ObereGrenze holen
LL = Worksheets("Datenblatt").Cells.Item(3, LetzteSpalte).Value ' die UntereGrenze holen
Wert = Cells(LetzteZeile, LetzteSpalte).Value
If (UL = LL And UL = Wert) Or (UL  LL And (UL > Wert And Wert > LL)) Then
Else
Cells(LetzteZeile, LetzteSpalte).Interior.Color = vbRed
Cells(1, LetzteSpalte).Interior.Color = vbRed
Cells(1, LetzteSpalte) = Wort
If *Benötigte Formulierung*
Cells(LetzteZeile, "UU").Value = 1
Else
End If
End If
Next LetzteSpalte
Else
End If
Else
End If
Next LetzteZeile ' Nächste Spalte wird ausgewählt
Wort = Empty
'''''''''''''''''''''''''UNBENUTZTE SPALTEN VERKLEINERN''''''''''''''''''''
For LetzteSpalte = 7 To Worksheets("Datenblatt").Cells(1, Columns.Count).End(xlToLeft).Column
If StrComp(Cells(1, LetzteSpalte), Wort, vbTextCompare) = 1 Then
Else
Cells(1, LetzteSpalte).ColumnWidth = 0.1
End If
Next LetzteSpalte
Call SpaltenKlein
End Sub

Sub Daten_Ueberpruefen() Dim OberGrenze As Double Dim UnterGrenze As Double Dim S As Integer Dim Z As Range Const Spalte_Min = 7 Const Spalte_Max = 11 Const Wort = "FALSCH" ''''''''''''''''''''''''''''NACH AUSCHUSS SUCHEN'''''''''''''''''''''' With Worksheets("Datenblatt") For Each Z In .Range(.Range("F6"), .Range("F9999").End(xlUp)).Cells 'F ist spalte 6 If StrComp(Z.Value, Wort, vbTextCompare) = 0 Then If WorksheetFunction.Sum(Z.EntireRow.Range("G1:K1")) 0 Then For S = 7 To .Cells(7, Columns.Count).End(xlToLeft).Column OberGrenze = .Cells(2, S).Value ' die ObereGrenze holen UnterGrenze = .Cells(3, S).Value ' die UntereGrenze holen If Not (UnterGrenze "" Then .Cells(1, S).ColumnWidth = 0.1 End If Next S Call SpaltenKlein End With End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread