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 Daten aus Excel-Matrix herauslesen

Mitglied: lea1987

lea1987 (Level 1) - Jetzt verbinden

12.02.2010, aktualisiert 15:56 Uhr, 6187 Aufrufe, 3 Kommentare

Guten Tag, ich bin Lea und neue hier im Forum, ich hoffe ihr könnt mir etwas weiterhelfen. ;)

Ich habe eine Excel Matrix, die in den ersten zwei Zeilen etwa so aufgebaut ist.

Land (insgesamt: 22 Länder): Deutschland, Schweiz, Österreich
Stadt (insgesamt 272 Städte): Bremen, Hamburg, Zürich, Genf, Wien, Graz, Linz

eindeutig zugeordnet ist dies immer. beispielsweise C1 Deutschland, C2 Hamburg; F1 England, F2 London

In den Spalten habe ich von A3 an eine fortlaufende Nummerierung (1-213) und von B3 an 216 Personennamen.

Jetzt habe ich in der Tabelle die Verbindungen mit Zahlen hinterlegt.
Beispiele

A4 : 2; B4: lea1987 - C1 Deutschland, C2 Hamburg und die Verbindung ist C4: Heimatort
A4 : 2; B4: lea1987 - D1 Deutschland, D2 Bremen und die Verbindung ist D4: LEER
A10: 8;B10: Max Mustermann - C1 Deutschland, C2 Hamburg und die Verbindung ist C10: Wohnort

für die Verbindungen gibt es 5 Optionen: Heimatort, Wohnort, Studienort, Ruhestand und ein leeres Feld.

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


Nun möchte ich diese Daten so herauslesen, dass ich sie in eine Datenbank importieren kann. Sie sollen in diese definierten Felder

A1: ID; B1: NAME; C1: LAND; D1: STADT E1: VERBINDUNG

Am Ende dürfte ich 800 Zeilen haben, da ich 800 Verbindungen habe.

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

So, das war mein Problem geschildert. ;) Nun meine Frage: Kann ich das irgendwie programmieren, dass sich das automatisch herauszieht und ich nicht alles einzeln eingeben muss? Das würde nämlich Tage dauern bei den 800 Verbindungen. ((
Ich bin nicht so gut, was Makros oder VisualBasic angeht, bringe es mir aber gerne bei, wenn ich mal n Anfang hab.
Es wär total super, wenn mir jemand hier weiterhelfen könnte.

Tausend Danke euch schon Mal
Die LEA
Mitglied: bastla
12.02.2010 um 17:03 Uhr
Hallo lea1987!

Das sollte sich mit folgendem VBA-Script lösen lassen:
01.
Sub MakeList() 
02.
TQuelle = "Quelle" 'Name Quelltabelle 
03.
ZQuelle = 3 'Erste Zeile für Daten der Verbindungen 
04.
SQuelle = 3 'Nummer der ersten Spalte für Daten der Verbindungen 
05.
 
06.
TZiel = "Ziel" 'Name Zieltabelle 
07.
ZZiel = 2 'Erste Zeile für Datensätze 
08.
SZiel = 1 'Nummer der ersten Spalte für Datensätze 
09.
 
10.
ZZ = ZZiel 
11.
ZQ = ZQuelle 
12.
MaxS = SQuelle 
13.
 
14.
With Worksheets(TQuelle) 
15.
 
16.
    'Letzte Spalte mit Daten ermitteln 
17.
    Do While .Cells(ZQuelle - 2, MaxS + 1) <> "" 
18.
        MaxS = MaxS + 1 
19.
    Loop 
20.
 
21.
    Do While .Cells(ZQ, SQuelle - 2) <> "" 'alle Zeilen mit einer ID durchgehen 
22.
        For i = SQuelle To MaxS 'alle infrage kommenden Spalten prüfen 
23.
            If .Cells(ZQ, i) <> "" Then 
24.
                Worksheets(TZiel).Cells(ZZ, SZiel) = .Cells(ZQ, SQuelle - 2) 'Eintrag ID 
25.
                Worksheets(TZiel).Cells(ZZ, SZiel + 1) = .Cells(ZQ, SQuelle - 1) 'Eintrag Name 
26.
                Worksheets(TZiel).Cells(ZZ, SZiel + 2) = .Cells(ZQuelle - 2, i) 'Eintrag Land 
27.
                Worksheets(TZiel).Cells(ZZ, SZiel + 3) = .Cells(ZQuelle - 1, i) 'Eintrag Stadt 
28.
                Worksheets(TZiel).Cells(ZZ, SZiel + 4) = .Cells(ZQ, i) 'Eintrag Verbindung 
29.
                ZZ = ZZ + 1 
30.
            End If 
31.
        Next 
32.
        ZQ = ZQ + 1 
33.
    Loop 
34.
 
35.
End With 
36.
End Sub
"SQuelle" und "ZQuelle" geben die Adresse der ersten Zelle (in Deinem Beispiel "C3") an, in welcher "Verbindungs"-Daten enthalten sein können, wobei die Anzahl der unmittelbar oberhalb bzw links angeordneten "Beschriftungs"-Zeilen und -Spalten mit jeweils 2 fest vorgegeben ist.

Grüße
bastla
Bitte warten ..
Mitglied: lea1987
12.02.2010 um 17:49 Uhr
Hallo Bastla,

das ist total super! Ich probier es am Wochenende aus und melde mich dann mit nem Feedback ;)

Vielen, vielen herzlichen Dank!

Die Lea
Bitte warten ..
Mitglied: lea1987
15.02.2010 um 10:55 Uhr
Hat funktioniert!! Tausend Dank für die nette Hilfe!
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

EXCEL 2013: Mit Hilfe der Daten einer Spalte (Matrix) Daten aus einer anderen Tabelle herkopieren

Frage von CADastropheMicrosoft Office

Hallo zusammen, ich habe eine solche diffizile Frage, ich glaube das geht gar nicht. Bisher mussten die Fahrtenbücher unseres ...

Microsoft Office

Excel 2010: Matrix in Liste zurück umwandeln

gelöst Frage von AdminKnechtMicrosoft Office4 Kommentare

Hallo, ich habe hier ein kleines Excel-Problem, und zwar will ich aus einer Matrix (zweidimensional) wieder eine eindimensionale Liste ...

Microsoft Office

Formular Daten in Excel importieren

gelöst Frage von hausensMicrosoft Office16 Kommentare

Guten Morgen, Ich steh vor einem Problem bei dem ich nicht weiterkomme, Hoffe jemand von euch kann mir dabei ...

Microsoft Office

Excel: Problem mit Daten

Frage von YanmaiMicrosoft Office1 Kommentar

Hallo ihr Administratoren, ich habe ein Problem beim Organisieren meiner Finanzen mit Excel. Hier ist erstmal ein Bild des ...

Neue Wissensbeiträge
CMS
Erneut kritische Zero-Day-Lücke in Drupal
Tipp von Reini82 vor 4 StundenCMS

Laut einem Bericht auf t3n gibt es eine Schwere Sicherheitslücke in Drupal die auch schon ausgenutzt wird. Betroffen sind ...

Sicherheit

MikroTik-Router patchen, Schwachstelle wird ausgenutzt

Information von kgborn vor 1 TagSicherheit

Am 23. April 2018 wurde von Mikrotik ein Security Advisory herausgegeben, welches auf eine Schwachstelle im RouterOS hinwies. Mikrotik ...

Windows 10

Microcode-Updates KB4090007, KB4091663, KB4091664, KB4091666 für Windows 10

Information von kgborn vor 1 TagWindows 101 Kommentar

Kurze Information für Administratoren von Windows 10-Systemen, die mit neueren Intel CPUs laufen. Microsoft hat zum 23. April 2018 ...

iOS
Updates für Iphone und Co
Information von sabines vor 1 TagiOS

Gestern abend ist iOS 11.3.1 erschienen, ein kleineres Update, dass einige Lücken schließt und "Lahmlegen" nach einem Display Tausch ...

Heiß diskutierte Inhalte
Windows Server
Alten DC entfernen
gelöst Frage von smartinoWindows Server27 Kommentare

Hallo zusammen, ich habe hier eine Umgebung übernommen und erstmal einen DCDIAG gemacht. Dabei fällt auf, daß eine ganze ...

Ausbildung
Wie gelingt ein guter Einstieg in die FiSi-Ausbildung? (Umschulung)
Frage von SiAnKoAusbildung26 Kommentare

Schönen guten Tag, ich bin SiAnKo und habe seit dem 1.04.2018 eine Umschulung als FiSi angefangen. Ich möchte natürlich ...

Batch & Shell
Mit Powershell den Inhalt einer Excel mit einer Text Datei abgleichen
gelöst Frage von Bommi1961Batch & Shell21 Kommentare

Hallo zusammen, ich muss den Inhalt einer Excel Datei (Mappe1) mit dem Daten einer Text Datei abgleichen. Die Daten ...

Windows 10
Unter Windows 10 Home 64Bit (1709) kommt Fehler beim Aufruf von verschiedenen Systemprogrammen wie z.B. Gerätemanager
Frage von bitshopWindows 1017 Kommentare

Hallo, beim meinem Onkel haben wir seit längerem das Problem, dass z.B. beim Aufruf des Gerätemanagers eine Fehlermeldung kommt ...