Beschriebene Zeilen auswählen und ...
02.01.2007 21:43:09
André
Ich habe folgendes Problem.
Ich habe eine Excel-Tabelle wo:
Zeilenweise Artikel drin stehen (von "A4:P150"). In der Zeile "F" wird vereinzelt ein Wert "1" gesetzt.
Ich will jetzt über VBA, dass ein Button alle Spalten Markiert (am Besten von Zeile "A:P"), wo in Zeile "F" der Wert "1" steht.
Zwischen den Werten in Zeile "F" kommen nur leere Zellen.
Dann Sollen die Markierten Spalten/Zellen auf eine neue Arbeitsmappe kopiert werden.
Ich habe im Netz was gefunden, nur funktioniert es bei mir nicht. Daher komme ich jetzt nicht groß weiter. Auserdem reicht die Funktion noch nicht aus.
Da ich hier immer eine gute Antwort kriege, versuche ich es lieber hier.
Sub Nichtleere_Zellen_markieren()
suchwert = ""
For Each Suchzellen In Selection
If Suchzellen.Value <> suchwert Then
i = 1
z_index = Suchzellen.Row
s_index = Suchzellen.Column
Cells(z_index, s_index).Select
Inhalt = Inhalt & Selection.Address & "," i = i + 1
End If
Next
Range(Left(Inhalt, (Len(Inhalt) - 1))).Select
End Sub
Er meckert bei mir bei :Range(Left(Inhalt, (Len(Inhalt) - 1))).Select
Danke im voraus.