Letzte Zelle der Auswahl .End(xlup) mithilfe von VBA in Excel 2003 'Listen' - erfordert zwei .Wählen Sie, um die richtige Zelle?

Ich bin ein neuer Bekehrter vom Experten-Austausch, da bemerkte ich, dass Sie erhöhte die "Frei-Premium-Dienste" Punkte-Schwelle.

Es scheint, dass Excel 2003 hat Probleme mit dem End(xlup) Befehl, wenn Sie es in einem Arbeitsblatt, die enthält eine Excel - "Liste" .. Wenn ich wählen Sie eine Zelle außerhalb der 'Liste' Grenze, und dann versuchen, wählen Sie die Letzte Zelle in dem Arbeitsblatt, indem Sie VBA verwenden, habe ich zu nennen die .Wählen Sie die Funktion zweimal,, um sicherzustellen, dass ich bin immer die richtige Zelle. Wenn die ursprüngliche Zelle ist innerhalb der 'Liste' Grenze dann brauche ich nur ein .Wählen Sie. Meine gehackt zusammen-Lösung ist unten mit zwei wählt, da ich nie sicher sein kann, welche Zelle ausgewählt werden kann, auf speichern. Ich versions-check zu öffnen, um mit verschiedenen code in Excel 2007 (dieser code nicht im Jahr 2007, wo die .End(xlUp) Befehl funktioniert ordnungsgemäß).

Ist es ein beredter Weise zu umgehen?
Vielen Dank für jede Hilfe!!!

.Range("A1").Select
.Cells(.Rows.Count, "A").End(xlUp).Select
.Cells(.Rows.Count, "A").End(xlUp).Select
'two .Selects needed to select correct cell in Excel 2003 list because original selection (A1) was not in list'

.Range("A1").Select
.Cells(.Rows.Count, "T").End(xlUp)(-2, 1).Select
.Cells(.Rows.Count, "T").End(xlUp)(-2, 1).Select
'two .Selects needed to select correct cell in Excel 2003 list because original selection (A1) was not in list'

.Cells(.Rows.Count, "T").End(xlUp)(-3, 1).Select
'only one select needed here because original selection above was within the list'

InformationsquelleAutor goofology | 2010-08-17

Sehen, wie dies funktioniert:

Sub Example()
    Dim rngLstCell As Excel.Range
    Set rngLstCell = GetLastCell(Excel.Worksheets("Sheet1"))
    MsgBox "The last cell is: " & rngLstCell.Address, vbInformation
End Sub

Public Function GetLastCell(ByVal ws As Excel.Worksheet) As Excel.Range
    Dim rngRtnVal As Excel.Range
    With ws.UsedRange
        Set rngRtnVal = .Find("*", .Cells(1, 1), , , xlByRows, xlPrevious)
        If rngRtnVal Is Nothing Then
            Set rngRtnVal = .Cells(1, 1)
        End If
    End With
    Set GetLastCell = rngRtnVal
End Function

Verwendung finden, mag seltsam auf den ersten, aber es endet als die zuverlässigste Weg durch einige Widrigkeiten in den Weg, leere Zellen behandelt werden.

Dies ist vielleicht nicht ideal, wenn Ihre Daten nicht-normalisierten (gezackt).

Vielen Dank für Ihre Anregung!

InformationsquelleAutor Oorang

0

Fand ich, dass mein Einsatz .End(xlUp).Wählen Sie Vorherige zum handeln auf .End(xlUp) Zelle hat das problem verursacht. Wenn ich einfach vermeiden .End(xlUp).Wählen Sie vor der Bedienung auf den .End(xlUp) Zelle, das problem ist weniger Komplex. Es kann leicht gelöst werden, indem Sie vor jedem .End(xlUp) Betrieb mit .Range("A1").Wählen Sie. Sehen Sie den code für die Erklärung. Dies nicht beheben das problem mit der fehlerhaften .End(xlUp) Zelle 'Auswahl' - aber ich bin nicht daran interessiert, in der 'Auswahl' der Zellen, nur auf Sie. Muss ich erwähnen, dass ich verwenden .Range("A1").Wählen Sie, da A1 nicht in der 'Liste', dass ich die Manipulation über VBA.
```
'commented out - just need to add a ".Range("A1").Select" prior to any .End(xlUp) usage (besides .End(xlUp).Select) to make it work in Excel 03
'.Range("A1").Select
'.Cells(.Rows.Count, "A").End(xlUp)(0, 1).Select
'.Cells(.Rows.Count, "A").End(xlUp)(0, 1).Select
''two .Selects needed to select correct cell in Excel 2003 'Lists'
'Set EntryDate = Cells(.Rows.Count, "A").End(xlUp)(0, 1) 'no need to select cell first, then operate on it, as in the code above

'fixed code below
.Range("A1").Select 'needed for Excel 03 to select correct cell
Set EntryDate = Cells(.Rows.Count, "A").End(xlUp) 'just operate on the cell instead of selecting it first
```
InformationsquelleAutor goofology
0

Sind Sie sicher, dass die Bereiche, die Sie mit gearbeitet haben, waren identisch? Sie sollten nicht unterschiedliche Ergebnisse erhalten mit der End-Eigenschaft in Excel 2007 gegenüber 2003.

Blick auf den code:
```
.Range("A1").Select
.Cells(.Rows.Count, "A").End(xlUp).Select
.Cells(.Rows.Count, "A").End(xlUp).Select
```
Jeder der beiden Zeilen haben genau null Auswirkungen auf die anderen. Keine ehrliche Erklärung angeboten werden kann deshalb über die Eigenschaft "Ende" ist, Sie unterschiedliche Ergebnisse, basierend auf den code, den Sie angegeben haben. Von dem, was geschrieben wird, sollten Sie erhalten die gleichen Ergebnisse jedes mal. (Das ist vorausgesetzt, Sie arbeiten mit identischen Bereichen.) Ich wäre misstrauisch gegenüber anderen code, der ausgeführt wird. Ich kann Ihnen ein paar Allgemeine Tipps obwohl: Wenn Sie Ende beginnend mit einer leeren Zelle, wird es aufhören, auf das erste nicht-leere Zelle. Wenn Sie beginnen mit einem nicht-leere Zelle, das Gegenteil ist wahr. Blick auf den screenshot unten:
```
Range("B13").End(xlUp).Select 'selects B12
Range("B12").End(xlUp).Select 'selects B2
Range("A12").End(xlUp).Select 'selects A6
```
Also, ob oder nicht Ihre Liste ist zusammenhängend, ist ein Problem. Auch ist es nicht notwendig, um einen Bereich auszuwählen, bevor Sie etwas tun, um es. Erzählen Excel markieren Sie die Zelle A1 nicht auswirken, wie es führt .Cells(.Rows.Count, "A").End(xlUp).Select. Vorausgesetzt, die Linie ist in einen With-block bezieht sich auf ein Arbeitsblatt, dass Zeile code ist der gleiche wie der Navigation zu Zelle A65536 (oder A1048576 in Excel 2007) und drücken Sie Strg + nach-Oben. Unter der Annahme, dass die Zelle leer ist, wird die Excel navigieren Sie nach oben, bis es findet das erste nicht-leere Zelle in Spalte A. Wenn Ihr Mit block bezieht sich auf ein range-Objekt, dann das code-Zeile wird zur ersten Spalte, Unterste Zeile des Bereichs, und navigieren Sie nach oben, bis Sie auf die erste leere oder nicht-leere Zelle.
- Hey Nick, vielen Dank für deinen ausführlichen post...aber beide Excel-Versionen wie erwartet funktioniert mit regulären Arbeitsblätter. Das Verhalten ändert sich, wenn das arbeiten mit Excel 's ' Liste' - Funktionalität (Daten>Liste 03, . Wie es aussieht, ist implementiert ganz anders in 03 vs 07. siehe jkp-ads.com/articles/Excel2007Tables.asp
- Ich habe gerade eine Tabelle erstellt in Excel 2010 und war in der Lage, das Verhalten zu reproduzieren, die ich oben beschrieben, beide mit der Eigenschaft "Ende", sowie mit den Tastatur-shortcuts direkt auf dem Blatt.
- Ein Gedanke: sind Sie vielleicht mit Ende auf eine gefilterte Liste? Das könnte Einfluss auf Ihre Ergebnisse. Other than, die ich ' m outta Ideen. 🙂
- Es ist 03, das ist das problematische Verhalten, Excel 07 wie erwartet funktioniert. Ich ursprünglich erstellt wurde die Liste in Excel 07, und alles funktionierte perfekt, bis ich öffnete es in der 03, und am Ende der Funktion immer eine Zeile aus. Genauer gesagt, wird die Zelle ausgewählt, die durch die Nutzung der End(xlUp).Wählen Sie Funktion variiert, abhängig davon, ob die zuvor ausgewählte Zelle wurde in die "Liste" wird oder nicht. Danke nochmal für Eure Hilfe. Ich Geb deinem post einen Verlierer Aussehen und
- z.B.: Liste A3:D10. Ich wählen Sie die Zelle A1 (außerhalb der Liste), und führen Sie dann die End(xlUp).Wählen Sie die Funktion, die der ausgewählten Zelle eine Zeile weiter unten, wo es sein sollte. Wenn ich wählen Sie B4 und führen Sie dann die End(xlUp).Wählen Sie die Funktion, die richtige Zelle ausgewählt ist. Das ist ziemlich frustrierend, da man sich vorstellen kann. Also mein Update war programmatisch zu gewährleisten, dass eine Zelle innerhalb der Liste ausgewählt werden, bevor die "echte" Funktion wählen. Also ich wähle A1 (außerhalb der Liste), und führen Sie dann ein .End(xlUp).Funktion wählen wählen Sie eine Zelle in der Liste (ich hätte genauso einfach ausgewählt, A3), und dann .End(xlUp).Wählen Sie
- Ich habe festgestellt, dass andere Operationen an Zellen mit der .End(xlUp) (neben.Wählen Sie) - Funktion, die einfach gut funktionieren, ohne einer vorhergehenden in-Liste 'wählen'. Die einfache Handlung der 'Auswahl' eine Zelle in der Liste der änderungen der Liste Größe (in Excel 03). Eine 'Neue' leere Zeile wird Hinzugefügt, um das Ende der Liste, so verwirrend die .End(xlUp) Funktion. Allerdings, so lange, wie die ursprünglich ausgewählten Zelle außerhalb der Liste, dann .End(xlUp) Aktionen (neben .Wählen Sie) gut funktionieren. So mein letztes Update ist unten: fügt jede .End(xlUp) Betrieb mit ein .Wählen Sie außerhalb der Liste. Es ist ein hack, aber es funktioniert
- Was sind Sie, Berufung .End(xlUp) gegen? Wenn du postest hier den code, sollten Sie vollständig zu qualifizieren deine Aussagen: Range("A1").End(xlUp) wird zu einem anderen Ergebnis als, sagen wir Range("Z56").End(xlUp).
- Siehe mein original-Beitrag. .Zellen(.Zeilen.Count, "A").End(xlUp).Wählen Sie
- Sie kann nicht beginnen, eine code-Zeile mit einem Punkt, es sei denn, es ist enthalten in einem With-block. Von selbst, dass der code nicht gültig ist und ich sehe nicht ein Mit der Anweisung, die irgendwo in Ihrem code-Beispiele.
InformationsquelleAutor Nick Spreitzer

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.