VBA-Script Tabellenblatt füllen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
bist du sicher, dass du da dann die Raumnummer eintragen willst und nicht das entsprechende Schulfach?
Hier mit Raumnummer:


Sub Schaltfläche1_Klicken()
Dim i As Long, raZelle As Range, raFund As Range
Application.ScreenUpdating = False
With Worksheets("Klassen_SP2")
For i = 4 To 32 Step 2
For Each raZelle In .Range(.Cells(i, "B"), .Cells(i, "V"))
If raZelle  "" Then
With Worksheets("Raumplan2")
Set raFund = .Columns("A").Find(what:=raZelle, LookIn:=xlValues, _
lookat:=xlWhole)
If Not raFund Is Nothing Then
.Cells(raFund.Row, raZelle.Column).Value = raZelle.Value
End If
End With
End If
Next raZelle
Next i
End With
Set raFund = Nothing

Wenn es das entsprechende Fach sein soll, dann diese Codezeile:


.Cells(raFund.Row, raZelle.Column).Value = raZelle.Value

Durch diese hier ersetzen:


.Cells(raFund.Row, raZelle.Column).Value = raZelle.Offset(-1).Value

Gruß Werner

Sub Unit() Dim i As Long, Zelle As Range, Fund As Range Application.ScreenUpdating = False With Worksheets("Klassen_SP2") For i = 4 To 32 Step 2 For Each Zelle In .Range(.Cells(i, "B"), .Cells(i, "V")) If Zelle "" Then With Worksheets("Raumplan2") Set Fund = .Columns("A").Find(what:=Zelle, LookIn:=xlValues, lookat:=xlWhole) If Not Fund Is Nothing Then If IsEmpty(.Cells(Fund.Row, Zelle.Column)) Then .Cells(Fund.Row, Zelle.Column).Value = Worksheets("Klassen_SP2").Cells(Zelle.Row - 1, 1).Value Else .Cells(Fund.Row, Zelle.Column).Value = .Cells(Fund.Row, Zelle.Column).Value & "+" & Worksheets("Klassen_SP2").Cells(Zelle.Row - 1, 1).Value End If End If End With End If Next Zelle Next i End With Set Fund = Nothing End Sub

Hi
wenn du keine VBA-Kenntnisse hast, solltest du das auch nicht mit VBA lösen bzw dir das von anderen mit VBA lösen lassen (außer, du hast vor in schnelle VBA zu lernen).
hier kann man Formeln anwenden, wenn du wissen willst, wer wann mit welchem Fach im betreffenden Raum ist.
hierzu folgende Formel in Zelle B3 von Raumplan2:


=WENNFEHLER(
INDEX(Klassen_SP2!$A:$A;VERGLEICH($A15;Klassen_SP2!F:F;0)-1)&
ZEICHEN(10)&
INDEX(Klassen_SP2!F:F;VERGLEICH($A15;Klassen_SP2!F:F;0)-1)
;"---")

vor dem Zeilenumbruch steht der Kurs, nach dem Zeilenumbruch das Fach. wenn du was davon nicht brauchst, kannst du es löschen.
Wichtig ist, dass in beiden Tabellen die Spaltenanordnung mit Tag und Stunde gleich ist.
Wenn du hier nachträglich Spalten änderts (löschst oder einfügst) solltest du die Formeln von der ersten Spalte aus neu in die Tabelle übertragen.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread