Hallo liebe Community,
ich möchte eine Tabelle mit Informationen aus anderer Tabelle ausfüllen.
Je nach dem ob in der ersten Spalte A, B, C oder D steht, werden in den restlichen 3 Spalten die entsprechenden Information ausgefüllt.
bei A, B, und C habe ich es problemlos hinbekommen, da jede (A, B,C) nur eine Zeile Information enthält.
Allerdings bei D bekomme ich das Problem, dass die restlichen Zeilen ( D4 bis D7) nicht eingetragen werden.
Hier mein code
Dim i As Integer
Dim j As Integer
Dim a As Integer
For i = 1 To ActiveSheet.UsedRange.Columns("A").Cells.Count 'Zeilevariable
For j = 1 To 16 'Spaltevariable
' Attribut A'
If Cells(i, 6) = Tabelle6.Cells(4, 2) Then 'Tabelle 6 enthält die Informationen - ist eine kleine Database
Tabelle7.Cells(i, j) = Tabelle6.Cells(4, j - 4)
'Attribut B
ElseIf Cells(i, 6) = Tabelle6.Cells(3, 2) Then
Tabelle7.Cells(i, j) = Tabelle6.Cells(3, j - 4)
'Attribut D
ElseIf Cells(i, 6).Value = Tabelle6.Cells(5, 2) Then
Tabelle7.Cells(i, j) = Tabelle6.Cells(5, j - 4)
Tabelle7.Cells(i + 1, j) = Tabelle6.Cells(5, j - 4) 'Ab hier läuft nichts mehr mit den restlichen Zeilen bei Attribut D
Tabelle7.Cells(i + 2, 6) = ""
Tabelle7.Cells(i + 3, 6) = ""
Tabelle7.Cells(i + 4, 6) = ""
Tabelle7.Cells(i + 1, j) = Tabelle6.Cells(i, j)
Else
Cells(i, j) = ""
End If
Next j
Next i
End Sub
ich hoffe ihr könnt mich verstehen und mir da weiterhelfen, Attribut D vollständig automatisch eintragen zu lassen.
Freue mich auf eure Unterstützung
ich möchte eine Tabelle mit Informationen aus anderer Tabelle ausfüllen.
Je nach dem ob in der ersten Spalte A, B, C oder D steht, werden in den restlichen 3 Spalten die entsprechenden Information ausgefüllt.
bei A, B, und C habe ich es problemlos hinbekommen, da jede (A, B,C) nur eine Zeile Information enthält.
Allerdings bei D bekomme ich das Problem, dass die restlichen Zeilen ( D4 bis D7) nicht eingetragen werden.
Hier mein code
Dim i As Integer
Dim j As Integer
Dim a As Integer
For i = 1 To ActiveSheet.UsedRange.Columns("A").Cells.Count 'Zeilevariable
For j = 1 To 16 'Spaltevariable
' Attribut A'
If Cells(i, 6) = Tabelle6.Cells(4, 2) Then 'Tabelle 6 enthält die Informationen - ist eine kleine Database
Tabelle7.Cells(i, j) = Tabelle6.Cells(4, j - 4)
'Attribut B
ElseIf Cells(i, 6) = Tabelle6.Cells(3, 2) Then
Tabelle7.Cells(i, j) = Tabelle6.Cells(3, j - 4)
'Attribut D
ElseIf Cells(i, 6).Value = Tabelle6.Cells(5, 2) Then
Tabelle7.Cells(i, j) = Tabelle6.Cells(5, j - 4)
Tabelle7.Cells(i + 1, j) = Tabelle6.Cells(5, j - 4) 'Ab hier läuft nichts mehr mit den restlichen Zeilen bei Attribut D
Tabelle7.Cells(i + 2, 6) = ""
Tabelle7.Cells(i + 3, 6) = ""
Tabelle7.Cells(i + 4, 6) = ""
Tabelle7.Cells(i + 1, j) = Tabelle6.Cells(i, j)
Else
Cells(i, j) = ""
End If
Next j
Next i
End Sub
ich hoffe ihr könnt mich verstehen und mir da weiterhelfen, Attribut D vollständig automatisch eintragen zu lassen.
Freue mich auf eure Unterstützung