Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gastkinder 2

Gastkinder 2
28.12.2006 20: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
Anzeige
AW: Gastkinder 2
28.12.2006 21: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 07: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 11: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
Anzeige
AW: Gastkinder 2
29.12.2006 23:43:37
Tom
Vielen Dank - jetzt ist es perfekt.
Guten Rutsch ins Neue Jahr
Gruß
TOM

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige