Suchen - Ersetzen
08.07.2004 06:56:39
Bearny
und zwar möchte ich mit einem Makro in einer Zelle einen Pfadnamen kopieren und auf einer anderen Tabelle in mehreren Zellen in denen eine Formel steht suchen-ersetzen.
Momentan ist der Pfad fix festgelegt im Makro - dieser ist aber variabel, d.h. irgenwie muss dort die Zelle/Variable stehen....?
wie ist das möglich - hab mal mit Makrorekorder was aufgezeichnet - vielleicht kann man das ja abändern?
Sub Kabelberechnung()
Sheets("Berechnung der Kabel").Select
Range("A4:CA8784").Select
Selection.ClearContents
Range("A3").Select
Sheets("Kabelbedarf").Select
Range("C4:F4").Select
ActiveCell.FormulaR1C1 = _
"'\\nws020\Produktion\ElektroAVOR\L-4042 Brünig\F R E I G A B E N\Endwagen1\Kabelliste\[114956_Kabelliste Spatz EW1.xls]EW1'!$F2"
Sheets("Berechnung der Kabel").Select
Range("A3:CA3").Select
Selection.AutoFill Destination:=Range("A3:CA3380"), Type:=xlFillDefault
Range("A3:CA3380").Select
ActiveWindow.LargeScroll Down:=-17
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A2:CA2").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Sheets("Kabelbedarf").Select
End Sub
mfg. bearny