Liste für Telefonanlage automatiach zusammenführen

Computer: Software & Programmierung Office Software
1

Hallo Experten,

ich hoffe mal, daß ihr für mein Problem eine einfach automatische Lösung habt, denn sonst wird hier jemand in der nächsten Zeit viel Arbeit haben.

Also, ich habe zwei Excel Listen einmal die exportierte aus der Telefonanlage (in einer Spalte die Namen in der nächsten die Telefonnummern) und eine Liste mit unseren Kunden aus dem Warenwirtschaftssystem in folgendem Format: 012;;Dial=;
Gefüllt müsste es dann so aussehen: 105;Kunde;Dial=031546588771;

Kennt da einer eine Möglichkeit?

Und kann man bei Telefonnummern wie 02564/37165 oder 72 76 84 die Sonder- und Leerzeichen automatisch verschwinden lassen?

2

Also, ich habe zwei Excel Listen einmal die exportierte aus
der Telefonanlage (in einer Spalte die Namen in der nächsten
die Telefonnummern) und eine Liste mit unseren Kunden aus dem
Warenwirtschaftssystem in folgendem Format: 012;;Dial=;
Gefüllt müsste es dann so aussehen:
105;Kunde;Dial=031546588771;

Und kann man bei Telefonnummern wie 02564/37165 oder 72 76 84
die Sonder- und Leerzeichen automatisch verschwinden lassen?

Ja.

Hi Marco,

 A B
1 012;;Dial=; =WECHSELN(WECHSELN(A1;"012";"105");";;";";Kunde;")&"031546588771;"
2 02564/37165 =WECHSELN(WECHSELN(A2;"/";"");" ";"")
3 72 76 84 =WECHSELN(WECHSELN(A3;"/";"");" ";"")
4

Wenn dir B2 nicht so ganz gefällt, könnte dies möglicherweise mit deiner Informationsflut in der Anfrage zu tun haben :smile:
Vielleicht kannst du das nochmal anders formulieren.

Gruß
Reinhard

3

Hier noch mal genauer erklärt - ???
Danke für die schnelle Antwort - klar hier noch mal ausführlich

Ich habe eine Tabelle mit ca. 500 Kunden und zugehörigen Telefonnummern. Diese muß ich in ein für die Telefonanlage lesbares Format bringen also von:

------------A------------------B----------------
1 Anton Becker---------02564/37548
2 Fritz Göring-----------02567/356-54
3 Hermann Name-------0174 / 7411203

nach:
------------------A---------------------------------------B------------
1 001;Anton Becker;Dial=0256437548;
2 002;Fritz Göring;Dial=0256735654;
3 003;Hermann Name;Dial=01747411203;

Das alles sollte irgendwie mit einer Automatik gehen, das heisst ich möchte nicht in jeder Zeile eine Formel eingeben. Denn sonst könnte ich die Telefonnummern auch von Hand in die Telefonsoftware einpflegen.

4

Danke für die schnelle Antwort - klar hier noch mal
ausführlich

Ich habe eine Tabelle mit ca. 500 Kunden und zugehörigen
Telefonnummern. Diese muß ich in ein für die Telefonanlage
lesbares Format bringen also von:

------------A------------------B----------------
1 Anton Becker---------02564/37548
2 Fritz Göring-----------02567/356-54
3 Hermann Name-------0174 / 7411203

nach:
------------------A---------------------------------------B------------
1 001;Anton Becker;Dial=0256437548;
2 002;Fritz Göring;Dial=0256735654;
3 003;Hermann Name;Dial=01747411203;

Hallo Marco

ganz automatisch wir wohl nicht gehen aber ein bischen Arbeit kann ich dir schon sparen.

  1. hat deine Liste wiklich keine feste Spaltenbreite? Dafür gibt es nämlich Format, Text in Spalten. Kannst du hier zur Not auch nehmen gibt aber noch etwas nacharbeit (Wechseln „-“ durch leer)
  2. Deine erste Spalte könnest du mit einem geeignenten Format-Befel (führende Nullen) umwandeln
  3. Die Leerzeichen kannst du mit der Funktion Glätten entfernen und Wechseln (also den „/“ durch leer) steht ja schon im beitrag von Reinhard
  4. =verketten(„Dial=“;%ergbnis aus 3%) sollte auch helfen
  5. die Strichpunkte bekommst du wenn du das ganze als csv-Datei Speicherst

Gruss
Nils

Das alles sollte irgendwie mit einer Automatik gehen, das
heisst ich möchte nicht in jeder Zeile eine Formel eingeben.
Denn sonst könnte ich die Telefonnummern auch von Hand in die
Telefonsoftware einpflegen.

5

ich hoffe mal, daß ihr für mein Problem eine einfach
automatische Lösung habt, denn sonst wird hier jemand in der
nächsten Zeit viel Arbeit haben.

Also, ich habe zwei Excel Listen einmal die exportierte aus
der Telefonanlage (in einer Spalte die Namen in der nächsten
die Telefonnummern) und eine Liste mit unseren Kunden aus dem
Warenwirtschaftssystem in folgendem Format: 012;;Dial=;
Gefüllt müsste es dann so aussehen:
105;Kunde;Dial=031546588771;

Und kann man bei Telefonnummern wie 02564/37165 oder 72 76 84
die Sonder- und Leerzeichen automatisch verschwinden lassen?

Hi Marco,

aus dieser Tabelle in Tabelle1:

Anton Becker 02564/37548
Fritz Göring 02567/356-54
Hermann Name 0174 / 7411203

wird dann diese Tabelle im automatisch neu angelegten Blatt „Export“

001;Anton Becker;0256437548;
002;Fritz Göring;0256735654;
003;Hermann Name;01747411203;

wenn du diese Makro ablaufen läßt:

Option Explicit
Option Base 1
'
Sub Bereinigen()
Dim Zei As Long, N As Long, NN As Integer, Kurz As String, Bereich
Const T = ";"
For N = ThisWorkbook.Worksheets.Count To 1 Step -1
 If Worksheets(N).Name = "Export" Then
 Application.DisplayAlerts = False
 Worksheets(N).Delete
 Application.DisplayAlerts = True
 Exit For
 End If
Next N
Tabelle1.Activate
Bereich = Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row)
ReDim Kopie(UBound(Bereich), 1)
For N = 1 To UBound(Bereich)
 Bereich(N, 1) = Trim(Bereich(N, 1))
 Kurz = ""
 For NN = 1 To Len(Bereich(N, 2))
 If IsNumeric(Mid(Bereich(N, 2), NN, 1)) Then Kurz = Kurz & Mid(Bereich(N, 2), NN, 1)
 Next NN
 Bereich(N, 2) = Kurz
 Kopie(N, 1) = Right("000" & N, 3) & T & Bereich(N, 1) & T & Bereich(N, 2) & T
Next N
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Export"
Range("A1:A" & UBound(Bereich)) = Kopie
Columns(1).AutoFit
End Sub

Gruß
Reinhard