Zusammenfüge Datenbank

Heiko · 2008-07-13T17:36:13+00:00

Hallo alle zusammen, bin in Excel nicht so bewandert und bite mal um eure Hilfe. Ich habe zwei Exceltabellen. Den Inhalt aus beiden Tabellen möchte ich in einer Tabelle vereinen. In Tabelle 1 stehen die Kundenadressen Spalte 1: Kundennummer D00001 bis D003454 Spalte 2: Name Spalte 3: Strasse Spalte 4: PLZ Spalte 5: Ort Spalte 6: Telefon Spalte 7: Fax Spalte 8: Ansprechpartner In Tabelle 2 stehen die Zusatzinformationen Spalte 1: Kundennummer D00001 bis D003454 Spalte 2: email Jetzt möchte ich z.B in Tabelle 1 der Kundennummer D001234 die entsprechende email aus Tabelle 2 (unter Kundennummer D001234) zuordnen. Die Schwierigkeit ist wenn ein Kunde keine email angegeben hat gibt es in Tabelle 2 auch keinen Eintrag. Das heißt Tabelle 2 ist nicht durchnummeriert von D00001 bis D003454, sondern nach D001000 kommt z.B D001005. Was kann man hier machen? Über eine Hilfestellung wäre ich euch sehr dankbar. Viele Grüße

Hi
normalerweise macht man sowas mit der SVERWEIS-Funktion (Formel in Spalte p in Tabelle1)


= Sverweis(A1;Tabelle2!$A:$B;2;0)

diese Formel ergibt für Kunden-Nummern, die in Tabelle2 nicht vorhanden sind, allerding einen #NV-Fehler.
wenn dieser stört, muss man die Formel wiefolgt abändern:


=wenn(istfehler(Sverweis(A1;Tabelle2!$A:$B;2;0));"Keine E-Mail";Sverweis(A1;Tabelle2!$A:$B;2;0))

allerdings ist diese SVERWEIS-Variante in grossen Datenbanken recht langsam.
die 2. Variante ist deutlich schneller, setzt allerdings zwingend voraus, daß Tabelle2 nach der Kunden-Nr aufsteigend sortiert ist:


=wenn(SVerweis(A1;Tabelle2!$A:$A;1;1)=A1;SVerweis(A1;Tabelle2!$A:$B;2;0);"keine E-Mail")

hier muss auch zwingen die Prüfung auf vorhanden sein erfolgen, da im Gegensatz zur ersten Variante keine Fehlermeldung beim Fehlen des Suchwertes erfolgt.
Gruß Daniel

Hi Heiko,
aus dem Internet gefischt, irgendein Sascha postete mal die nachfolgende Funktion. RTF ist wohl das aus Word bekannte Rich Text Format für Texte. Unterlagen über den Aufbau von RTF-Dateien habe ich nicht.
Du hast in D2 stehen:
{\rtf1\ansi\deff0\deflang1031{\fonttbl{\f0\fswiss\fprq2 Arial;}{\f1\fswiss\fprq2\fcharset0 Arial;}}
\viewkind4\uc1\pard\f0\fs18 Vierbeinhocker aus Rundstahlrohr \f1 nach RAL pulverbeschichtet\f0
\par \f1 Sitzfl\'e4che aus mehrschichtverleimten Buchespe
=RTF2TEXT(D2) macht daraus:
Vierbeinhocker aus Rundstahlrohr nach RAL pulverbeschichtet Sitzflä
Schon mal ein Anfang, Frage noch offen.


Option Explicit
'Option Compare Database
'Konvertiert einen RTF-Text in Plain Text
'Funktioniert nur bei einfacheren RTF-Dokumenten
'(Schwierigkeiten gibt es bei eigefügten Bildern und bei Aufzählungen und Tabellen)
Public Function RTF2TEXT(strRTF As String) As String
Dim S As String, TX As String
Dim n As Long, m As Long, nPar As Long, flg As Boolean
On Error GoTo Fehler
If Len(strRTF) = 0 Then Exit Function
n = 1
For n = 1 To Len(strRTF)
If Mid(strRTF, n, 1) = "{" Then nPar = nPar + 1
If Mid(strRTF, n, 1) = "}" Then nPar = nPar - 1
If nPar = 2 Then flg = True
If flg And nPar = 1 Then Exit For
Next n
n = n + 1
Do
Do While Asc(Mid(strRTF, n, 1))  0) Or _
(Mid(strRTF, m - 4, 4) = "cell") Then TX = TX & Chr(9)
Jump2:
n = InStr(m + 1, strRTF, "\", vbTextCompare)
If n = 0 Then Exit Do
If Mid(strRTF, m + 1, 1) = "{" Then
n = 1 + InStr(m + 1, strRTF, "}", vbTextCompare)
m = n - 1
GoTo Jump2
End If
TX = TX & Mid(strRTF, m + 1, n - m - 1)
If Mid(strRTF, n + 1, 1) = "'" Then
TX = TX & Chr(Val("&h" & Mid(strRTF, n + 2, 2)))
m = n + 3
GoTo Jump2
End If
If Mid(strRTF, n + 1, 3) = "tab" Then
TX = TX & Chr(9)
n = n + 3
GoTo Jump1
End If
Loop
Ende:
RTF2TEXT = TX
Exit Function
Fehler:
MsgBox Err.Description
Resume Ende
End Function

Gruß
Reinhard

Forumthread: Zusammenfüge Datenbank

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Zusammenfüge Datenbank

Forumthread: Zusammenfüge Datenbank

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread