Spalten fest definieren in VBA
06.11.2019 11:44:38
Nils
ich hänge hier grad etwas in meinem Code. Und zwar möchte ich analog zu Max_Zeilen_Data_Object = .Range("No_Data_Objects") auch folgende punkte fest definieren:
Erste_Zeile_PRP = 47
Spalte_Brand_Previous = 3
Spalte_Current_IT_Sys_Previous = 4
Spalte_Planned_IT_Sys_Previous = 5
Spalte_Data_Object = 8
Spalte_Current_IT_Sys_Succ = 14
Spalte_Planned_IT_Sys_Succ = 15
Spalte_Brand_Succ = 16
Daher soll zbsp. nicht mehr Erste_Zeile_PRP = 47 stehen, sondern ein fester wert für 47. In Zeile 46 habe ich bereits einen festen namen defniert. (Beginn_Brands) daher muss ich das irg mit + 1 kombinieren. (zur infos. das ganze steht in spalte 3)
Wäre klasse wenn ihr mir da etwas helfen könnt.
Sub Collect_Raw_Data_Test()
Dim Data_object As String
Dim Data_Char As String
Dim ITSys_Planned As String
Dim ITSys_Current As String
Dim Brand As String
Dim Max_Zeilen_Data_Object As Integer
Dim aktuelle_Zeile As Integer
Dim Max_Zeilen_ITSys_Current As Integer
Dim Max_Zeilen_ITSys_Planned As Integer
Dim Brand_counter As Integer
Dim Erste_Zeile_PRP As Long
Dim Spalte_Brand_Previous As Long
Dim Spalte_Current_IT_Sys_Previous As Long
Dim Spalte_Planned_IT_Sys_Previous As Long
Dim Spalte_Data_Object As Long
Dim Spalte_Current_IT_Sys_Succ As Long
Dim Spalte_Planned_IT_Sys_Succ As Long
Dim Spalte_Brand_Succ As Long
aktuelle_Zeile = 0
Brand_counter = 0
ITSys_Planned_counter = 0
With ActiveWorkbook.Worksheets("PRP_3a") 'Aber hier werden dei Inhalte definiert die das PRP_x _
_
_
_
ausmachen, bzw wo die Daten stehen.
Max_Zeilen_Data_Object = .Range("No_Data_Objects")
Max_Zeilen_ITSys_Current = .Range("No_IT_Sys_Prev")
Erste_Zeile_PRP = 47
Spalte_Brand_Previous = 3
Spalte_Current_IT_Sys_Previous = 4
Spalte_Planned_IT_Sys_Previous = 5
Spalte_Data_Object = 8
Spalte_Current_IT_Sys_Succ = 14
Spalte_Planned_IT_Sys_Succ = 15
Spalte_Brand_Succ = 16
For j = 0 To Max_Zeilen_ITSys_Current - 1
For i = 0 To Max_Zeilen_Data_Object - 1
Brand = .Cells(Erste_Zeile_PRP + Brand_counter, Spalte_Brand_Previous).Value
ITSys_Current = .Cells(Erste_Zeile_PRP + j, Spalte_Current_IT_Sys_Previous).Value
ITSys_Planned = .Cells(Erste_Zeile_PRP + j, Spalte_Planned_IT_Sys_Previous).Value
Data_object = .Cells(Erste_Zeile_PRP + i, Spalte_Data_Object).Value
Worksheets("RawData").Cells(3 + aktuelle_Zeile, 3).Value = Brand
Worksheets("RawData").Cells(3 + aktuelle_Zeile, 4).Value = ITSys_Current
Worksheets("RawData").Cells(3 + aktuelle_Zeile, 5).Value = ITSys_Planned
Worksheets("RawData").Cells(3 + aktuelle_Zeile, 6).Value = Data_object
Worksheets("RawData").Cells(3 + aktuelle_Zeile, 7).Value = "Previous"
aktuelle_Zeile = aktuelle_Zeile + 1
Next i
Brand_counter = Brand_counter + 1
Next j
Max_Zeilen_ITSys_Current = .Range("No_of_IT_Sys_Plan")
For m = 0 To Max_Zeilen_ITSys_Current - 1
For p = 0 To Max_Zeilen_Data_Object - 1
Brand = .Cells(Erste_Zeile_PRP + m, 16).Value
ITSys_Current_succ = .Cells(Erste_Zeile_PRP + m, Spalte_Current_IT_Sys_Succ).Value
ITSys_Planned_succ = .Cells(Erste_Zeile_PRP + m, Spalte_Planned_IT_Sys_Succ).Value
Data_object = .Cells(Erste_Zeile_PRP + p, Spalte_Data_Object).Value
Worksheets("RawData").Cells(3 + aktuelle_Zeile, 3).Value = Brand
Worksheets("RawData").Cells(3 + aktuelle_Zeile, 4).Value = ITSys_Current_succ
Worksheets("RawData").Cells(3 + aktuelle_Zeile, 5).Value = ITSys_Planned_succ
Worksheets("RawData").Cells(3 + aktuelle_Zeile, 6).Value = Data_object
Worksheets("RawData").Cells(3 + aktuelle_Zeile, 7).Value = "Succeeding"
aktuelle_Zeile = aktuelle_Zeile + 1
Next p
Brand_counter = Brand_counter + 1
Next m
End With
End Sub