|
hi leute!
ich schreibe gerade an einem programm und komme nicht weiter! hier eine kleine erläuterung meiner idee:
ich habe zwei tabellenblätter und möchte zeilen oder zellen aus dem ersten tabellenblatt (übersicht) in das zweite (roadmap) übertragen. jedoch kann man in der tabelle 1 unterschiedliche einträge filtern. nun möchte ich, dass nur die eingeblendeten zellen übertragen werden.
mit folgendem code lasse ich die ausgeblendeten zellen raus und übertrage die zellen, die ich möchte. jedoch ist nach den zellen, die gefiltert sind schluss. es ist aber möglich, dass auf die ausgeblendetez zellen wieder eingeblendete folgen. und hier liegt das problem, denn diese zellen überträgt er nicht mehr.
Function Daten_Übertragen()
Dim i As Integer
Dim j As Integer
'Wählt Zelle 2 in der Übersicht aus
Sheets("Übersicht").Select
Range("A2").Select
i = 2 'Beginnt in der Tabelle1 in Zeile 2
j = 5 'Beginnt in der Tabelle2 in Zeile 5
sprung:
If Rows(i).Hidden = True Then
i = i + 1
GoTo sprung
End If
Do While IsEmpty(Cells(i, 1)) = False And Rows(i).Hidden = False
Cells(i, 1).Select 'Wählt erste zu übertragende Zelle aus
Sheets("Roadmap").Cells(j, 3).Value = ActiveCell.Value 'Überträgt Wert von Zelle aus Tabelle1 in Zelle in Tabelle2
End If
If Cells(i, 2) = "abc" Then
Sheets("Roadmap").Cells(j, 2).Value = "1"
ElseIf Cells(i, 2) = "def" Then
Sheets("Roadmap").Cells(j, 2).Value = "2"
End If
j = j + 1
i = i + 1
Loop
Sheets("roadmap").Select
i = 5
Do While IsEmpty(Cells(i, 2)) = False
If Cells(i, 2).Value = "1" Then
Cells(i, 2).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 11250084
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ElseIf Cells(i, 2).Value = "2" Then
Cells(i, 2).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 13884121
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
i = i + 1
Loop
End Function
kann mir jemand meinen fehler aufzeigen? ich komme leider nicht weiter und bin für jede hilfe dankbar!!! :)
|