VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Negative Zahlen ausblenden

Gruppe

Feature

Bereich

Bedingt

Thema

Negative Zahlen ausblenden

Problem

Negative Zahlen in Spalte A sollen ausgeblendet werden.

Lösung

Folgende Formel in der Bedingten Formatierung: =A1<0




StandardModule: Modul1

Sub GetValues()
   Dim iWks As Integer, iRow As Integer, iRowT As Integer
   Dim sName As String, sSName As String
   sName = Range("F1").Value
   sSName = Range("F2").Value
   For iWks = ActiveSheet.Index + 1 To Worksheets.Count
      iRow = 1
      With Worksheets(iWks)
         Do Until IsEmpty(.Cells(iRow, 1))
            If .Cells(iRow, 1).Value = sName And .Cells(iRow, 2).Value = sSName Then
               iRowT = iRowT + 1
               Cells(iRowT, 1).Value = .Cells(iRow, 3).Value
               Cells(iRowT, 2).Value = .Name
               Cells(iRowT, 3).Value = .Cells(iRow, 1).Address(False, False)
            End If
            iRow = iRow + 1
         Loop
      End With
   Next iWks
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Feature und Bedingt