Gastkinder 2

Forumthread: Gastkinder 2
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Gastkinder 2

Gastkinder 2

28.12.2006 21:49:08

Tom

Hallo zusammen,
Jürgen hat mir mit der angehängten Datei vor ein paar Wochen super geholfen - doch nach intensiverer Betrachtung fiel mir auf, dass die Zeile 33 in den Tabellenblättern "Verein A" und "Verein B" permanent überschrieben wird ...
Wer kann mir das so anpassen, dass es "unendlich" weitergehen könnte ...
Anbei die Datei: https://www.herber.de/bbs/user/39231.xls
Danke vorab
TOM

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Gastkinder 2

28.12.2006 22:41:37

Herby
AW: Gastkinder 2

29.12.2006 08:33:10

Tom
AW: Gastkinder 2

29.12.2006 12:12:39

Herby
AW: Gastkinder 2

30.12.2006 00:43:37

Tom

AW: Gastkinder 2

28.12.2006 22:41:37

Herby

Hallo TOM,
probiers mal aus:
https://www.herber.de/bbs/user/39232.xls
es wird immer eine Gastfamilie unterhalb der letzten Zeile angefügt.
Viele Grüße
Herby

AW: Gastkinder 2

29.12.2006 08:33:10

Tom

Hallo Herby,
danke mal.
Ich hätte aber gerne, dass die Einteilung erst ab Zeile 31 beginnt ...
Danke und Gruß
TOM

AW: Gastkinder 2

29.12.2006 12:12:39

Herby

Hallo Tom,
ich hab noch diese Zeile eingefügt:
If lZ Nun müsste es klappen. Unten noch der gesamte Code.


Private Sub Worksheet_Change(ByVal Target As Range)
'Gastfamilien werden auf einzele Blätter verteilt
Dim i As Integer
Dim lZ As Long
If Target = "" Then Exit Sub
If Target.Column <> 7 Then Exit Sub
For i = 1 To Sheets.Count
If Target.Value = Sheets(i).Name Then
lZ = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row + 1
If lZ < 31 Then lZ = 31
Sheets(1).Cells(Target.Row, 5).EntireRow.Copy Sheets(i).Cells(lZ, 1)
Exit Sub
End If
Next i
MsgBox "Es gibt kein Tabellenblatt mit dem Namen " & """" & Target.Value & """"
Target.ClearContents
End Sub

Viele Grüße
Herby

AW: Gastkinder 2

30.12.2006 00:43:37

Tom

Vielen Dank - jetzt ist es perfekt.
Guten Rutsch ins Neue Jahr
Gruß
TOM

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!