Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
208to212
208to212
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

automatisch selectieren

Forumthread: automatisch selectieren

automatisch selectieren
31.01.2003 15:11:04
ivan

hallo liebe gemeinde
wie kann ich den bereich A Tabelle1 selctieren,
so das der bereich automatisch mit den einträgen 
übereinstimmt 

zb. für kopieren??

  Range("A1:A3500").Select 'hier muß ich den bereich ja immer ändern
  Selection.Copy           'wenn mehr daten dazukommen!!

der code soll quasi alleine erkennen wie viele daten vorhanden
sind in spalte A.um dann zu kopieren oder sortiern unsw.

wer kann mir helfen????
IVAN

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: automatisch selectieren
31.01.2003 15:14:34
Hajo_Zi

Hallo Ivan

auf select kann zu 99% in VBA verzichtet werden.

If [a65536] = "" Then
letzte = [a65536].End(xlUp).Row
Else
letzte = 65536
End If

Range("A1:A" & letzte).copy

Gruß hajo

Re: automatisch selectieren
31.01.2003 15:15:16
BerndL

Ist zwar zu 'ner anderen Frage aber müßte Dir trotzdem als Tip weiterhelfen:
https://www.herber.de/forum/messages/211828.html

MfG,
BerndL



Anzeige
Re: automatisch selectieren
31.01.2003 15:35:08
ivan



danke hajo

funkt super mit kopieren 

aber wie mach ich das dann mit sortieren??



hier habe ich ja auch einen bereich den er ja braucht!

Range("a1:a3500").Sort Key1:=Range("a1"), Order1:=xlAscending, Header:= _

        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortNormal





DANKE

IVAN

Anzeige
Re: automatisch selectieren
31.01.2003 15:36:44
Hajo_Zi

Hallo Ivan

ich gehe mal davon aus Deine Zeile läuft. Warum dann nicht genauso

Range("A1:A" & letzte).Sort Key1:=....

Gruß hajo

Re: ALLES KLAR
31.01.2003 15:44:59
ivan

SUPER HAJO FUNKT!!!
wenn ich dich nicht hätte.
danke
ivan


;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige