Office: Leerzeilen löschen ???

Hallo und liebe Grüße an die Forummitglieder!

Ich habe ein kleines Problem mit Excel:

In einer Mappe habe ich in zwei Spalten Zahlen (1. Spalte = Vorwahl und 2. Spalte = Telefonnummer).

Wenn ich diese zwei Spalten in eine normale TXT-Datei exportiere, habe ich das Problem, dass zwischen der Vorwahl, d.h. 1. Spalte und der Telefonnummer, d.h. 2. Spalte Leerzeilen bestehen.

Ich möchte aber, dass Vorwahl und Telefonnummer aneinander gehängt werden und zwar ohne Leerzeilen, z.B.

Falsch:


Spalte A Spalte B
Vorwahl Tel.Nr.
07177 8838383
07144 45454554
0711 4545454

Richtig:

071778838383
0714445454545

etc.

Kann mir da jemand helfen???

MfG

Kakar

 

Hallo Kakar,

das kannst du entweder manuell unterbinden, oder aber mit einem kleinen Makro - teste das Makro bitte an einer Testdatei.

Code:

Option Explicit

Sub test()
Dim rngZelle As Range
 Application.ScreenUpdating = False
 For Each rngZelle In Range("C1:C100") 'Bereich anpassen...
    rngZelle.Value = rngZelle.Offset(0, -2).Value & rngZelle.Offset(0, -1).Value
 Next rngZelle
 Range("A:B").Delete
 Application.ScreenUpdating = True
End Sub

Formellösung:
in C1 zum runterkopieren:

Code:

=A1&B1

Dann die Spalte C kopieren und mit Einfügen-->Inhalte Einfügen-->zu reinen Textwerten umwandeln. Danach Spalte A und B löschen. Das ist genau das, was der obige Code macht.