Thema Datum  Von Nutzer Rating
Antwort
13.01.2016 12:43:25 Tia
Solved
13.01.2016 12:46:54 Gast96780
NotSolved
13.01.2016 12:54:59 Tia
NotSolved
Blau Doppelte Zeilen zusammenführen
 13.01.2016 19:15:02 Gast10811
NotSolved
14.01.2016 18:28:48 Tia
NotSolved

Ansicht des Beitrags:
Von:
Gast10811		 Datum:
13.01.2016 19:15:02		 Views:
1787		 Rating:
     
Antwort:
  Ja
Thema:
Doppelte Zeilen zusammenführen

Hallo hier mal ein Code der das machen sollte. ICh vemute mal, dass in Spalte E der Vorname steht - dort sollten ja die Vornamen zusammengefügt werden. Der Code geht alle Zellen durch und schreibt die Vornamen zusammen, falls Name und ANschrift gleich sind. Es wird dabei aber nicht geschaut, ob gf. am Namensende noch Leerzeichen sind. Die Daten müsssen identisch sein. KÖnnte man aber noch ändern. Gespeichert wird auch nix.

Probiere es mal an einer Beispieldatei. Viele Grüße

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub zusammenführen()
 
Dim ende
Dim zeile
Dim anzahl
Dim i
dim j
Dim suche
 
'alle befüllten Zeilen der Spalte D
ende = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
 
'D, G, H, I (Nachname, Straße, PLZ und Ort) identisch sein
 
For i = 1 To ende
'nachname wird gesucht
    suche = ActiveSheet.Cells(i, 4)
    If suche <> "" Then
    anzahl = Application.WorksheetFunction.CountIf(ActiveSheet.Columns(4), suche)
      
 
        If anzahl < 2 Then
 
        'wert exisiert nur einmal, nix machen
        Else
            For j = ende To i + 1 Step -1
                If ActiveSheet.Cells(j, 4) = suche Then
                    'prüfen ob Strae PLZ und Ort identisch sind
                    If ActiveSheet.Cells(j, 8) = ActiveSheet.Cells(i, 8) And ActiveSheet.Cells(j, 7) = ActiveSheet.Cells(i, 7) And ActiveSheet.Cells(j, 9) = ActiveSheet.Cells(i, 9) Then
                        ' Vorname
                        ActiveSheet.Cells(i, 5) = ActiveSheet.Cells(i, 5) & " " & ActiveSheet.Cells(j, 5)
                        ActiveSheet.Rows(j).Delete
 
                    End If  'vergleich mit name, Straße, PLZ und Ort
                End If 'verleich mit wert
 
            Next j
        End If 'mehr als einmal den Namen gefunden
    End If ' Zelle leer
Next i
 
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
13.01.2016 12:43:25 Tia
Solved
13.01.2016 12:46:54 Gast96780
NotSolved
13.01.2016 12:54:59 Tia
NotSolved
Blau Doppelte Zeilen zusammenführen
 13.01.2016 19:15:02 Gast10811
NotSolved
14.01.2016 18:28:48 Tia
NotSolved