Office: automatisiert Zeilen einfügen, wenn Wert positiv

Hallo!

Ich versuche mal mein Problem zu erklären:

Ich habe 2 Arbeitsblätter: Arb1 und Arb2

In Arb1 befindet sich eine Tabelle mit folgenden Daten:

Anlage | Betrag | Assetklasse
Depot | 200 | 1
Girokonto | 100 | 2
Sparkonto | 50 | 1
Anleihe | 33 | 3
Fonds | 120 | 2
Depot2 | 333 | 5
Sparbuch | 260 | 4
Depot3 | 512 | 5

In Arb2 befindet sich für jede Klasse eine Tabelle (5 stück)

Nun soll in jeder Tabelle(Klassen) die jeweilige Daten von Arb1 eingefügt werden. Beispiel: in Tabelle 1 sollten nun die Werte "Depot" und "Sparkonto" hinzugefügt werden. In Tabelle2 die Werte "Girokonto" und "Fonds".
Nun ist es so, dass wenn ein Wert hinzu kommt, automatisch eine weitere Zeile bei der jeweiligen Tabelle hinzugefügt werden soll.

Ich hoffe, dass mein Problem zu verstehen ist.

Weiß jemand, wie man dies hin bekommt. Kann mir da jemand am besten heute noch helfen, da die gesamte Excel Tabelle morgen beim Vorstand liegen muss.

Um eure Hilfe wäre ich sehr dankbar.
Danke !
Lurchi

 

Hallo,

die Überschrift verwirrt mich, aber egal. So wie ich es verstanden habe, reicht es aus, wenn Du Arb1 sortierst und die Daten nach Arb2 in die jeweiligen Tabellen rüberkopierst. Wenn Du nun in den neuen Tabellen nach jedem Datensatz eine Leerzeile haben willst, dann schreibe in Spalte A nach dem letzten Datensazu "Ende", wähle die Zelle A1 und führe folgendes Makro aus:

For x = 1 To 100000
If x = 1 Then
ActiveCell.Offset(1, 0).Range("a1").Select
End If
If x > 1 Then
ActiveCell.Offset(2, 0).Range("a1").Select
End If
If ActiveCell.Value = "Ende" Then
End
End If
Selection.Insert Shift:=xlDown
Next x
End Sub

Oder habe ich Dein Begehren nicht richtig verstanden!?

Gruß
J.

 

...das Problem hat sich erledigt. Ich habe jemanden gefunden, der mir das Makro programmiert.....


trotzdem danke :-D


-close-