Zellinhalte verbinden/zusammenführen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
... wäre so In Hilfsspalte H: ab H2: =WENN(A2>0;"";H1&WENN((A3>0)*(A1>0);B2;WENN(A3>0;"";ZEICHEN(10)&B3))) und nach unten kopieren.
In der Ergebnisspalte-Zelle-Zeile 1 (muss also nicht E1 sein)

-       bei den Augen: beidseitige Inspektion des äußeren Auges, beidseitige Untersuchung der vorderen und mittleren Augenabschnitte sowie des Augenhintergrunds
-       bei dem HNO-Bereich: Inspektion der Nase, des Naseninnern, des Rachens, beider Ohren, beider äußerer Gehörgänge und beider Trommelfelle, Spiegelung des Kehlkopfs;
-       bei dem stomatognathen System: Inspektion der Mundhöhle, Inspektion und Palpation der Zunge und beider Kiefergelenke sowie vollständiger Zahnstatus;
-       bei den Nieren und ableitenden Harnwegen: Palpation der Nierenlager und des Unterbauchs, Inspektion des äußeren Genitale sowie Digitaluntersuchung des Enddarms, bei Männern zusätzlich Digitaluntersuchung der Prostata, Prüfung der Bruchpforten sowie Inspektion und Palpation der Hoden und Nebenhoden;
-       bei dem Gefäßstatus: Palpation und gegebenenfalls Auskultation der Arterien an beiden Handgelenken, Ellenbeugen, Achseln, Fußrücken, Sprunggelenken, Kniekehlen, Leisten sowie der tastbaren Arterien an Hals und Kopf, Inspektion und gegebenenfalls Palpation der oberflächlichen Bein- und Halsvenen.
Die Leistung nach Nummer 6 ist neben den Leistungen nach den Nummern 5, 7 und/oder 8 nicht berechnungsfähig.

Formeln der Tabelle

Zelle	Formel
E1	{=WENN(A1>0;INDEX(H:H;ZEILE(A1)-2+VERGLEICH(1;(A2:A4999>0)+0;0)); "")}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
und nach unten kopieren.
Gruß Werner
.. , - ...

Hallo Werner,
du hast verschwiegen, dass es auch noch ausgeblendetet Zeilen gibt.
Nachfolgend mein Versuch der Aufbereitug.
Die Ausgabe der Daten erfolgt in einem neu angelegten separaten Blatt, da so der Ablauf der Datenaufbereitung besser gesteuert werden kann und auch die meist störenden verbundenen Zellen in Spalten A und C bereinigt werden können.
Gruß
Franz


Sub Zeilen_zusammenfassen()
Dim wksQ As Worksheet, wksZ As Worksheet
Dim ZeileQ As Long, ZeileZ As Long
Dim anzZeilen As Long, ZeileM As Long
Dim strText As String
Set wksQ = ActiveSheet
ActiveWorkbook.Worksheets.Add After:=wksQ
Set wksZ = ActiveSheet
ZeileZ = 1
With wksZ
.Cells.VerticalAlignment = xlTop
.Cells(ZeileZ, 1) = "GOÄ-Nr."
.Cells(ZeileZ, 2) = "Leistungsbeschreibung"
.Cells(ZeileZ, 3) = "Erstattungsfähig"
.Cells(ZeileZ, 4) = "Leistungsbeschreibung-Detail"
With .Columns(1)
.Font.Name = "Arial"
.Font.Size = 10
.ColumnWidth = 10
End With
With .Columns(2)
.Font.Name = "Arial"
.Font.Size = 10
.ColumnWidth = 54
.WrapText = True
End With
With .Columns(3)
.Font.Name = "Arial"
.Font.Size = 10
.ColumnWidth = 10
End With
With .Columns(4)
.Font.Name = "Arial"
.Font.Size = 8
.ColumnWidth = 54
.WrapText = True
End With
End With
With wksQ
For ZeileQ = 1 To .Cells(.Rows.Count, 2).End(xlUp).Row
If .Cells(ZeileQ, 1).EntireRow.Hidden = True Then GoTo Next_ZeileQ
ZeileZ = ZeileZ + 1
wksZ.Cells(ZeileZ, 1).Value = .Cells(ZeileQ, 1).Value
wksZ.Cells(ZeileZ, 2).Value = .Cells(ZeileQ, 2).Value
wksZ.Cells(ZeileZ, 3).Value = .Cells(ZeileQ, 3).Value
strText = ""
If .Cells(ZeileQ, 1).MergeCells = True Then
anzZeilen = .Cells(ZeileQ, 1).MergeArea.Rows.Count
For ZeileM = 2 To anzZeilen
ZeileQ = ZeileQ + 1
If strText = "" Then
strText = .Cells(ZeileQ, 2).Text
Else
strText = strText & vbLf & .Cells(ZeileQ, 2).Text
End If
Next
Else
strText = ""
End If
wksZ.Cells(ZeileZ, 4).Value = strText
Next_ZeileQ:
Next ZeileQ
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Zellinhalte verbinden/zusammenführen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread