Top-Themen

Aktuelle Themen (A bis Z)

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

gelöst Excel-Tabelle per Script nur bestimmte Spalten auswählen

Mitglied: MarkusMohr

MarkusMohr (Level 1) - Jetzt verbinden

27.01.2011, aktualisiert 15:33 Uhr, 7763 Aufrufe, 3 Kommentare

Guten Tag erstmal,

Wolte zuerst mal anmerken das ich gesehen habe das es schon ähnliche Probleme gegeben hat aber komme damit nicht weiter!!

Zum Problem:
Bekomme aus einem Programm eine dbf-Datei die folgender Maßen aufgebaut ist:

c3d629d7834cc7c09062dfeb1c1c47c9 - Klicke auf das Bild, um es zu vergrößern

Aus dieser Tabelle sollen nur bestimmte Spalten in eine neue xls-Datei kopiert werden die folgender Maßen aufgebaut sein muss
0f1a0ed960478707afc3b0cb4d5f600a - Klicke auf das Bild, um es zu vergrößern

Also sprich:

EDIT: xls.Hdl.-Nr kommt der wert XXXXX
dbf.ANREDE in xls.Anrede
xls.Titel bleibt leer
dbf.VORNAME in xls.Vorname
dbf.NACHNAME in xls.Name
EDIT: xls.Firma 1 bleibt leer
xls.Firma 2 bleibt leer
dbf.STRASSE in xls.STraße
dbf.PLZ in xls.PLZ
dbf.ORT in xls.Ort
dbf.TELPRIVAT in xls.Telefonnr.
dbf.FAHRGEST_N in xls.VIN


Der Aufbau der beiden Dateien ist immer gleich!

Denke das dies mit VB zu realisieren ist da ich davon keinen Peil habe bitte ich um eure Hilfe
Danke schonmal im Vorraus!!

MfG Markus
Mitglied: Netzheimer
27.01.2011 um 15:10 Uhr
Hallo Markus,

das kannst du sogar (fast alles) mit dem Makro-Rekorder machen.

dbf Öffnen.
Makro aufzeichen

Alle Spalten, auch die leeren, die du willst markieren
Datei > neu > A1 auswählen > einfügen
Bei den Spalten die leer bleiben sollen die Daten löschen
und in die Zeile mit dem gleichen Wert (xls.Firma1) den Wert eintragen
auf den kleinen schwarzen umrandeten Balken Doppelclicken und die Werte werden gefüllt.

Makro aufzeichnen beenden

Damit hast du schon mal dein Grundgerüst. Für die Statischen Werte kannst du evtl. auch mit Cells.Offset arbeiten (solange links was steht, den Wert eintragen)

Gruß
Netzheimer
Bitte warten ..
Mitglied: MarkusMohr
27.01.2011 um 17:00 Uhr
Ersteinmal Danke für deine Antwort!

Hab das mal kurz ausprobiert aber ist überhauot nicht mein Ding!
Denke das ich bevor ich diesen Rekorder benutze mich nach und nach in VB einarbeite ist schon irgendwie schöner

Aber trotzdem Danke!
Bitte warten ..
Mitglied: bastla
28.01.2011 um 18:00 Uhr
Hallo MarkusMohr!

Das könnte als VBA etwa so aussehen:
01.
Sub Konvertieren() 
02.
Zuordnung = Array("XXXXX", "_B", "", "_D", "_E", "", "", "_G", "_H", "_I", "_K", "_L") 
03.
Quelle = "Tabelle1" 
04.
QAbZeile = 2 
05.
QAbSpalte = 1 'Quelldaten ab Spalte A 
06.
 
07.
Ziel = "Tabelle2" 
08.
ZielUeber = Array("Hdl.-Nr*", "Anrede", "Titel", "Vorname*", "Name*", "Firma 1**", "Firma 2*", "Straße*", "PLZ*", "Ort*", "Telefonnr.", "VIN*") 
09.
ZAbZeile = 2 
10.
ZAbSpalte = 1 'Zieldaten ab Spalte A 
11.
 
12.
 
13.
Feldanzahl = UBound(ZielUeber) + 1 
14.
QZeile = QAbZeile 
15.
ZZeile = ZAbZeile - 1 
16.
 
17.
For i = 0 To Feldanzahl - 1 
18.
    Worksheets(Ziel).Cells(ZZeile, ZAbSpalte + i) = ZielUeber(i) 
19.
Next 
20.
ZZeile = ZZeile + 1 
21.
 
22.
Do While Worksheets(Quelle).Cells(QZeile, QAbSpalte) <> "" 
23.
    For i = 0 To Feldanzahl - 1 
24.
        If Left(Zuordnung(i), 1) = "_" Then 
25.
            Worksheets(Ziel).Cells(ZZeile, ZAbSpalte + i) = Worksheets(Quelle).Cells(QZeile, Mid(Zuordnung(i), 2)) 
26.
        Else 
27.
            Worksheets(Ziel).Cells(ZZeile, ZAbSpalte + i) = Zuordnung(i) 
28.
        End If 
29.
    Next 
30.
    QZeile = QZeile + 1 
31.
    ZZeile = ZZeile + 1 
32.
Loop 
33.
End Sub
Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Python
Python Excel bestimmte Spalte auslesen
gelöst Frage von 115122Python2 Kommentare

Hi, ich bastle gerade ein wenig mit Python und Excel herum und bin auf ein Problem gestoßen, wurde aber ...

Microsoft Office

Hyperlink zu einer bestimmten Registerkarte in einer Excel-Tabelle

gelöst Frage von immobrauchMicrosoft Office2 Kommentare

Hallo zusammen, irgendwann hab ich das schon mal gewusst Hyperlink zu ///Verzeichnis1/Verzeichnis2/Name.xlsx öffnet die Datei. Das ist klar. Jetzt ...

Microsoft Office

Excel Tabelle nach Spalte sortieren und Daten auf Tabellenblätter separieren

gelöst Frage von FastinatorMicrosoft Office4 Kommentare

Guten Tag zusammen, man hat mich vor die Aufgabe gestellt, eine .CSV-Datei in Excel (Microsoft Office 2010) so umzubauen, ...

Microsoft Office

Excel: Tabelle (Spalte) auf doppelten Wert prüfen

gelöst Frage von caschoplMicrosoft Office4 Kommentare

Ich muss in einem Excel prüfen, ob ein bestimmter Wert bereits schon vorkommt Folgendes Szenario: ich habe eine Excel ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 1 TagHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 1 TagRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 2 TagenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 2 TagenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Router & Routing
Mikrotik: Routing zwischen Interfaces mit Geräten ohne Gateway
Frage von TonLichtVideoRouter & Routing18 Kommentare

Hallo zusammen, ich komme aus dem Veranstaltungstechnik Bereich und habe zwei Netze um verschiedene Hardware zu Remoten. CONTROL1 192.168.1.0/24 ...

Linux Netzwerk
Raspberry Pi 3: WLAN Power save deaktivieren
Frage von nordie92Linux Netzwerk14 Kommentare

Moin moin, mein Raspberry Pi 3 Model B benötigt eine dauerhaft aktive WLAN-Verbindung. Leider bricht die WLAN-Verbindung nach einigen ...

SAN, NAS, DAS
Entscheidung SAN Dell oder HP
Frage von VincorSAN, NAS, DAS13 Kommentare

Hallo, wir wollen uns für unsere Hyper V Umgebung eine neue SAN Anschaffen. Es laufen 30 VM's darunter, DC; ...

Vmware
Server 2008 r2 vmware terminalserver
Frage von MasterCVmware10 Kommentare

Guten Abend zusammen, ich hoffe , dass einer von euch mir weiterhelfen kann ,bei meinem kack Problem ! Ist ...