Wie passe ich den Code auf meine Bedüfnisse an?

Question

Hallo zusammen,

ich habe eine Frage zum Code.

Option Explicit

Sub Spalte_ausb()
Dim intSpalte As Integer
Application.ScreenUpdating = False
For intSpalte = 1 To 256
If Cells(1, intSpalte) = "" Then
Columns(intSpalte).EntireColumn.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub

Wenn ich das richtig verstanden habe, dann gebe ich im Bereich "For intSpalte = 1 To 256" den Abfrage Bereich ein.

und im Bereich "If Cells(3, intSpalte) = "z" Then" gebe ich die Spalte an welche zu durchsuchen ist, in meinem Fall die 3 Spalte und nach was er suchen soll, in meinem Fall ein z.

Ist das so richtig?

Un wie bekomme ich das hin wenn ich das "z" in eine verbunden Zelle habe welche über 4 Spalten zusammenhängt?

Es funktioniert nähmlich nicht :(

Danke und Gruß

Bernd

Answer 1

Hallo Bernd,

da der Inhalt der Zelle D1 über eine Formel geändert wird, ist hier eine Überwachung leider nicht möglich. Wenn ich das aber richtig sehe, wird die Nummer in Zelle D1 in Abhängigkeit von u.a. Zelle G5 generiert. Daher habe ich das Makro so geschrieben, dass wenn der Inhalt dieser Zelle geändert wird, alle Zeilen ab Zeile 36 wieder eingeblendet werden.

Das folgende Makro gehört in das VBA-Projekt der Tabelle "Prüfplan Beschlüsse":

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngLetzte As Long

'Makro nur ausführen, wenn Inhalt von Zelle G5 geändert wird
If Not Intersect(Target, Range("G5")) Is Nothing Then
   'letzte beschriebene Zeile im Blatt ermitteln
    lngLetzte = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    'alles ab Zeile 36 einblenden
    Range(Cells(16, 1), Cells(lngLetzte, 1)).EntireRow.Hidden = False
End If

End Sub

Gruß

M.O.

Answer 2

Hallo M.O.,

Vielen Vielen Dank!

Ich weiß nicht wie ich mich dafür gescheit bedanken kann,

Ich mache eine große verbeugung vor dir und deinem Können.

Toll das du damit unwissenden wir weiterhilfst.

Gruß Bernd

Answer 3

Hallo Bernd,

gern geschehen .

Gruß

M.O.