Hallo Excel Profis,
bitte um Hilfe - ich möchte die Daten von http://wko.at/markthandel/verzeichnis/noe.html
in eine Excel Liste ausgeben, die ich dann ausdrucken kann.
das Datum soll dabei zusätzlich als Tag ( Mo, Die, … angezeigt werden, und wenn in Klammer angegebenen Zusatzinfos in dazugehöriger Zeile in einer Spalte - siehe unten.
es soll dann in etwa so aussehen:
TAG Dat. ORT in bei Art
Die 01.04. Haugsdorf Hollabrunn Jahrmarkt
Mi 02.04. Pölla (i. Neupölla) Zwettl Jahrmarkt
usw.
Hallo,
bitte um Hilfe - ich möchte die Daten von
http://wko.at/markthandel/verzeichnis/noe.html
in eine Excel Liste ausgeben, die ich dann ausdrucken kann.
das Datum soll dabei zusätzlich als Tag ( Mo, Die, …
angezeigt werden, und wenn in Klammer angegebenen Zusatzinfos
in dazugehöriger Zeile in einer Spalte - siehe unten.es soll dann in etwa so aussehen:
TAG Dat. ORT in bei Art
Die 01.04. Haugsdorf Hollabrunn Jahrmarkt
Mi 02.04. Pölla (i. Neupölla) Zwettl
Jahrmarkt
usw.
Hast du schon ein wenig probiert?
Zum Beispiel:
->Daten, Externe Daten importieren, Neue Webabfrage,
Adresse eingeben, auf Start klicken, dann auf importieren, Eigenschaften anklicken und Gewünschtes auswählen (zum Beispiel wann die Daten aktualisiert werden sollen - nur beim Öffnen der Datei oder …), auf OK, dann Zieladresse eingeben oder die vorgeschlagene akzeptieren und auf OK klicken.
Jetzt die Tabelle so bearbeiten, wie sie fertig aussehen soll (z. B. die Datumsspalte formatieren in benutzerdefiniert: „TTT tt.mm.“ usw.)
Wenn du zufrieden bist, wieder ->Daten, Externe Daten importieren, diesmal Abfrage bearbeiten wählen, Optionen klicken, bei Formatierung die Option „keine“ wählen, das andere kann bleiben, OK klicken,
dann auf die Diskette neben Optionen klicken und Abfrage speichern, und nicht vergessen, auch die Datei speichern.
Probier einfach verschiedenes aus, wenn du dann etwas nicht passend bekommst, dann meld dich noch mal.
Gruß
Marion
Hallo Marion,
danke für schnelle Antwort,
sitze gerade dabei, und ein bischen hats auch geklappt,
jetzt habe ich noch ein Problem:
wie bekomme ich die in Klammer angegebene Zusatz Info in eine Spalte daneben, was muß ich da eingeben, = wenn ???
Di 01.04. Haugsdorf
Hallo,
sollen die Links aktiv bleiben?
Gruß
Marion
Hi,
Hallo,
folgender Vorschlag (nicht ganz genau so wie du es haben möchtest)
keine Links
Öffne die gespeicherte Datei,
->Extras, Optionen, Ansicht
den Haken im Abschnitt Fensteroptionen bei Gitternetzlinien entfernen.
Fenster schließen.
Markiere in der Datei die Zellen A2:smiley:2
->Format, bedingte Formatierung,
folgende Einstellungen/Eintragungen:
Bedingung 1
Formel ist =ZELLE("inhalt";$C2)0
auf den Button „Format“ klicken, ->Register Rahmen
einen Rahmen für oben, links und rechts wählen,
keinen Rahmen für die untere Begrenzung wählen
(das ist immer die Hauptzeile, du kannst auch eine z. B. Schrift fett einstellen)
mit OK schließen
auf den Button "Hinzufügen klicken
folgende Einstellungen/Eintragungen:
Bedingung 2
Formel ist =ZELLE("inhalt";$C2)=0
über „Format“ für die linke und die rechte Begrenzung einen Rahmen wählen
keinen Rahmen für die obere und untere Begrenzung wählen
(das ist die Zeile, die die Zusatztexte in Klammern enthält, du kannst hier eine abweichende nicht so auffälige Schriftformatierung wählen, z. B. kursiv oder Standard wählen)
mit OK schließen
das Dialogfeld „Bedingte Formatierung“ mit OK schließen.
auf den Pinsel klicken (A2:smiley:2 sollten noch markiert sein, wenn nicht markieren)
mit dem Pinsel das Format auf den Bereich A3:smiley:400 (schätze mal) übertragen
bei Gefallen zwischenspeichern (sonst noch mal von vorn) 
->Daten, externe Daten importieren, Datenbereichseigenschaften (wenn das nicht auswählbar ist, erst in die Tabelle klicken)
bei Zellformatierung den Haken setzen (alles andere nach Belieben wählen)
Fenster mit OK schließen
->Daten, externe Daten importieren, Abfrage bearbeiten
mind. auf das 2. gelbe Kästchen für den Datenbereich klicken (das Kästchen wird grün und der Pfeil zum Haken)
auf Optionen klicken
im Abschnitt Formatierung die Option „keine“ wählen
mit OK schließen
die Abfrage speichern (die Diskette in dem Fenster neben „Optionen“)
auf Importieren klicken
Die Datei speichern
Die Datei sollte jetzt nach Öffnen, Aktualisieren, Hintergrundabfrage (abhängig von deinen Einstellungen)
immer das gleiche Aussehen haben.
Die Einträge in Spalte 2 sind zum Teil zweizeilig, sollten aber durch die Formatierung gut voneinander abgegrenzt sein.
Vielleicht gefällt dir das ja schon.
Ansonsten
Die zweizeiligen Einträge können auch entweder mit vba (wenns erlaubt ist) oder mit Formeln in einzeilige Einträge gewandelt werden (dann ist ein zweites Tabellenblatt notwendig und es entstehen Leerzeilen, die entweder manuell ausgeblendet oder gelöscht werden müssen oder auch wieder per vba entfernt werden können)
Ich möchte dich ausdrücklich zum Experimentieren und ausprobieren ermuntern gerade in Bezug auf Daten importieren.
LG und viel Erfolg
Marion
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo,
ich hab deine E-Mail erhalten. Ich möchte dich bitten, keine
Mails auf Postings an mich persönlich zu schicken.
Du hast hier die Aufgabe gestellt, und man weiß nie, wieviele
User sich mit dem Thema bereits beschäftigen/beschäftigt
haben. Der Fortgang ist sicher für ein paar andere auch
interssant, da man auch durch Lesen hier im Brett sehr viel
lernen kann.
Nun zur Aufgabe
Also wenn alles wie vorgegeben in einer Zeile stehen soll,
erstelle die Abfrage wie bereits beschrieben. Daten ohne
Formatierung importieren, Datenbereichseigenschaften:
keinerlei Aktualisierungen einstellen, alles andere wie
bereits beschrieben. Abfrage speichern
Lade die Daten in Tabelle 1 deiner Datei. Bedingte
Formatierungen sind nun nicht notwendig.
Kopiere folgende Formeln in Tabelle 2:
Zelle Formel
A2 =Tabelle1!$A2
B2 =Tabelle1!$B2
C2 =WENN(Tabelle1!$C3="";$B3;"")
D2 =Tabelle1!$C2
E2 =Tabelle1!$D2
A3 =WENN(Tabelle1!$C3="";"";WENN(Tabelle1!$A3="";"";Tabelle1!$A3))
B3 =WENN(Tabelle1!$C3="";"";Tabelle1!$B3)
C3 =WENN(Tabelle1!$C4="";Tabelle1!$B4;WENN(Tabelle1!$C3="";Tabelle1!$C3;""))
D3 =WENN(Tabelle1!$C3="";"";Tabelle1!$C3)
E3 =WENN(Tabelle1!$C3="";"";Tabelle1!$D3)
A4 =WENN(Tabelle1!$C4="";"";WENN(Tabelle1!$A4="";"";Tabelle1!$A4))
B4 =WENN(Tabelle1!$C4="";"";Tabelle1!$B4)
C4 =WENN(Tabelle1!$C5="";Tabelle1!$B5;WENN(Tabelle1!$C4="";" ";""))
D4 =WENN(Tabelle1!$C4="";"";Tabelle1!$C4)
E4 =WENN(Tabelle1!$C4="";"";Tabelle1!$D4)
A4:E4 markieren und entsprechend weit nach unten ausfüllen (ca. 400
Zeilen)
Datei speichern
Nun kannst du für das Löschen der Leerzeilen ein Makro
aufzeichnen. Schau mal in die FAQ, glaub da steht ein Beitrag
dazu. Nach dem Starten der Aufzeichnung kannst du die Tabelle
in „Tabelle 2“ markieren, kopieren und mit „Inhalte einfügen“
(„Leerzeilen überspringen“ - diese Option auswählen) in
Tabelle 3 einfügen. Makroaufzeichnung beenden. Probier mal als
Jetzt noch einen Button in dem Blatt „Tabelle 3“ erstellen,
und das Makro zuweisen, dann kannst du die Tabellenblätter
„Tabelle 1“ und „Tabelle 2“ ausblenden, so dass nur die
Endtabelle zu sehen ist.
Bevor du die Daten dann in der Tabelle verwendest, solltest du
immer dein Makro ablaufen lassen, damit dann aktuelle Daten
angezeigt werden.
Bin mir sicher, dass du das hinkriegst, ist nicht schwer - nur schön der Reihe nach.
LG Marion