title image


Smiley Re: 2 Zellen verbinden, so geht das nicht.......?
Hallo Jürgen,reicht es nicht, wenn Du die Formel in die erste Zelle eingibst und dann einfach nach unten kopierst?Als Alternative hier ein Makro, bei dem Du einfach oben die Werte austauschen mußt:Sub zusammenführen()Dim s1%, s2%, s3%Dim z!, z1!, z2!'Hier die Änderungen vornehmen:---------------------------------------------------s1 = 1 'Erste Spalte mit zusammenzuführenden Daten (hier A)s2 = 2 'Zweite Spalte mit zusammenzuführenden Daten (hier B)s3 = 3 'Spalte, in der die zusammengeführten Daten erscheinen sollen (hier C)z1 = 1 'Erste Zeile mit Datenz2 = 800 'Letzte Zeile mit Daten'---------------------------------------------------------------------------------Application.ScreenUpdating = FalseFor z = z1 To z2 Application.StatusBar = "Bin bei Zeile " & z Cells(z, s3) = Cells(z, s1) & Cells(z, s2)NextApplication.StatusBar = FalseApplication.ScreenUpdating = TrueEnd SubNachteil: Das Makro arbeitet sehr langsam.Das Makro kannst Du in ein allgemeines Modul (Einfügen - Modul) einfügen.Wenn Du die ersten Werte im Makro veränderst, kannst Du auch die alten Wert in der ersten Spalte überschreiben lassen (ich weiß nicht, wohin Du die zusammengeführten Werte haben willst).Viel Erfolg,Jörg


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: