Herbers Excel-Forum - das Archiv
SVERWEIS auf importierte Datei geht nicht!

|
Betrifft: SVERWEIS auf importierte Datei geht nicht!
von: urs
Geschrieben am: 30.09.2003 08:50:20
Hallo "Forümler"
ich stehe in einem schier aussichtslosen Kampf gegen ein Dateiimportfile aus AS400 auf Excel. Ich erhalte ein
11000 Zeilen umfassendes Datenfile mit 18 Kolonnen. In der ersten Kolonne sind als Referenz die Artikelnummern.
Wenn ich in dieser Kolonne über suchen einen Artikel herauspicken möchte so funktioniert dies gut.
Wenn ich aber aus einer neuen Tabelle einen Querverweis auf die Artikelnummer mache, so zeigt die Tabelle #NV an.
Gehe ich jetzt in die Datenttabelle und doppelklicke auf die gesuchte Aertickelnummer,
so verschwindet #NV und der richtige Wert erscheint.
Mein Macro bewirkt aber nicht das richtige. was mache habe ich falsch zusammengestellt?
Sub Artikelnummerkonvertieren()
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 3 Step -1
If (Cells(iRow, 1) > "0") Then
B = ActiveCell.Value
ActiveCell.FormulaR1C1 = B
End If
Next iRow
MFG und besten Dank Urs

 |
Betrifft: Text in Zahl
von: Panicman
Geschrieben am: 30.09.2003 09:21:58
Hallo Urs,
meinst du konvertieren Text in Zahl ?
Sub FormatTextToNumber()
Dim rngCell As Range
For Each rngCell In Selection.Cells
With rngCell
.NumberFormat = "General"
If IsNumeric(.Text) Then
.Value = CDbl(.Text)
End If
End With
Next 'rngCell
End Sub
mußt du dir noch umbauen auf deinen Bereich
Gruß
Holger
Betrifft: AW: SVERWEIS auf importierte Datei geht nicht!
von: Marc
Geschrieben am: 30.09.2003 09:22:45
Hallo Urs,
Habs mir mal angesehen.
Die Zeile
B= ActiveCell.Value ist der Knackpunkt.
Die vor dem Makrostart aktivierte Zelle wird das ganze Makro über nicht verändert.
D.h. für deine 11.000 Zeilen wird 11.000 mal die
gleiche Zelle ausgelesen.
Die Zeilen werden korrekt durchgezählt, aber du musst auch mal die aktive Zelle ändern, um Werte auslesen zu können.
Grüsse,
Marc
Betrifft: ich bekomm die Auswahl nicht recht hin
von: Urs
Geschrieben am: 30.09.2003 09:51:06
Hallo Marc
danke für den Hinweis. Habe mit
Range("A,iRow").Select
und
Cell(iRow, 1).Select
probiert, aber die Syntax wird dabei bemängelt.
Welchen Syntax Bock fabriziere ich denn jetzt wieder?
Wie muss ich diese "Zelle" aktivieren?
Vielen Dank urs
Betrifft: AW: ich bekomm die Auswahl nicht recht hin
von: Marc
Geschrieben am: 30.09.2003 10:04:03
Hallo Urs,
entweder schreibe
Range("A
: iRow").Select
oder
Cell
s (iRow, 1).Select
Grüsse,
Marc
Betrifft: Danke, ach wie wichtig sind die kleinen Unnterschi
von: urs
Geschrieben am: 30.09.2003 10:25:12
Hallo Marc
ja die Würze liegt im Detail. Vielen Dank. Welche Literatur hilft mir
bezüglich Syntax weiter. Hättest Du einen Typ.
Nochmals vielen Dank urs
Betrifft: AW: Danke, ach wie wichtig sind die kleinen Unnterschi
von: Marc
Geschrieben am: 30.09.2003 10:32:05
Hallo Urs,
mein Buch der Wahl ist:
Excel 2000 programmieren...
von Michael Kofler
Verlag Addison-Wesley
Kostenpunkt: rd. 45 Euro
Ich mag die herrlich verständliche Art von Kofler, Dinge zu erklären.
Für einfache Syntaxdinge sollte es aber auch die Hilfe (F1) tun, die kostet nix extra außer ein wenig (oder manchmal auch mehr) Zeit.
Grüsse und viel Erfolg,
Marc