513 Aufrufe
Gefragt in Tabellenkalkulation von
Bearbeitet
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

13 Antworten

+1 Punkt
Beantwortet von m-o Profi (22.7k Punkte)
ausgewählt von halfstone
 
Beste Antwort

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.

0 Punkte
Beantwortet von bernd76 Einsteiger_in (18 Punkte)
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
0 Punkte
Beantwortet von m-o Profi (22.7k Punkte)

Hallo Bernd,

gern geschehen smiley.

Gruß

M.O.

...