Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.01.2025 21:30:26
Punktediagramm mit verschieden vielen Punkten
17.01.2025 20:50:45
Fehlerquotient für Schultest berechnen (Formel)
17.01.2025 19:14:40
Power Query ignoriert die letzte Spalte - Warum ? Hilfe
17.01.2025 18:21:02
vba-editor öffnet sich,- aber kein Fehler
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
1296to1300
1296to1300
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dim x(1 To 200) As Range möglich?

Kategorie
Code-Problem
Tags
#bereich #sortierung #vba
Relevante Fragen
Anzeige
Dim x(1 To 200) As Range möglich?
07.02.2013 09:36:50
Kerem
Hallo,
ich möchte in einer Schleife bestimmte Zeilen in Range-Variablen abspeichern und sie später (sortiert) wieder einfügen.
Dafür habe ich Dim rngZeilen(1 To 200) As Range deklariert und in einer Schleife wie der folgenden bestimmte Zeilen abgespeichert:
For x = 1 to 200
Set rngZeilen(x) = Sheets("Tabelle1").Rows(a & ":" & b)
Next x
Ein Fehler ("Objekt erforderlich") kommt wenn ich die abgespeicherten Zeilen wieder einfügen möchte:
For x = 1 to 200
rngZeilen(x).Copy Cells(LastRowNeu + 1, 1)
Next x
Die Fehlermeldung deutet ja schon darauf hin dass der Fehler an der Deklaration Dim rngZeilen(1 To 200) As Range liegt aber wie könnte ich sonst Zeilen unabhängig voneinander (wegen sortieren) abspeichern?
Das Makro ist unfertig und unübersichtlich deswegen habe ichs hier mal nicht eingefügt. Falls es Fragen gibt bitte fragen... Stundenlange Suche haben mich nicht weitergebracht. Ich hoffe hier kann man mir helfen.
Gruß
Kerem

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dim x(1 To 200) As Range möglich?
07.02.2013 09:55:25
GuentherH
Hallo Kerem,
Die Codeschnipsel weisen jeder Variablen den gesamten Bereich von zeile a bis b zu!?.
Der Fehler dürfte im Cells liegen
probier mal
rngZeilen(x).Copy Activesheet.Rows(LastRowNeu + 1)
praktisch wäre in so einem Fall auch eine Datei upzuloaden, die man direkt debuggen kann.
Gruß,
Günther

Anzeige
AW: Dim x(1 To 200) As Range möglich?
07.02.2013 10:28:39
Kerem
Hallo Günther, leider kommt da der Fehler "Anwendungs- oder Objektdefinierter Fehler".
Ich lade eine Testdatei hoch.
Habe zum besseren Verständnis Kommentare eingefügt und mit Einzelschritten sollte es klar sein wie es funktioniert.
Wie gesagt das Makro ist noch lange nicht fertig (und wahrscheinlich voll von kleinen Fehlern). Außerdem ist die Sortierfunktion noch gar nicht eingebaut. Die Zeilen müssten also nach Makro dieselbe Reihenfolge haben wie vorher.
https://www.herber.de/bbs/user/83808.xlsm

Anzeige
AW: Dim x(1 To 200) As Range möglich?
07.02.2013 15:13:55
Kerem
Ich glaube ich hätte das Kontrollkästchen aktivieren müssen, dass die Frage noch offen ist. Mach ich hiermit.
Zum Problem: Es scheint nichts mit dem 1 To 200 Range zu tun zu haben sondern generell mit Range. Also auch folgendes funktioniert nicht: 

With Sheets("Teilestückliste")
Set rngBackup = .Rows(5)                            'speichern
.Rows("5:" & LastRow + 25).Delete Shift:=xlUp       'löschen
rngBackup.Copy Cells(5, 1)                          'einfügen

Beim einfügen wieder der Fehler "Objekt erforderlich".
In meinem zweiten Post habe ich eine Beispieldatei mit Makro hochgeladen... Bitte um Hilfe...

Anzeige
AW: Dim x(1 To 200) As Range möglich?
07.02.2013 16:35:19
GuentherH
Hallo Kerem,
ich sehe das so, dass Du mit
.Rows("5:" & LastRow + 25).Delete Shift:=xlUp
alle deine Inhalte löschst, und eine grundlegend andere Möglichkeit zum Sortieren wählen musst.
Gruß,
Günther

AW: Dim x(1 To 200) As Range möglich?
07.02.2013 17:02:43
Kerem
Hallo Günther, scheinbar liegt es tatsächlich daran. Wenn ich den Inhalt von rngBackup nämlich in einem anderen Tabellenblatt einfügen lasse klappt es nämlich.
Ich verstehe aber nicht wieso es daran liegt. Ich speichere meine Zeilen doch bevor ich die Inhalte lösche und müsste doch danach mit rngXxx.Copy alles wieder einfügen können?
Weißt Du wie ich sonst alles löschen und die Ranges wieder einfügen kann? Oder wie die andere Möglichkeit zum sortieren aussehen könnte?

Anzeige
AW: Dim x(1 To 200) As Range möglich?
08.02.2013 08:43:05
GuentherH
Hallo Kerem,
entscheidend ist, wie Michi auch geschrieben hat, dass das Range-objekt nicht die Daten, sondern nur den Verweis auf die Zellen beinhaltet. Für eine Sortierung im Code müsste also eine Sortierte Kopie an anderer Stelle geschrieben, und danach erst über die Originaldaten kopiert werden.
ich würde allerdings eher die SORT-Methode bemühen.
das würde z.b. so aussehen: 
Sub srt()
Range("A4:U17").Sort Range("a4"), xlAscending, Range("C4"), , xlAscending, _
Header:=xlYes, MatchCase:=False, SortMethod:=xlPinYin, dataoption1:=xlSortTextAsNumbers, _
dataoption2:=xlSortTextAsNumbers
End Sub

Gruß,
Günther

Anzeige
AW: Dim x(1 To 200) As Range möglich?
08.02.2013 13:58:01
Kerem
ok ich verstehe, das heißt ich müsste einen kleinen Umweg über einen neuen Arbeitsblatt gehen, das nachher gelöscht wird.
Dachte immer range speichert die jeweiligen Zellen anstatt nur auf sie zu zeigen... schade eigentlich.
Die Sort-Methode würde aber leider die leeren Zellen (Zeilen ohne Pos.nummer) ans Ende schieben.
Aber jetzt ist mir klar wie ich mein Problem lösen muss.

Anzeige
AW: Dim x(1 To 200) As Range möglich?
07.02.2013 12:17:26
Michael
Hallo Kerem.
Eine mögliche Lösung (habs nicht getestet): 
Dim rngZeilen(1 To 200) As String
For x = 1 to 200
Set rngZeilen(x) = Sheets("Tabelle1").Rows(a & ":" & b).Address
Next x
For x = 1 to 200
Sheets("Tabelle1").Range(rngZeilen(x)).Copy Cells(LastRowNeu + 1, 1)
Next x
VBA speichert hier nicht als Bereich, sondern nur die Addresse des Bereichs
  • z.B. Range("A4").Address = "$A$4"

  • z.B. Range("A4:X4").Address = "$A$4:$X$4"

    • Dieser wird dann wieder für das Kopieren herangezogen.
    HTH
    Michi

    Anzeige
    AW: Dim x(1 To 200) As Range möglich?
    07.02.2013 13:23:46
    Kerem
    Hallo Michael, leider kommt in der Zeile dann der Fehler "Objekt erforderlich". Trotzdem danke für den Vorschlag. Deine Idee würde wohl klappen, wenn ich die gespeicherten Zeilen in einem anderen Arbeitsblatt dann wieder zusammenfüge aber eigentlich wollte ich nach der Speicherung alles löschen und dann wieder füllen. Also alles im selben Arbeitsblatt.
    Anzeige

    Forumthreads zu verwandten Themen

    Zahlen aus Zelle auslesen
    Timo

    Hallo liebes Forum,
    gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
    '123456 BLA --> 123456
    Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
    Vielen Dank für die Unterstützung!
    Timo
    14.08.2008 11:16:00
    Thread-ID: 1001770
    7 Beiträge
    Mit VBA In Zelle Excelformel schreiben
    Gho-Reg

    Hi Leute
    Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
    CODE:
    rowbeforeinteger = 2
    Dim text As String
    text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
    25.08.2008 11:08:33
    Thread-ID: 1004403
    6 Beiträge
    Textinhalte aus Zellen zusammenkopieren
    zehetner

    Liebe Profis,
    ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
    Ziel ist es, die Antwort...
    21.09.2008 18:29:25
    Thread-ID: 1011343
    2 Beiträge
    Text (Datum) aus Zeile mit Zeilenbruch auslesen
    Iro

    Hallo,
    ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
    1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
    01.10.2008 23:00:06
    Thread-ID: 1013778
    4 Beiträge
    Darstellung von Variablen in Textfeldern von Grafi
    Variablen

    Ich habe in einer EXCEL-Anwendung mehrere Grafiken mit eingefügten Textfeldern. Die Inhalte der Textfelder wurden bisher manuell erfasst. Besteht eine Möglichkeit, die Textfelder mit den Inhalten von Zellen aus der EXCEL-Anwendung zu verknüpfen? Mein Wunsch ist, in Zukunft bei Aktualisierung de...
    06.10.2008 18:22:00
    Thread-ID: 1014516
    5 Beiträge
    Anzeige
    Text aus einer Zelle in ein anderes Tabellenblatt
    grigolet

    Hallo,
    ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
    09.10.2008 11:24:26
    Thread-ID: 1015295
    2 Beiträge
    Anzeige
    *Text* in einer Variable
    Thomas

    Hallo,
    wie kann ich herausfinden ob ein Text in einer Variable enthalten ist?
    Beispiel: If variable = *text* Then xxxxx
    oder If *text* IsIn variable Then xxxx
    Grüße
    16.10.2008 12:09:00
    Thread-ID: 1016816
    8 Beiträge
    Anzeige
    Variablen in Textfile schreiben, getrennt durch ta
    Siggi

    Hallo,
    ich möchte Variablen mit Hilfe der "writeline" Befehls in eine Textdatei schreiben. Funktioniert soweit auch gut. Leider werden die einzelnen Werte die ich in eine Zeile schreibe direkt aneinander gereiht. Ist es möglich diese durch einen Tabstop zu trennen?
    Der folgende Code ist...
    31.10.2008 17:56:05
    Thread-ID: 1020933
    3 Beiträge
    OpenText FieldInfo variabler array
    Siggi

    Hallo zusammen,
    ich habe eine Textdatei die ich in Excel auslesen möchte. Zum Import nutze ich momentan die Opentext Methode. Anschließend lese ich die Werte des erzeugten Arbeitsblatts in ein Array ein um dann wiederum bestimmte Werte in eine Textdatei zu schreiben.
    Workbooks.OpenText...
    14.11.2008 18:56:29
    Thread-ID: 1024682
    2 Beiträge
    Text in Fußzeile aus Zelle ziehen
    Sandra

    Hallo zusammen!
    Ich brauche mal wieder Eure Hilfe.
    Meine Exceltabelle (ein Protokoll) soll im linken Teil der Fußzeile einen Text bekommen, der automatisch aus einer Zelle gezogen wird. So das sich die Fußzeile immer aktualisiert, wenn die Zelle geändert wird. Mit einer Formel geht es j...
    29.01.2009 11:29:24
    Thread-ID: 1044904
    23 Beiträge
    Anzeige
    Zufällig einen Text ausgeben aus best. Zellen
    Eddie

    Hallo und Guten Abend.... habe mal wieder ein Problem...
    Ich will gerne aus einer Anzahl von zellen (ca 100 Zeilen) .. wo bestimmte Sätze drin stehen diese Zufällig in einer Bestimmten zelle anzeigen lassen ....
    Vielleicht hat ja jemand schon sowas gemacht ?
    thx schon einmal
    G...
    15.02.2009 20:14:00
    Thread-ID: 1050974
    7 Beiträge
    Zahl aus best. Zelle auslesen
    klaus

    Hallo!
    Folgende Tabelle soll dargestellt werden:
    Tabelle1

     AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

    Excel Tabel...
    02.03.2009 15:51:14
    Thread-ID: 1055623
    6 Beiträge
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    Anzeige

    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