Archiv für die Kategorie „VBA“
Veröffentlicht in 
Schlagworte:
Ausblendung von Zeilen abhängig von Zellwerten
Prüfung der Zeilen 1 bis 10, wenn die Zelle in der Spalte A den Wert "A" enthält, wird die Zeile ausgeblendet.
Wenn dieser Code häufiger ausgeführt werden soll, so ist es ratsam, die zuvor ausgeblendeten Zeilen erst wieder einzublenden und danach erst eine Ausblendung anhand des Kriteriums herbeizuführen. Der ergänzte Code stellt sich dann wie folgt dar:
Sub Ausblenden() Dim i As Integer i = 0 For i = 1 To 10 If Cells(i, 1) = "A" Then Rows(i).Hidden = True End If Next i End Sub
Wenn dieser Code häufiger ausgeführt werden soll, so ist es ratsam, die zuvor ausgeblendeten Zeilen erst wieder einzublenden und danach erst eine Ausblendung anhand des Kriteriums herbeizuführen. Der ergänzte Code stellt sich dann wie folgt dar:
Sub Ausblenden() Cells.EntireRow.Hidden = False Dim i As Integer i = 0 For i = 1 To 10 If Cells(i, 1) = "A" Then Rows(i).Hidden = True End If Next i End Sub
Hintergrundfarbe einer Zelle in Abhängigkeit des Wertes einer anderen Zelle ändern
Nachfolgendes Makro prüft für die Zeilen 1 bis 10, ob der Wert der Zelle in Spalte A "1" entspricht. Wenn der Wert der Zelle "1" ist, wird die Zelle in Spalte B in der gleichen Zeile gelb gefärbt.
Sub Faerben() Dim IZelle As Integer IZelle = 0 For IZelle = 1 To 10 If Cells(IZelle, 1) = "1" Then Cells(IZelle, 2).Interior.ColorIndex = 6 End If Next End Sub
Einblenden von ausgeblendeten Zeilen in Excel
Nachfolgender Code bewirkt dass vor Code Anwendung ausgeblendete Zeilen mittels Anwendung dieses Befehls wieder eingeblendet werden
Cells.EntireRow.Hidden = False