Bereich auffüllen
06.05.2007 18:15:26
Roger
mit dem folgenden Makro suche ich einen Bereich ab. Danach würde ich gerne Spalte A, B und C mit Werten aus Inputboxen ergänzen. Aber es geht nicht!
Kann mir jemand weiterhelfen?
Sub test()
Dim LK As Long
Dim Port As Long
Dim MSN As Long
''' Bereich scannen
For I = 1 To 2000
Wert = Cells(I, 1).Value
Select Case Wert
Case Is ""
Ende = I
End Select
Next I
For J = 2000 To 1 Step -1
Wert = Cells(J, 1).Value
Select Case Wert
Case Is ""
Beginn = J
End Select
Next J
blk = "A" & Beginn & ":" & "A" & Ende
BPort = "B" & Beginn & ":" & "B" & Ende
BMSN = "C" & Beginn & ":" & "C" & Ende
LK = InputBox("Bitte geben Sie den LK ein:", "LK")
Port = InputBox("Bitte geben Sie den Port ein:", "Port")
MSN = InputBox("Bitte geben Sie den MSN ein:", "MSN")
''' LK
Range("BLK") = LK
''' Port
Range("BPort") = Port
''' MSN
Range("BMSN") = MSN
End Sub
Besten Dank im voraus
Gruss Roger