Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

String in anderer csv finden und Spalte ausgeben

Frage Entwicklung VB for Applications

Mitglied: goodbytes

goodbytes (Level 2) - Jetzt verbinden

19.06.2013 um 22:47 Uhr, 1775 Aufrufe, 1 Kommentar

Hallo,
ich stehe gerade vor einem blöden Problem und komme einfach nicht weiter.

Ich muss aus einer csv-Datei, welche aus einer speziellen Anwendung kam, die Daten in der richtigen Reihenfolge herausziehen und in meine usgabe-csv reinschreiben.

Das gesamte Umfeld ist klar (die bereits geöffnete Datei auswählen, die benutzte Zeilen und Spalten ermitteln und als feste Werte für meine For-Schleifen verwenden.

Die Quelldatei ist allerdings nicht gerade gut strukturiert, die zu suchenden Indexe sind in verschiedene Zeilen verteilt.

In der Datei, welche das Makro enthält, gibt es eine Tabelle. In dieser Tabelle gehe ich in einer bestimmten Spalte Zeile für Zeile durch bis zum Schluss und muss in der Quelldatei nach dem Value jeder Zeile der reihe nach suchen. Wenn eine Übereinstimmung da ist übergebe ich die gefundene Spalte und (!) die Zeile in der Quelldatei an meine Ausgabe Pint#1 Funktion.

Leider klappt es aber nicht ganz so, ich dreh mich da irgendwie im Kreise.

Ich muss im Prinzip im Haupt-Sub die Zeilen der Vorgaben-Spalte in einer Schleife durchlaufen und dann in der Quell-csv die übereinstimmende Spalte ermitteln. Diese kann ich dann in der Haup-Sub zusammen mit der gerade aktuellen Zeile mit Werten an die Ausgabefunktion übergeben.

Die Quelldatei mit For-Schleifen für Zeilen und Spalten zu durchsuchen ist nervig und vor allem dauert es dann auch ewig.

Vielleicht hat schon mal jemand dieses Problem gehabt?

Vielen Dank schon mal im Voraus !!!

Gruß
Torsten
Mitglied: bastla
19.06.2013, aktualisiert um 23:41 Uhr
Hallo TorstenB!

Wenn ich das einigermaßen richtig interpretiere, könnte die Funktion "Find" helfen - um den Inhalt der Zelle B3 in "Tabelle2!A1:F50" zu suchen etwa:
01.
With Worksheets("Tabelle2") 
02.
    Set c = .Range(.Cells(1, 1), .Cells(50, 6)).Find(Cells(5, 2).Value, , xlValues, xlWhole) 
03.
    If Not c Is Nothing Then 
04.
        Debug.Print "Spalte: " & c.Column 
05.
        Debug.Print "Zeile:  " & c.Row 
06.
    End If 
07.
End With
Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Excel Nachfrage: Datum aus Spalte ausgeben (2)

Frage von PronMaster zum Thema Microsoft Office ...

Batch & Shell
gelöst Powershell - Ausgabe gruppieren - gleichzeitig Werte in anderer Spalte addieren (9)

Frage von Affkopf89 zum Thema Batch & Shell ...

C und C++
String einlesen in Array und wieder ausgeben von hinten (4)

Frage von Protected zum Thema C und C ...

Neue Wissensbeiträge
Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(3)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (41)

Frage von Datsspeed zum Thema Exchange Server ...

Windows 7
gelöst Lokales Adminprofil defekt (25)

Frage von Yannosch zum Thema Windows 7 ...

Off Topic
gelöst Fachzeitschriften als E-Book oder hardcoded? (11)

Frage von KowaKowalski zum Thema Off Topic ...

Windows 10
Windows Store Apps ohne Windows Store installieren (10)

Frage von keefien zum Thema Windows 10 ...