Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
MsgBox "Herrlich, heut ist " & WoTage(7)<br />
Worksheets(1).Range("A1:G1").Value = WoTage<br />
Worksheets(1).Range("A3:A9").Value = _<br />
WorksheetFunction.Transpose(WoTage)<br />
Worksheets(1).Columns("A:G").AutoFit<br />
End Sub<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
ByRef <br />
<br />
<br />
Weiten <br />
SetWeiten <br />
[a, b] <br />
Sub SetWeiten(ByRef w() As Double, _<br />
ByVal a As Double, ByVal b As Double)<br />
Dim i As Long<br />
For i = LBound(w) To UBound(w)<br />
w(i) = Round(a + (b - a) * Rnd(), 2)<br />
Next i<br />
End Sub<br />
Max<br />
MyMax <br />
Function MyMax(ByRef u As Variant) As Variant<br />
Dim i As Long<br />
MyMax = u(LBound(u))<br />
For i = LBound(u) + 1 To UBound(u, 1)<br />
If (u(i) > MyMax) Then MyMax = u(i)<br />
Next i<br />
End Function<br />
Variant