|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
21.03.2013 14:23:41 |
Jonnx |
|
|
|
21.03.2013 20:18:49 |
Jonnx |
|
|
 Vertikale Zellen zusammenfuehren |
22.03.2013 02:47:44 |
Gast88706 |
|
|
|
22.03.2013 19:57:39 |
Jonnx |
|
|
|
23.03.2013 06:20:08 |
Gast88706 |
|
|
Von:
Gast88706 |
Datum:
22.03.2013 02:47:44 |
Views:
1113 |
Rating:
|
Antwort:
|
Thema:
Vertikale Zellen zusammenfuehren |
|
Ist den bekannt welche Spalten gleich sein müssen, um den Inhalt anderer Spalten zusammenzufassen?
Wenn die Daten bereits sortiert vorliegen, könnte man Zeile für Zeile auf Gleichheit testen ...
Public Function IsEqual(Range1 As Excel.Range, Range2 As Excel.Range) As Boolean
Dim bResult As Boolean
Dim i As Long
If Range1.Areas.Count <> Range2.Areas.Count Then Exit Function
For i = 1 To Range1.Areas.Count
If Range1.Areas(i).Rows.Count <> Range2.Areas(i).Rows.Count Then Exit Function
If Range1.Areas(i).Columns.Count <> Range2.Areas(i).Columns.Count Then Exit Function
Next
For i = 1 To Range1.Areas.Count
bResult = (Application.Evaluate("=PRODUCT(ABS(" & Range1.Areas(i).Address(External:=True) & "=" & Range2.Areas(i).Address(External:=True) & "))"))
If Not bResult Then Exit Function
Next
IsEqual = True
End Function
... und die relevanten Spalteninhalte zusammenfassen.
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
21.03.2013 14:23:41 |
Jonnx |
|
|
|
21.03.2013 20:18:49 |
Jonnx |
|
|
Vertikale Zellen zusammenfuehren |
22.03.2013 02:47:44 |
Gast88706 |
|
|
|
22.03.2013 19:57:39 |
Jonnx |
|
|
|
23.03.2013 06:20:08 |
Gast88706 |
|
|