mit Case Daten übertragen
TinoB
und wieder habe ich ein problem und hoffe es kann mir jemand helfen. ich lese mit einem makro daten einer dat datei in die Tabelle2 ein. diese werden dann wiederum per makro in die entsprechende form gebracht und danach automatisch in die Tabelle1 kopiert. nun mein anliegen um den vorgang zu verkürzen. kann ich mit diesem beispiel eigentlich die daten gleich in die Tabellen1 einlesen um das kopieren zu überspringen? dieses beispiel funktioniert so nicht, das habe ich schon getestet. aber vielleicht habe ich nur einen fehler drin.
Sub übertrag() Dim rng As Range, LZ As Integer LZ = Range("F65536").End(xlUp).Row For Each rng In Range(Cells(20, 6), Cells(LZ, 6)) Select Case rng Case "RE": If Tabelle2.Cells(rng.Row, 5) = "Kanal" Then Tabelle1.Cells(rng.Row, 11) = Tabelle2.Cells(rng.Row, 41) End If If Tabelle2.Cells(rng.Row, 5) = "Bogen" Then Tabelle1.Cells(rng.Row, 12) = Tabelle2.Cells(rng.Row, 11) End If End Select Next rng End Sub
Danke
Tino