|
Hallo VBA Gemeinde,
ich bin relativ neu in VBA, und suche daher hier Hilfe und Tipps.
Was ich derzeit Versuche:
Ich möchte, jede 8te Zeile auslesen, in einem Array speichern, dann Vergleichen ob es diesen Wert schon gibt, falls nicht ihn numerisch fortlaufend umbennen und eine Zeile unter der ausgelesenen abspeichern. Sollte es den Wert schon geben, soll der bereits dafür umbenannte Wert eine Zeile unter der ausgelesenen geschrieben werden.
Da ich diese Sprache schliesslich lernen will, würde ich euch bitten nicht direkt die Lösung zu posten, sondern mir erstmal tipps geben, wie ich das Vergleichen und umbennen am besten hin kriege.
Das Auslesen und speichern würde ich mit etwas ähnlichem wie diesem hier versuchen:
For i = 2 To 9999 Step 8
nrCell = "A" & i
valCell = Worksheets("Input").Range(nrCell).Value
Debug.Print valCell
Worksheets("Input").Range("A" & i + 1).Value = valCell
Next
Gruß
|