Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1364to1368
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
Inhaltsverzeichnis

Wenn Abfrage

Wenn Abfrage
27.06.2014 12:48:00
Jürgen
Hallo, ich hatte letztens schon einmal angefragt. Dann ging mir aber leider die ZEit aus und ich konnte auf eine Antwort nicht mehr antworten. Darum die ähnlichen Frag noch einmal.
Ich möchte eine Zelle abfragen ob ein Text darin steht. Wenn nein dann zum nächsten sheet gehen. Wenn ein Text darin steht, dann markieren.
Im Einzelnen:
Ich habe eine Tabelle mit verschiedenen Sheets.
Sheet A
Zeile A ist die Kopfzeile.
Abfrage:
Wenn Zelle A2 kein Wert, dann Ende und in Sheet B gehen.
Wenn Zelle A2 ein Text erkannt wird, dann von A2 bis zum Ende markieren, copy.
Den Rest weiß ich dann wieder.
Wer kann mir da helfen.
Danle

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

Betreff
Datum
Anwender
Anzeige
AW: Wenn Abfrage
27.06.2014 13:32:54
ransi
Hallo
MAch mal so:
Option Explicit

Sub machs()
    With Sheets("Sheet A")
        If .Range("A2") = "" Then 'Wenn Zelle A2 kein Wert,
            Sheets("Sheet B").Select 'dann Ende und in Sheet B gehen.
            Else:
            .Range(.Range("A2"), .Cells(.Rows.Count, 1).End(xlUp)).Copy 'Wenn Zelle A2 ein Text erkannt wird, dann von A2 bis zum Ende markieren, copy.
            'Das "bis zum Ende markieren" schenken wir uns
        End If
    End With
End Sub


ransi

Anzeige
AW: Wenn Abfrage
01.07.2014 12:43:37
Jürgen
Hallo, ich muss snoch einmal Rückfragen und korrigieren.
Wenn Zelle A2 kein Wert, dann Ende und in Sheet B gehen. (-Fett ist gestrichen)
Wenn Zelle A2 ein text erkannt wird, dann .... (das funktioniert)
Kann mir das noch jemand sagen.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige