AW: Erstelle eine Datenbank über die Bewerber
03.08.2009 14:40:08
Daniel
Hi
wenn du deine Chefin wirklich beeindrucken willst, dann erstellst du ihr eine kleine Exceldatenbank mit den wichtigsten Informationen aus den Bewergungsmappen, dann kann sie in dieser Datenbank bequem und nach belieben suchen, sortiern, filtern auswerten usw.
außerdem brauchst du dafür nur ein kleines Makro, daß die Bewerberdateien einmalig öffnet und die wichtigen Daten in eine gemeinsame Tabelle überträgt.
Dieses Makro läuft vielleicht für ein paar Minuten durch, aber dafür habt ihr dann auch ne Datenbank, mit der ihr arbeiten könnt.
das würde z.b. Dieses Makro machen, zusätzlich wird ein Hyperlink zu der entsprechenden Mappe erstellt, so daß diese auf klick aus der Datenbank geöffnet werden kann.
die Excelmappen mit den Bewerbungsunterlagen müssen alle in einem Verszeichnis stehen, es sollten keine anderen Exceldateien in diesem Verzeichnis vorhanden sein (mit ausnahme der Datenbank selbst)
Sub Datenbank_erstellen()
Const Pfad = "C:\Dein Pfad zu den Bewerbungsdateien" 'Pfad anpassen
Dim Datei As String
Dim Zeile As Long
Dim Zähler As Long
Dim shDatenbank As Worksheet
Dim wbBewerbung As Workbook
Dim shBewerbung As Worksheet
'Erste Bewerberdatei suchen
Set shDatenbank = ThisWorkbook.Sheets(1)
Datei = Dir(Pfad & "*.xls")
Application.ScreenUpdating = False
Do Until Datei = ""
If Datei ThisWorkbook.Name Then
'Anzeig in Statusbar
Zähler = Zähler + 1
Application.StatusBar = "Einlesen Bewerbung Nr: " & Zähler
'Bewerberungsdatei öffnen
Set wbBewerbung = Workbooks.Open(Filename:=Pfad & Datei, ReadOnly:=True)
Set shBewerbung = wbBewerbung.Sheets(1)
'Daten übertragen
Zeile = shDatenbank.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
shDatenbank.Cells(Zeile, 1) = shBewerbung.Cells(1, 1)
shDatenbank.Cells(Zeile, 2) = shBewerbung.Cells(1, 2)
shDatenbank.Cells(Zeile, 3) = shBewerbung.Cells(3, 5)
'... Hier weitere Zeilen eintragen
'Hyperlink zur Bewerberdatei einfügen
shDatenbank.Hyperlinks.Add Anchor:=shDatenbank.Cells(Zeile, 4), _
Address:=wbBewerbung.FullName, TextToDisplay:=wbBewerbung.Name
'Bewerberdatei schließen
wbBewerbung.Saved = True
wbBewerbung.Close
'nächste Bewerberdatei öffnen
Datei = Dir()
End If
Loop
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub
Gruß, Daniel