AW: VBA Tab1 Zeilen kopieren und in Tab2 einfügen
26.10.2014 18:05:33
mehmet
Hallo Gerold,
vielen Dank fuer dein Tip. Werd ich machen.
Ich habe versucht dein Makro mit vielen Moeglichkeiten anzupassen bzgl. Hide:
Hier ein Beispiel:
Private Sub t19b_Status()
Dim i As Integer, a As Long
b = Tabelle2.Cells(Rows.Count, 27).End(xlUp).Row '27 Spalte AA
For i = 110 To 130 'Suchen in den Zeilen 110 - 130
For b = 99 To 1
If Tabelle1.Cells(i, 14) <> "" And Tabelle1.Cells(i, 15) <> "" Then
If Tabelle2.Rows(b).EntireRow.Hidden = True Then 'So wird z.b. nur die Zeile 1 _
ausgeblendet
b = b + 1
With Tabelle2
a = .Cells(Rows.Count, 27).End(xlUp).Row + 1 '27 Spalte AA
.Cells(a, 27).Value = Tabelle1.Cells(i, 14).Value 'Kopieren der Spalten N:U
.Cells(a, 28).Value = Tabelle1.Cells(i, 15).Value 'nach Tabelle2 Spalten 27 - 40
.Cells(a, 29).Value = Tabelle1.Cells(i, 16).Value
.Cells(a, 30).Value = Tabelle1.Cells(i, 17).Value
.Cells(a, 33).Value = Tabelle1.Cells(i, 18).Value
.Cells(a, 36).Value = Tabelle1.Cells(i, 19).Value
.Cells(a, 37).Value = Tabelle1.Cells(i, 20).Value
.Cells(a, 40).Value = Tabelle1.Cells(i, 21).Value
End With
Else
With Tabelle2
a = .Cells(Rows.Count, 27).End(xlUp).Row + 1 '27 Spalte AA
.Cells(a, 27).Value = Tabelle1.Cells(i, 14).Value 'Kopieren der Spalten N:U
.Cells(a, 28).Value = Tabelle1.Cells(i, 15).Value 'nach Tabelle2 Spalten 27 - 40
.Cells(a, 29).Value = Tabelle1.Cells(i, 16).Value
.Cells(a, 30).Value = Tabelle1.Cells(i, 17).Value
.Cells(a, 33).Value = Tabelle1.Cells(i, 18).Value
.Cells(a, 36).Value = Tabelle1.Cells(i, 19).Value
.Cells(a, 37).Value = Tabelle1.Cells(i, 20).Value
.Cells(a, 40).Value = Tabelle1.Cells(i, 21).Value
End With
End If
End If
Next b
Next i
End Sub
Das Makro macht einfach nicht was ich will 8-)
Egal ob ich in Tab2 Zeilen 9-20 ausblende oder alle Zeilen einblende.
Hab ich die "b" Variable falls gemacht oder die "hide" abfrage falsch angesetzt?
https://www.herber.de/bbs/user/93382.xls
Viele Gruesse
mehmet