230 Aufrufe
Gefragt in Tabellenkalkulation von
Folgendes Problem:
(Hier der Versuch es Graphisch darzustellen)


Artikelnummer  -  Größe    - Farbe -    Gewicht   
111                    -    0,5    -           grau   -       1,5
222                -    (*1)   -   braun  -        (*1)
333                  -    1,0    -     gelb   -        2,5
444                  -    (*1)   -     rot     -         (*1)

*1 = Verbund mit der oberen Zelle

Ich brauche die Tabelle in folgendem Format:

Artikelnummer  -  Größe    - Farbe -    Gewicht   
111                  -      0,5  -      grau    -      1,5
222        -            0,5    -   braun    -     1,5
333               -       1,0   -     gelb      -     2,5
444               -       1,0    -    rot        -     2,5

Erst habe ich gedacht ich "entbinde" einfach alle verbundenen Zellen, filtere auf die leeren und lass diese dann den oberen Wert annehmen.
Allerdings ist das nicht möglich da es auch leere Zellen gibt die leer bleiben sollen.

Vielen Dank im Voraus und vor allem an M.O. der mir immer die erste Antwort gibt :)

3 Antworten

0 Punkte
Beantwortet von m-o Profi (22.7k Punkte)
Hallo Luca,

scheinbar bin ich wieder der Erste mit einer Antwort ;-).

Verbundene Zellen sollte man möglichst nicht nutzen, wie du jetzt selbst erfahren. Es wird dir wohl nichts anderes übrig bleiben, als die verbundenen Zellen aufzulösen und die Daten hinein zu kopieren. Sollte das eine größe Tabelle sein, dann wäre das wahrscheinlich auch per Makro möglich. Allerdings bräuchte man dann eine Beispieltabelle.

Gruß

M.O.
0 Punkte
Beantwortet von
@M.O.

Vielen Dank,

ja dann hab ich wohl Pech gehabt. Leider sind sie Tabellen die ich bearbeiten muss nicht immer von den "Computer- /Excelfähigsten" Menschen erstellt worden :'(

Leider kenn ich mich mit Makros nicht so wirklich aus.

MFG
0 Punkte
Beantwortet von m-o Profi (22.7k Punkte)
Hallo Luca,

probiere mal das folgende Makro aus (erst einmal in einer Testdatei).
Das Makro musst du in ein [url=http://www.excelbeispiele.de/Modul.htm]Standardmodul[/url] der betreffenden Arbeitsmappe kopieren:

[code]Sub VerbundeneZellen()
Dim Zelle As Range
Dim StartZelle As Range
Dim EndZelle As Range   'letzte Zelle des verbundenen Bereich
Dim varInhalt As Variant

'genutzen Bereich durchlaufen
For Each Zelle In ActiveSheet.UsedRange
    'falls verbundene Zelle gefunden wird, dann
    If Zelle.MergeCells Then
      Set StartZelle = Zelle.MergeArea(1) 'erste Zelle des verbundenen Bereichs in Variable schreiben
      Set EndZelle = Zelle.MergeArea(Zelle.MergeArea.Cells.Count) 'letzte Zelle des verbundenen Bereich in Variable schreiben
      varInhalt = Zelle.Value   'Zellinhalt in Variable schreiben
      Zelle.UnMerge              'Zellenverbindung lösen
      Range(StartZelle, EndZelle) = varInhalt  'Inhalt aus Variable in Zellbereich schreiben
    End If
Next Zelle
End Sub[/code]
Gruß

M.O.
...