Herbers Excel-Forum - das Archiv

Gastkinder 2

Bild

Betrifft: Gastkinder 2
von: Tom

Geschrieben am: 28.12.2006 20:49:08
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
Bild

Betrifft: AW: Gastkinder 2
von: Herby
Geschrieben am: 28.12.2006 21:41:37
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
Bild

Betrifft: AW: Gastkinder 2
von: Tom
Geschrieben am: 29.12.2006 07:33:10
Hallo Herby,
danke mal.
Ich hätte aber gerne, dass die Einteilung erst ab Zeile 31 beginnt ...
Danke und Gruß
TOM
Bild

Betrifft: AW: Gastkinder 2
von: Herby

Geschrieben am: 29.12.2006 11:12:39
Hallo Tom,
ich hab noch diese Zeile eingefügt:
If lZ < 31 Then lZ = 31
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
Bild

Betrifft: AW: Gastkinder 2
von: Tom
Geschrieben am: 29.12.2006 23:43:37
Vielen Dank - jetzt ist es perfekt.
Guten Rutsch ins Neue Jahr
Gruß
TOM
 Bild