VBA- Finden -> and. Blatt kopieren

Guten Tag,
meine Programmierkenntnisse sind ein wenig eingerostet und ich benötige Unterstützung um die Inhalte eines Raumplanes in Personenpläne aufzuschlüsseln. Zuerst nur mit einer Person.(Siehe Beispiel unten
Hatte es schon mehrfach versucht , aber leider mit mäßigen Erfolg
Ich möchte gern einen bestimmten Datenbereich/Tabelle z.B. B6 : AT26 in einem Sheet A nach einem Personennamen durchsuchen. Der Zellenwert und Zellenfarbe der gefundenen Zelle mit dem Personennamen und die beiden darüberliegenden Zellen sollen dann (als Einheit) in ein bereits bestehendes Sheet B kopiert werden. Das Format des Sheets B soll erhalten bleiben.
Der Personennamen kann mehrfach (0-6 mal) im Datenbereich im Sheet A vorkommen.
Userbild

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
ich übernehme den Plan ab Sommer vom Kollegen und er hatte bisher alles mit Copy/Paste gemacht. Wir bilden Lehrer aus Entwicklungsländern aus z.B. aus Nigeria. Jeder Block hat oben den Programmname mit einer Farbe, in der Mitte der Kursname und unten das Lehrerkürzel, Beispiel: Block: Programmname BM-HG1, Kurs Media , Lehrer Kr
Die vorbereiteten Blätter
Blatt 1: Raumplan
Blatt 2: BM-HG1 (Kurs)
Blatt 3: nächster Kurs
Blatt 3: Kr (Person)
Blatt 4: weitere Person .
Das Blatt Raumplan fülle ich per Hand aus und die Inhalte werden automatisch (skript) in die weiteren Blätter übertragen.
Ich bin dabei ein einfaches? Programm mit mehreren If Scheifen = Person oder Farbe (Programm) zu schreiben, wobei als Resultat die Blöcke (Programm/Kurs/Lehrer) vom Raumplan in das jeweilige Blatt kopiert werden.
Du hast natürlich recht die Aussage "Format erhalten bleiben ist Schwachsinn" und stimmt nicht. Der Hintergrund also die Tabelle bleibt erhalten und die Werte und Farben werden in Abhängigkeit nach Farben (und Personen "Hj" o. "Fg" sotiert.

Sub Test()
Dim Name As String
Name = "Hj"
ActiveSheet.Range("A1:AT26").Select
For Each Zelle In Selection
If Zelle = Name Then
Zelle.Select
Selection.Copy
Sheets("Hj").Paste
Zelle.Offset(1, 0).Select
Sheets("Hj").Paste
Zelle.Offset(2, 0).Select
Sheets("Hj").Paste
End If
Next Zelle
Application.CutCopyMode = False
End Sub

Beliebteste Forumthreads (12 Monate)

VBA- Finden -> and. Blatt kopieren

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA- Finden -> and. Blatt kopieren

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread