Problem mit Schleife
12.06.2017 14:36:45
Peter
seit Stunden suche ich ein Lösung für eine Schleife.
Nachfolgender Code fügt in Tabelle "Buchung_Räume" die Werte ein aufgrund der Daten
in Tabelle "Räume".
Jedoch nur mit Wert aus A4 bzw. C4.
Sub spalte_zeile_variable()
Dim eingabe As String
Dim Zeile As Long
Dim EinfügWert As String
Zelle_A = Worksheets("Räume").Range("C4").Value
Worksheets("Zeiten_Gesamt (2)").Select
With Worksheets("Zeiten_Gesamt (2)")
.Range("G2:G51").Select
Selection.Find(What:=Zelle_A, After:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False).Activate
ActiveCell.Offset(0, -1).Select
AZeitSpalte = Selection
End With
eingabe = Worksheets("Räume").Range("A4").Value
EinfügWert = Worksheets("Hilfstabelle").Range("P2").Value
Worksheets("Buchung_Räume").Select
With Worksheets("Buchung_Räume")
Range("A2").Activate
Zeile = Sheets("Buchung_Räume").Columns("A:A").Find(What:=eingabe, After:=ActiveCell, LookIn: _
_
= _
xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
' Sheets("Buchung_Lehrer").Range("B" & Zeile & ":F" & Zeile) = EinfügWert '1
Sheets("Buchung_Räume").Range("B" & Zeile, AZeitSpalte & Zeile) = EinfügWert '1
End With
End Sub
Wie kann ich eine Schleife aufbauen, mit welcher die Tabelle "Räume" durchlaufen wird und die Werte in
Zelle_A = Worksheets("Räume").Range("C4").Value
eingabe = Worksheets("Räume").Range("A4").Value
durch eine variable ersetzt werden.
Beispielmappe anbei:https://www.herber.de/bbs/user/114216.xlsm
Besten Dank für Eure Hilfe.
Gruss
Peter