Range Variable definieren
06.03.2015 20:57:47
hennerich
ich gebs auf. Kann mir nicht erklären, warum ich immer den Fehler bekomme, dass die Variable nicht definiert wäre.
Ich möchte etwas importieren und danach in meiner formatierten Tabelle in der Spalte "Datum" das letzte (aktuellste) Datum suchen und daraus die Monatszahl ermitteln.
So gehe ich vor:
Sub ImportData()
Dim rngDatum As Range
Dim strSheet As String, strFilter As String
Dim iAnzahl As Integer, iZeile As Integer, iEnde As Integer, iMonat As Integer
GetMoreSpeed True
With ThisWorkbook.Sheets("Ist")
'Datenimport u.a. mit
.Range("tblDaten[[P-BU ID]:[Kommentare]]").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'jetzt kommen die Fehler
rngDatum = .Range(Cells(1, 11), Cells(10, 11)) 'Habe schon diverse Hilfen mit google gefunden, jedoch finde ich den Fehler nicht.
Wisst ihr was ich falsch mache?
Grüße
Henri