Lieber Experte,
ich hoffe Sie können mir helfen. Ich habe mich schon durch viele Foren gelesen und ich schaffe es nicht mein Makro ans laufen zu bringen.
Ich habe zunächst ein Makro aufgezeichnet, wobei einfach Spalten ausgeblendet werden sollen.
Über Makro - Ausführen kann ich dieses auch ausführen. Ich möchte aber, dass dieses Makro ausgeführt wird mit Hilfe einer Wenn-Funktion. Wenn in einer bestimmten Zelle „yes“ steht, sollen die Spalten ausgeblendet werden. Ich weiß leider nicht wie man dies in einer Wenn-Funktion umsetzt. Ich habe mir auch bereits aus dem Internet entsprechende Formeln rausgesucht, aber keine funktioniert. Wahrscheinlich ist es nur eine Kleinigkeit, aber ich kann den Fehler leider nicht entdecken. Es wäre super, wenn Sie mir helfen könnten.
Anbei der Code:
Das ist mein aufgezeichnetes Makro:
Sub Ausblenden()
’
’ Ausblenden Makro
’ Makro am 19/11/2010 von Any Authorised User aufgezeichnet
’
’
Rows(„12:14“).Select
Selection.EntireRow.Hidden = True
End Sub
Im Internet habe ich noch folgende Codes gefunden:
Sub Tschuess1()
If Range(„A1“).Value = 0 Then
Columns(„B:B“).Hidden = True
End If 'Range(„A1“).Value
End Sub 'Tschuess1
und:
Function Tschuess(Jupp As String) As Boolean
Columns(„B:B“).Hidden = ((Range(„A1“).Value = 0) And (Jupp „00“))
Tschuess = Columns(„B:B“).Hidden
End Function 'Tschuess
Da ich mich leider garnicht mit Makros auskenne, kann ich den Fehler nicht finden und würde mich freuen, wenn Sie mir helfen könnten, das Makro in Excel zu aktivieren.
Vielen Dank für Ihre Hilfe
Viele Grüße
Maren