AW: mit c++ excel tabelle lesen
10.05.2005 18:26:56
choutko
vielen dank dani
zuerst habe ich mich gefragt ob ich das vba programm auch kompilieren soll und wo kann ich einen solchen compiler finden?
dann habe ich versucht mich aus diesem Programm schlau zu machen.
leider sind mir ein paar punkte nicht klar, vielleicht kannst du mir weiterhlefen fallst du zeit hast.
erstens sehe ich nicht ob dieses Programm nur 2 mal sucht oder ob es solange such bis es am ende der Tabelle gelangt (ich bräuchte zum Beispiel den "Wert" HN suchen, und dieses Wert kommt 100 mal in meiner A spalte vor, ich brauche also das die Aufgabe 100 mal erledigt wird)
und dann ist mir nicht klar,was meinst du mit spalte A länge ermitteln?
und dann noch ist es richtig, dass falls ich zum Beispiel den Wert 3 mal nach rechts und einmal nach unten speichern möchte, dann gebe ich: Fundort.Offset(1, 3). ein?
und noch eine letzte
ich habe versucht die funktion kopieren zu modifizieren damit der suchwert in der B spalte in der neuen datei auch gespeichert wird. ich weiss aber nicht ob das was ich gemacht habe sinn macht.
Function Kopieren(Suchwert As String)
Dim Fundort As Range
Dim Eintragsort As Long
Dim Eintragsort2 As Long
Set Fundort = Range("A:A").Find(Suchwert, , , xlWhole)
If Not Fundort Is Nothing Then
Eintragsort = 1 + Workbooks("Zielfile.xls").Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row 'Spalte A länge ermitteln
Eintragsort2 = 1 + Workbooks("Zielfile.xls").Worksheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row
Fundort.Offset(0, 3).Copy Destination:=Workbooks("Zielfile.xls").Worksheets("Tabelle1").Range("A" & Eintragsort)
Fundort.Copy Destination:=Workbooks("Zielfile.xls").Worksheets("Tabelle1").Range("B" & Eintragsort2)
End If
End
Function
danke
alexandra