Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen vereinen

Zellen vereinen
28.08.2005 17:14:56
meier
Habe folgendes Problem
z.B. soll die zelle c3 mit der Zelle c4 vereint werden.
Der Inhalt beider Zellen soll dann in der zelle c3 stehen.
Dies soll nun fortlaufend in der ganzen Datei erfolgen (ca. 60.000 Zeilen).
Dabei ist folgende Bedingung zu erfüllen.
Der Vereinigungsvorgang soll nur erfolgen wenn die Zelle b4 leer ist, ist dies nicht der Fall ist eine Zeile weiter zu gehen, wieder zu prüfen, vereinen oder nicht usw.
Könnt Ihr mir helfen. Bin leider noch Anfänger und finde aus diesem Grund keine Lösung.
MfG
Tino

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen vereinen
28.08.2005 17:44:48
Matthias
Hallo Tino,
füge eine Spalte ein, schreibe in diese in Zeile 3:
=WENN(B4="";C3&C4)
und kopiere sie nach unten.
Wenn alles passt markiere die Spalte, Bearbeiten-Kopieren, dann Bearbeiten-Inhalte einfügen - "Werte" - OK
Dann lösche die Spalte, die du nicht mehr brauchst.
Gruß Matthias
AW: Zellen vereinen
28.08.2005 18:08:03
Erich
Hallo Tino,
wenn's um "Zellen verbinden" geht:
Sub Bedingt_verbinden() Dim intZeile& Application.DisplayAlerts = False For intZeile = 1 To Cells(Rows.Count, 2).End(xlUp).Row If IsEmpty(Cells(intZeile, 3)) Then _ Range(Cells(intZeile, 2), Cells(intZeile, 3)).Merge Next intZeile Application.DisplayAlerts = True End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Zellen vereinen
28.08.2005 19:56:23
meier
Danke erstmal für die schnellen Antworten.
Beide Vorschläge funktionieren nicht. Vielleicht habe ich mich auch etwas blöd ausgedrückt.
Der Inhalt der Zelle C4 soll zu dem Inhalt der Zelle C3 zugefügt werden. Der Inhalt der Zelle B4 ist leer. Der Zufügeprozess soll nur erfolgen wenn die Bedingung der leeren Zelle B4 erfüllt ist. Die bei diesem Zufügeprozess entstehende leere Zeile 4 ist zu löschen.
Danach soll geprüft werden ob die genannte Bedingung erfüllt ist. Danach wieder eine Zeile vor etc.
AW: Zellen vereinen
28.08.2005 21:45:58
Erich
Hallo Tino,
jetzt isses - glaub ich - klar.
Sub Bedingt_verbinden() Dim intZeile& For intZeile = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1 If IsEmpty(Cells(intZeile, 2)) Then Cells(intZeile - 1, 3) = _ Cells(intZeile - 1, 3) & " " & Cells(intZeile, 3) Rows(intZeile).Delete End If Next intZeile End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Zellen vereinen - Korrektur
28.08.2005 21:53:10
Erich
Hallo Tino,
die Schleife darf natürlich nur bis 2 laufen.
Noch eine Bemerkung:
Vor dem Löschen einer Zeile wird nicht geprüft, ob sie wirklich leer ist.

Sub Bedingt_verbinden()
Dim intZeile&
For intZeile = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
If IsEmpty(Cells(intZeile, 2)) Then
Cells(intZeile - 1, 3) = _
Cells(intZeile - 1, 3) & " " & Cells(intZeile, 3)
Rows(intZeile).Delete
End If
Next intZeile
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Zellen vereinen - Korrektur
28.08.2005 23:06:13
meier
Funzt nicht.
Die Zellinhalte aus der unteren zeile werden nicht in die obere Zeile übertragen.
Trotzden danke für deine Bemühungen.
Werde mich morgen wieder melden.
Vielleicht finden wir noch gemeinsam eine Lösung.
Für das Vereinen habe ich schon eine funktionierende Lösung gefunden. Nur mit der Abfrage der Bedingungen habe ich keinen Plan.
Tschüß bis morgen
Tino
Anzeige
AW: Zellen vereinen - Korrektur
29.08.2005 00:07:50
Erich
Hallo Tino,
so klar war es also wohl doch nicht ...
Möchtest du, dass ALLE Zellen einer Zeile mit leerer Spalte B in die vorhergehende Zeile übertragen werden? das sähe so aus:
 
  
 ABCD
1A1 C1vorher
2  C2 
3A3 C3 
4A4B4C4 
5A5B5C5 
6A6 C6 
7A7 C7 
8A8 C8 
9A9B9C9 
10  C10 
 
 
  
 ABCD
1A1  A3 C1 C2 C3nachher
2A4B4C4 
3A5 A6 A7 A8B5C5 C6 C7 C8 
4A9B9C9 C10 
 
 Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

Der Code dazu:



Sub Bedingt_verbinden2()
Dim lngZeile&, intspalte%
For lngZeile = Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1
If IsEmpty(Cells(lngZeile, 2)) Then
For intspalte = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
If Not IsEmpty(Cells(lngZeile, intspalte)) Then _
Cells(lngZeile - 1, intspalte) = _
Cells(lngZeile - 1, intspalte) & " " & Cells(lngZeile, intspalte)
Next intspalte
Rows(lngZeile).Delete
End If
Next lngZeile
End Sub



Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


            
    
    
    
                    


    
    
    
    
    
    
            


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

    
    
    


    
Anzeige

    

        
                    
                
    




    
    

    

        

            

                
                    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
                
            

            

                

                
            

        

    




    
    

    
    
            
 

            
            

                
                
                                    

                        


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

                    

                                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige