Spektrum-Referenz ist "Nichts"?

Ich versuche, eine Funktion schreiben, die zurück die nächste leere Zeile auf ein Blatt zu legen-Eingang.

Den code bei der Arbeit, so kann ich nur zusammenfassen.

Ich etwas tun, wie Set rng = Range("Data!A" & row) dann wieder die Referenz.

Durch Debuggen habe ich festgestellt, die Auswahl erstellt wird, die auf eine gültige Zelle Ort. Jedoch, es ist wieder "Nichts" statt ein leeres Range-Objekt. Ich habe so weit gegangen, zu setzen, dass die Zelle, die den Wert auf "" (ein Leerzeichen) vor der Rückgabe der Palette und setzen Sie ihn zurück auf "" nach.

Meine Frage ist ein zwei-Teiler:

(1) warum ist eine leere (Zelle Werte) Spektrum-Referenz Rückgabe immer "Nichts"?

(2) wie kann ich richtig auf eine leere Zelle als gültiges Range-Objekt?

  • Es würde wirklich helfen, zu sehen, der eigentliche code... die zwei Dinge, die springen wie die Möglichkeiten sind: 1) was ist der Datentyp von "Zeile". Wenn es auch einen Bereich, ich kann sehen, wie dies ergäbe einen null-Wert als Ergebnis des Ausdrucks. 2), Wie über den Aufruf der Auswahl ausdrücklich von dem Blatt, wie Worksheets("Daten").Range(Zeile, 1)
  • Ich vermute, Sie haben On Error Resume Next im code, entfernen Sie es und erhalten Sie mehr Ahnung, warum rng ist Nichts. Wenn ein Objekt kann nicht Festgelegt werden, aufgrund eines Fehlers auf der rechten Seite von dem Gleichheitszeichen, und mit Fehlern unterdrückt, das Objekt wird zu Nichts.
  • Sorry über den Mangel an code, ich werde Bearbeiten Sie die original-Beitrag mit bessere Beispiele, wenn ich kann. Anmeldung zu dieser Website ist gesperrt auf der Arbeit, so müssen wir durch, leider. Wie für Ihre Fragen, Zeile ist ein int und ich werde versuchen Ihren Vorschlag. Obwohl ich versucht habe ähnliche Anrufe.
  • Wenn Ihr row ist Integer, ich hoffe, Sie haben es weniger als 32768 als der max-Wert für den Integer-Typ ist 32767. Sollten Sie verwenden Long - der gleiche Typ wie TypeName(Range("A1").Row)
  • row wurde knapp 300. Danke für den Hinweis, obwohl. Ich mag Dinge, die so robust wie möglich, also werde ich stellen Sie sicher, dass das bald.
InformationsquelleAutor CheeseMo | 2014-07-11
  1. 0

    Sagen, wir haben ein Angebot und wollen Wählen Sie die erste echte leere Zelle in diesem Bereich

    Sub FirstBlank(r2 As Range)
    Dim r1 As Range
    Set r1 = Cells.SpecialCells(xlCellTypeBlanks)
    If Intersect(r1, r2) Is Nothing Then
        MsgBox "there is nothing to find"
    Else
        r2.Cells.SpecialCells(xlCellTypeBlanks).Cells(1).Select
    End If
End Sub
    • Hier ist der Algorithmus, den ich bin mit zu finden, das leer ist: 1) finden Sie den header, die Daten wird nie leer, wenn die Eingabe. 2) finden Sie die end (xlDown) und füge (zu Zeile Nummer). Das gibt mir die Nummer der Zeile für den neuen Datensatz. Dein Vorschlag ist interessant für andere Projekte, aber.
    InformationsquelleAutor Gary's Student
  2. 0

    Du hast einen Fehler im code.

    "Ein"& row = "300" (wobei Zeile=300)

    VBA fügt führende Leerzeichen.

    • Falsch. "A" & row wird "A300".
    InformationsquelleAutor Conor
Schreibe einen Kommentar