Re: Spalten in Zeilen

Tech-Archive recommends: Speed Up your PC by fixing your registry

From: M. Lesaar (Lesaar_at_t-online.de)
Date: 01/31/05 

Date: Mon, 31 Jan 2005 18:24:31 +0100

Hallo,

leider habe ich ein Problem beim Einfügen des Makros. Wie mache ich das
genau, wenn ich auf Makro Neu gehe?

Und was bedeutet der Fehlerhinweis am Ende des Makros?

Viele Grüße.

Marcel

"Gruhler P.-G." <paulggruhler@netscape.net> schrieb im Newsbeitrag
news:41fa2acc$0$6941$4d4ebb8e@read.news.de.uu.net...
> Hallo Marcel,
>
> M. Lesaar schrieb:
>> Hallo,
>>
>> es wäre nett, wenn Ihr mir bei folgendem Problem helfen könntet:
>>
>> In vier Spalten sind Einträge. Wenn in der ersten Spalten Werte
>> wiederholen, sollen die Inhalte der Zeilen, die nach dem ersten Vorkommen
>> des Wertes in die Zeile des ersten Vorkommens übertragen werden.
>>
>> Beispiel:
>>
>> A B C D
>> Konto Anschriftennummer Zeile Bezeichnung
>>
>> 3 7 6 xxx
>> 3 4 8 ccc
>> 3 2 1 ddd
>> 7 1 2 eee
>>
>> Ergebnis soll hier sein (nur noch eine erweiterte Zeile mit 3 und eine
>> mit 7 bleiben übrig)
>>
>> A B C D E
>> F G H I J K L
>> Konto Anschriftennummer Zeile Bezeichnung
>>
>> 3 7 6 xxx 3
>> 4 8 ccc 3 2 1 ddd
>> 7 1 2 eee
>>
>> Ich hoffe, daß sich die Zeilen nicht verschoben haben und Ihr erkennen
>> könnt, was ich meine.
>
> Mit VBA würde das so aussehen.
>
> Sub sub_Test()
> ' 28.01.2005 Gruhler P.-G. Test
>
> ' Deklaration
> Dim var_Row As Variant
> Dim var_Spalte As Variant
>
> var_Row = 2
> var_Spalte = 1
>
> Do ' Schleife bis in der ersten Spalte die erste Zelle leer ist
> If Cells(var_Row, 1).Value = Cells(var_Row + 1, 1).Value Then '
> Vergleichen
>
> Do ' Ende Suchen
> var_Spalte = var_Spalte + 1
> Loop Until Cells(var_Row, var_Spalte).Value = Empty
> ' Werte copyren
> Cells(var_Row, var_Spalte + 0).Value = Cells(var_Row + 1, 1).Value
> Cells(var_Row, var_Spalte + 1).Value = Cells(var_Row + 1, 2).Value
> Cells(var_Row, var_Spalte + 2).Value = Cells(var_Row + 1, 3).Value
> Cells(var_Row, var_Spalte + 3).Value = Cells(var_Row + 1, 4).Value
>
> ' Zeile darunter löschen
> Rows(var_Row + 1).Delete
> Else
> var_Row = var_Row + 1
> End If
> var_Spalte = 1
> Loop Until Cells(var_Row, var_Spalte).Value = Empty
>
> End Sub
>
> Es gibt Ungereimtheiten bei der Anforderung.
> Die Spaltenüberschrift ist dem Wert nicht mehr zu zu ordnet.
> Die Zeilen sind begrenzt die zur Verfügung stehen.
>

Relevant Pages