Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Zweite Zeile nach Filterung selektieren

VBA: Zweite Zeile nach Filterung selektieren
02.08.2004 11:25:03
Andrea
Hallo,
ich mal wieder.
Ich habe eine automatische Filterung in einer Liste vorgenommen. Daher
steht unter den Tabellenüberschriften nicht mehr Zeile 2 sondern irgendwas.
Wie kann ich denn nun per VBA auf diese Zeile zugreifen.
Im Konkreten will ich die erste Zeile des Filterergebnisses kopieren.
Denn einfach mit Offset gehts ja nicht :(
HILFE !
Andrea

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Zweite Zeile nach Filterung selektieren
02.08.2004 12:25:27
Nepumuk
Hallo Andrea,
da muss frau die Adresse filtern.


Public Sub test()
    Dim strAdresse As String
    strAdresse = Range("A2:A65536").SpecialCells(xlCellTypeVisible).Address(0, 0)
    If InStr(1, strAdresse, ",") <> 0 Then
        If InStr(1, strAdresse, ":") <> 0 Then
            If InStr(1, strAdresse, ",") < InStr(1, strAdresse, ":") Then
                strAdresse = Left(strAdresse, InStr(1, strAdresse, ",") - 1)
            Else
                strAdresse = Left(strAdresse, InStr(1, strAdresse, ":") - 1)
            End If
        Else
            strAdresse = Left(strAdresse, InStr(1, strAdresse, ",") - 1)
        End If
    ElseIf InStr(1, strAdresse, ":") <> 0 Then
        strAdresse = Left(strAdresse, InStr(1, strAdresse, ":") - 1)
    End If
End Sub


Gruß
Nepumuk
Anzeige
Danke !!!!!
02.08.2004 13:29:05
Andrea
ufff ... das hätte ich ja im Leben nicht hinbekommen !
Vielen vielen Dank !!!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige