Bestimmte Spalten einer Zeite kopieren
16.05.2015 20:05:24
Martin
ich bin gerade dabei mir VBA-Kenntnisse anzueignen mit mehr oder weniger Erfolg :)
Denke bei der Sub werden einige den Kopf schütteln, aber ist halt mit meinen geringen Kenntnissen etwas zusammengestückelt.
Gerade stehe ich vor folgendem Problem. Ich habe in Tabelle1 Daten verschiedener Abteilungen und Ressourcen gesammelt. In der Tabelle7 möchte ich, wenn zwei Kriterien erfüllt sind (Kann ich per dropdown ändern), bestimmte Zellen einer Zeile von Tabelle1 per Button kopieren. Die Kriterien sind: KST-A, B, C,.. (Anlagengruppen) und 1,2,3,4 (Anlagengruppen der Aufträge). Ich habe es nun soweit hinbekommen, dass jeweils die ganze Zeile kopiert wird. Ich möchte aber nur B, C, E, F,G kopieren.
Danke schon mal für jede Hilfe.
Option Explicit
Sub DatenAusTabelleKopieren()
Dim Zeile As Long
Dim Zeilemax As Long
Dim n As Long
Dim intOben As Long
Dim intLinksGruppe As Long
intOben = Application.Names("StartTabelle").RefersToRange.Row - 1
Tabelle7.Range("A4:J200").ClearContents
With Tabelle1
Zeilemax = .UsedRange.Rows.Count
n = 1
For Zeile = 2 To Zeilemax
If Tabelle7.Cells(1, 4).Value = "KST-A" And .Cells(Zeile, 1).Value = 1 Then
.Rows(Zeile).Copy
Tabelle7.Rows(intOben + n).PasteSpecial xlValues
n = n + 1
ElseIf Tabelle7.Cells(1, 4).Value = "KST-B" And .Cells(Zeile, 1).Value = 2 Then
.Rows(Zeile).Copy
Tabelle7.Rows(intOben + n).PasteSpecial xlValues
n = n + 1
ElseIf Tabelle7.Cells(1, 4).Value = "KST-C" And .Cells(Zeile, 1).Value = 3 Then
.Rows(Zeile).Copy
Tabelle7.Rows(intOben + n).PasteSpecial xlValues
n = n + 1
ElseIf Tabelle7.Cells(1, 4).Value = "KST-D" And .Cells(Zeile, 1).Value = 4 Then
.Rows(Zeile).Copy
Tabelle7.Rows(intOben + n).PasteSpecial xlValues
n = n + 1
End If
Next Zeile
End With
End Sub
Anzeige