Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1496to1500
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
1496to1500
1496to1500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle1 kopieren und Tabelle2 auffüllen

Tabelle1 kopieren und Tabelle2 auffüllen
16.06.2016 14:32:17
LoNiC
Hallo zusammen,
ich hab da ein kleines Problem mit einer Excelanwendung die mein können übersteigt.
Ich hab ein Sheet "Mitglieder" dort können bis zu 50 Personen drinnen stehen.
Jetzt habe ich einen Sheet "Dienstplan" in einer Zelle eine Zahl steht wie viel Tage die Saison hat.
Nun würde ich gerne die Mitgliederliste (unabhänig ob da nun 3 oder 50 Mitglieder drinnen stehen) so oft untereinander kopieren bis die Zahl erreicht ist.
Mitgliederlist
Person1
Person2
Person3
Anzahl Tage: 103
Dienstplan:
Person1
Person2
Person3
Person1
Person2
Person3
usw.
Gibt es da eine Möglichkeit? Hab jetzt schon ein paar Stunden rumgegoogelt aber nichts passendes gefunden.
Mfg LoNiC

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle1 kopieren und Tabelle2 auffüllen
16.06.2016 14:37:51
Rudi
Hallo,
etwa so 
sub aaaa()
dim i as integer, rngMit as Range
with Sheets("Mitglieder")
set rngMit=.range(.cells(2, 1),.cells(rows.count, 1).end(xlup))
end with
with Sheets("Dienstplan")
for i=1 to .range("a1")  'anzahl in A1
rngMit.copy .cells(rows.count, 1).end(xlup).Offset(1)
next i
end with
end sub
Gruß
Rudi

AW: Tabelle1 kopieren und Tabelle2 auffüllen
16.06.2016 14:58:10
LoNiC
Hallo Rudi,
danke erstmal für die schnelle Antwort.
Müsste ich nicht ihm noch sagen wo er diese Liste nun Anlegen soll? Hab grad mal selbst versucht das in VBA zu machen aber es klappt leider nicht.
Vielleicht war ich auch zu ungenau :(
Mitgliederliste steht im Sheet Mitglieder im Bereich B2:B51
Die Anzahl der Tage steht in Sheet Dienstplan in P77
Die Liste die er nun aus den anzahl der Tagen erstellen soll, soll nun ab G2 starten und bis Anzahl in P77 gehen
MfG LoNiC

Anzeige
AW: Tabelle1 kopieren und Tabelle2 auffüllen
16.06.2016 15:02:12
Rudi
ja dann... 
Sub aaaa()
dim i as integer, rngMit as Range
with Sheets("Mitglieder")
set rngMit=.range(.cells(2, 2),.cells(rows.count, 2).end(xlup))
end with
with Sheets("Dienstplan")
for i=1 to .range("P77")  'anzahl in P77
rngMit.copy .cells(rows.count, 7).end(xlup).Offset(1)
next i
end with
End Sub
Gruß
Rudi

AW: Tabelle1 kopieren und Tabelle2 auffüllen
16.06.2016 15:35:19
LoNiC
Hallo Rudi,
ein Problem hätte ich da noch:
In P77 steht aktuell 103
Jedoch füllt er jetzt die Spalte bis ab Reihe 2 bis 1030 auf?
Dank für deine Hilfe :)
MFG LoNiC

AW: Tabelle1 kopieren und Tabelle2 auffüllen
16.06.2016 15:52:53
LoNiC
Sorry für den doppel Post mir ist jedoch noch aufgefallen das er leer Zellen mit kopiert wäre es möglich diese zu überspringen?
Userbild

Anzeige
AW: Tabelle1 kopieren und Tabelle2 auffüllen
16.06.2016 16:12:00
Rudi
Hallo,
sicherlich. 
 With Sheets("Mitglieder")
Set rngMit = .Range(.Cells(2, 2), .Cells(Rows.Count, 2).End(xlUp)).SpecialCells( _
xlCellTypeConstants)
End With
Gruß
Rudi

AW: Tabelle1 kopieren und Tabelle2 auffüllen
16.06.2016 16:26:15
LoNiC
Wunderbar jetzt klappt es mit den Leerzellen :)
Allerdings macht er die Liste immer noch viel zu lang :(
So wie ich das seh ist es jetzt so das er jede Zelle im Sheet Mitglieder 103x kopiert und somit die Tabelle 927 Zellen lang ist.
Jedoch sollen die aktuellen Mitglieder 1-max. 50 nur entsprechend lang wiederholt werden.
Userbild

Anzeige
AW: Tabelle1 kopieren und Tabelle2 auffüllen
16.06.2016 16:55:41
Rudi
Hallo,
So wie ich das seh ist es jetzt so das er jede Zelle im Sheet Mitglieder 103x kopiert
so habe ich das verstanden.
Sub aaaa()
Dim rngMit As Range
With Sheets("Mitglieder")
Set rngMit = .Range(.Cells(2, 2), .Cells(Rows.Count, 2).End(xlUp)).SpecialCells( _
xlCellTypeConstants)
End With
With Sheets("Dienstplan")
.Columns(7).ClearContents
Do While .Cells(Rows.Count, 7).End(xlUp).Row
Gruß
Rudi

TOP EINFACH SUPER
17.06.2016 07:50:35
LoNiC
Hallo Rudi,
vielen Dank für deinen Support das klappt jetzt Super!
Daumen hoch!
Gruß LoNiC

304 Forumthreads zu ähnlichen Themen

Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Anzeige
Zeichen aus dem Text holen
Oskar

Hallo
Ich möchte aus einem Text immer 2 Zeichen holen. ZB das 3. un4. Zeichen.
Beispiel:
AABBCCDD Wenn ich das 5. und 6. Zeichen Will muss das Ergebnis so aussehen CC
Besten Dank für die Hilfe
14.10.2008 12:07:00
Thread-ID: 1016292
2 Beiträge
zählenwenn nur auf Teil einer Zelle basierend?
Sascha

Hallöchen,
folgendes Problem,
ich habe eine Artikelerfolgsauflistung (Alpha-Numerisch gefüllte Zellen) über den Bereich Tabelle3!A2-G99.
Über eine Lagerbestandsliste in Tabelle1!B2-B99, die ich per copy/paste täglich aktualisieren kann zählt mir das Programm automatisch die Menge, i...
13.11.2008 12:08:25
Thread-ID: 1024134
10 Beiträge
Anzeige
Webabfrage und laufzeitfehler 1004
MBorn

Liebe Excel-Freunde,
ich bitte um Eure Hilfe. Ich bekomme bei einer (einfachen) Webabfrage dauernd, aber in
unregelmäßigen Abständen, die Fehlermeldung "laufzeitfehler 1004 - auf die Datei konnte
nicht zugegriffen werden".
Doch die Datei ist vorhanden und wird auch gefunden, w...
26.01.2009 17:26:00
Thread-ID: 1043962
3 Beiträge
Text in Fußzeile aus Zelle ziehen
Sandra

Hallo zusammen!
Ich brauche mal wieder Eure Hilfe.
Meine Exceltabelle (ein Protokoll) soll im linken Teil der Fußzeile einen Text bekommen, der automatisch aus einer Zelle gezogen wird. So das sich die Fußzeile immer aktualisiert, wenn die Zelle geändert wird. Mit einer Formel geht es j...
29.01.2009 11:29:24
Thread-ID: 1044904
23 Beiträge
Controltiptext für Label auf 2 Zeilen
Leon

Hi Leute
Habe gestern von Hajo und Tino gelernt wie man für ein Label ein Controltiptext erstellt.
Meine Frage:
Der Text ist ein wenig zu lang geraten und ich möchte es auf zwei Zeilen schreiben lassen.
Wie geht das?
Gruß
Leon
01.02.2009 19:19:00
Thread-ID: 1045969
14 Beiträge
Zufällig einen Text ausgeben aus best. Zellen
Eddie

Hallo und Guten Abend.... habe mal wieder ein Problem...
Ich will gerne aus einer Anzahl von zellen (ca 100 Zeilen) .. wo bestimmte Sätze drin stehen diese Zufällig in einer Bestimmten zelle anzeigen lassen ....
Vielleicht hat ja jemand schon sowas gemacht ?
thx schon einmal
G...
15.02.2009 20:14:00
Thread-ID: 1050974
7 Beiträge
Text in Zelle abfragen und formatieren
Bernd

Hallo Zusammen,
folgendes Problem: In einer Tabelle mit mehreren Spalten beinhaltet eine Spalte einen Text. Wie kann ich aus dieser Spalte eine bestimmte Zeichenfolge auslesen/erkennen und die betreffende Zelle dann farblich formatieren? Zum Beispiel beinhaltet eine Zelle den Text ABCDEF. W...
19.02.2009 15:19:00
Thread-ID: 1052173
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
1
9
5
2
22
13
6
4
4
7
9
4
3
8
3
6
1
5
4
1
2
3
4