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

Frage Microsoft Microsoft Office

GELÖST

Daten aus Excel-Matrix herauslesen

Mitglied: lea1987

lea1987 (Level 1) - Jetzt verbinden

12.02.2010, aktualisiert 15:56 Uhr, 6179 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 ...

VB for Applications
Excel VBA Sortierung von Daten
Frage von easy4breezyVB for Applications5 Kommentare

Hallo, ich muss in Excel Daten anhand der PLZ sortieren, vielleicht könnt ihr mir da helfen. Es müsste alles ...

Microsoft Office
Excel Daten aus Registerblatt übernehmen
Frage von BackgammonMicrosoft Office1 Kommentar

Hallo, habe wiedereinmal eine Frage zu Excel: Ich lege eine Datei mit 52 Registerblättern an. Ich muss jeweils Daten ...

Neue Wissensbeiträge
Router & Routing

PfSense als Addon auf QNAP

Information von magicteddy vor 4 StundenRouter & Routing1 Kommentar

Moin, für Spielereien eine ganz nette Idee aber ich fürchte das soetwas auch als echte Firewall genutzt wird: In ...

Datenschutz

Teamviewer kommt für IoT-Geräte wie den Raspberry Pi

Information von magicteddy vor 11 StundenDatenschutz

Moin, jetzt werden IoT Geräte endgültig zur Wanze? Anscheinend kann man auf einem Dashboard seine Geräte visualisieren Ich stelle ...

Microsoft

Letzte Updates für Win10 und Server2016 müssen bei Bedarf über den Update catalogue in den WSUS importiert werden!

Tipp von DerWoWusste vor 16 StundenMicrosoft1 Kommentar

automatisch kommt da nichts an im WSUS und auch nicht im SCCM. Siehe Hinweise zum Bezug der jeweils neuesten ...

Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 3 TagenLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Preis für Wartungsvertrag ok?
gelöst Frage von a-za-zNetzwerkmanagement22 Kommentare

Hallo! Mal ne Frage, weil ich mich mit dem akzeptablen Preis für einen Reaktionszeitvertrag nicht auskenne. Meine Firma hat ...

Windows Netzwerk
Ist ein Portforwarding auf einen PC ohne lauschendes Programm ein (großes) Sicherheitsproblem?
Frage von PluwimWindows Netzwerk13 Kommentare

Hallo zusammen, zur Fernwartung eines Rechners an einem anderen Ort nutze ich VNC. Da dieser Rechner einfach nur eine ...

Windows Server
Terminal Server 2016 erkennt Berechtigungen nicht
gelöst Frage von Thomas2Windows Server10 Kommentare

Hallo Administratoren, folgendes Problem stellt sich dar: Es gibt zwei Windows Server 2016, die als Terminal Server fungieren. Jetzt ...

Sonstige Systeme
7-zip: Programm frägt nach Passwort erst bei einzelnen Dateien
Frage von freeskierchrisSonstige Systeme7 Kommentare

Guten Morgen, ich habe ein Problem beim Arbeiten mit 7-zip: Wenn ich die einzelnen Dateien zu einem Archiv verpacke ...