Teil einer Tabelle per Makro markieren ?

Hi Ingo
Ich wusste schon, dass Du nur die Zellen markieren willst, die Daten enthalten.
Diesbzgl. war mein Code OK.
Was aber eben nicht rüber kam war die Tatsache, dass sich die Daten vermehren (neue Zeilen). Davon hast Du nie ein Wort erwähnt, hast immer nur von C:G95 geschrieben.
Aber ich hoffe nun, dass Dein nächster Beitrag der letzte zu diesem Thema sein wird, bzw ich hoffe genau so, dass mein Code nun endlich das erfüllt, was Du erwartest :-)
Voraussetzung für die erfolgreiche Durchführung:
In allen Zeilen, die Du markiert haben möchtest, MUSS jede Zelle in Spalte A einen Wert haben. Über Spalte A wird die erste ganz leere Zeile ermittelt.
Sollte Spalte A NICHT die Spalte sein, die immer im Eingabebereich A:X einen Wert hat, dann musst Du im Code den Buchstaben für DIE Spalte eintragen, die IMMER einen Wert hat
Sodele, hier Beispiel Nr. x :-)

Sub BereichMitInhaltMarkieren()
    Dim Zeile1 As Integer
    Dim Zelle As Range
    Dim Bereich As String

    Zeile1 = 1
    'hier wird in Spalte A die erste leere Zelle ermittelt
    'bei Bedarf die Zeile "Do Until Range("A" & Zeile1).Value = "" " so ändern, dass nicht A sondern DIE Spalte abgefragt wird, die in JEDER Zeile einen Wert enthält
        Do Until Range("A" & Zeile1).Value = ""
            Zeile1 = Zeile1 + 1
        Loop

    Zeile2 = 1
        Do Until Zeile2 = Zeile1
            For Each Zelle In Range("Y" & Zeile2 & ":AF" & Zeile2)
                If Zelle.Value <> "" Then
                    If IsNumeric(Right(Zelle.Address, 4)) Then
                        Bereich = Bereich & "Y" & Right(Zelle.Address, 4) & ":AF" & Right(Zelle.Address, 4) & ","
                        Exit For
                    End If
                    If IsNumeric(Right(Zelle.Address, 3)) Then
                        Bereich = Bereich & "Y" & Right(Zelle.Address, 3) & ":AF" & Right(Zelle.Address, 3) & ","
                        Exit For
                    End If
                    If IsNumeric(Right(Zelle.Address, 2)) Then
                        Bereich = Bereich & "Y" & Right(Zelle.Address, 2) & ":AF" & Right(Zelle.Address, 2) & ","
                        Exit For
                    End If
                    If IsNumeric(Right(Zelle.Address, 1)) Then
                        Bereich = Bereich & "Y" & Right(Zelle.Address, 1) & ":AF" & Right(Zelle.Address, 1) & ","
                        Exit For
                    End If
                End If
            Next
            Zeile2 = Zeile2 + 1
        Loop
    MsgBox Bereich
    Bereich = Left(Bereich, Len(Bereich) - 1)
    Range(Bereich).Select

End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Und Tschüss :-)
Thorsten

ohjehhhhhhh *schäm* :-)
Hi Ingo
Na, diesen Thread werde ich sooo schnell NICHT vergessen :-)
Du hast den Code an der richtigen Stelle korrigiert. Nun wird Spalte B nach einem "Leereintrag" abgesucht.
Die Meldung mit den vielen Koordinaten, die Du siehst, hatte ich mir nur zu Testzwecken anzeigen lassen, und dann leider vergessen, sie zu löschen.
Es handelt sich um die Zeile
MsgBox Bereich
die Du löschen kannst.
Was mich aber wundert, sind 2 Dinge.
1. Eigentlich sollten nach dem Klick auf OK genau diese Bereiche markiert werden. Du hattest nix dazu geschrieben. Liegt das daran, dass nach Klick auf OK eine Fehlermeldung erscheint, die Du auch nicht erwähnst, oder hast Du einfach nur nicht erwähnt, dass die Markierung erfolgreich durchgeführt wird, da dies ja nichts mit dem Prob der Hinweismeldung zu tun hat?
2. Weiterhin wundert mich, dass in der Meldung am Ende nur "Y113:AF" erscheint, und nicht wenigstens "Y113:AF113".
Das kann aber daran liegen, weil die Anzahl der Zeichen, die eine MsgBox aufnehmen kann, begrenzt ist.
Mir erscheint diese, meine Lösung aber auch nicht soo glücklich, da ja doch sehr viele Parameter an Range(Bereich).Select übergeben werden.
Ich denke, auch hier gibt es Grenzen.
Eine ganz andere Alternative wäre dieser Code:

Sub BereichMitInhaltMarkieren()
    Dim Zeile1 As Integer
    Dim Zelle As Range
    Dim Bereich As String

    Zeile1 = 1

        Do Until Range("B" & Zeile1).Value = ""
            Zeile1 = Zeile1 + 1
        Loop

    Range("Y1:AF" & Zeile1).Select

End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Hier wäre aber Voraussetzung, dass IMMER alle Zeilen markiert werden sollen, die in Zelle B einen Wert haben. Und Dank der Meldung, die ich vergaß zu löschen, sehe ich, dass von Y1:AF1 bis zum Schluß jede Zeile markiert werden soll.
Ich hatte Dich bisher immer so verstanden, dass aufgrund Deiner Formeln in Y:AF es schon mal vorkommen kann, dass Zeile Y:AF ohne Inhalt ist, weil die Formeln den entsprechenden "Leerwert" zurückgeben. Und genau diese Zeilen sollten ja NICHT markiert werden. Aus diesem Grund überprüft mein Code aus meiner letzten Meldung jede Zelle im Bereich Y:AF, ob Wert oder nicht Wert.
So, schauen wir mal, wie es weitergeht :-)
Bis zum nächsten...
Ciao
Thorsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Beliebteste Forumthreads (12 Monate)

Teil einer Tabelle per Makro markieren ?

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

93 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Teil einer Tabelle per Makro markieren ?

26 Beiträge zum Forumthread Beiträge zu diesem Forumthread

93 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread