Variable anhand eines Find-Befehls
09.10.2016 15:59:47
Orgeto
Ich möchte mich gerne mit folgendem Problem an euch wenden:
Ich habe folgende Datei:
https://www.herber.de/bbs/user/108678.xlsm
MIt folgendem Code, zu dem ich fragen möchte:
Sub Rüberziehen()
Dim ZeileEintrag As Integer
Dim SpalteEintrag As Integer
Dim ZeileTitel As Integer
Dim SpalteTitel As Integer
Dim ZeileKopiert As Integer
Dim SpalteKopiert As Integer
Dim Zwischenwert As Variant
ZeileTitel = 35
SpalteTitel = 1
ZeileEintrag = 36
SpalteEintrag = 1
ZeileKopiert = 8
Do
ThisWorkbook.Worksheets("Input List").Activate
Zwischenwert = Cells(ZeileEintrag, SpalteEintrag).Value
'Ab hier: Adaptiv
If Cells(ZeileTitel, SpalteTitel) = "Asset Type" Then
Worksheets("Tabelle1").Cells(ZeileKopiert, 27).Value = Zwischenwert
End If
'Bis hier: Adaptiv
SpalteTitel = SpalteTitel + 1
SpalteEintrag = SpalteEintrag + 1
If Cells(ZeileTitel, SpalteTitel) = "" Then
ZeileKopiert = ZeileKopiert + 1
SpalteTitel = 1
SpalteEintrag = 1
ZeileTitel = ZeileTitel + 2
ZeileEintrag = ZeileEintrag + 2
End If
Loop Until Cells(ZeileEintrag, 1) = ""
End Sub
Ziel: Das Makro sucht bei Cells(36,1) in Range("a1:ai1") den Suchbegriff Cells(36,1) und nimmt die Zahl darunter dann als Spaltenzahl für das reinkopieren in Tabelle1. (Im Fall von 35,1 wäre es dementsprechend Cells(8,27)
Problem: Der Code funktioniert weit genug, dass ich das Problem theoretisch mit einem riesigen If-Befehl lösen könnte (so wie im kursiven Teil), aber ich würde es bevorzugen, eine zusätzliche Variable einzurichten, die mir die Zahl aus Zeile 2 heraussucht und als Variable für den Cells-Befehl zur Verfügung stellt.
Nach 3 Stunden voll Fehlermeldungen an einem schönen Sonntagnachmittag bitte ich höflich um Vorschläge, wie ich diese Variable innerhalb des kursiven Bereichs etablieren kann.
Ich hoffe, dass ich das Problem klar genug umschrieben habe und wünsche euch allen noch einen angenehmen Sonntag.
Orgeto