Mitglieder - Excel Community

Forum Replies Created

Page 2 of 7

tom

Administrator
17. Februar 2025 at 14:59 in reply to: Test Einfach
```
Sub Test ()

MsgBox "Hallo Welt!"

End Sub
```
tom

Administrator
13. Januar 2025 at 22:00 in reply to: Test Final 3
```
Sub Test()

MsgBox "Test nur mit VBA"

End Sub
```
tom

Administrator
13. Januar 2025 at 22:00 in reply to: Test Final 3
Antwort mit Text und VBA
```
Sub Test()

MsgBox "Antwort mit Text und VBA"

End Sub
```
tom

Administrator
20. Dezember 2024 at 17:36 in reply to: Test Einfach
```
Test
```
tom

Administrator
20. Dezember 2024 at 17:33 in reply to: Test Einfach
```
Test
```
tom

Administrator
20. Dezember 2024 at 17:22 in reply to: Test Einfach
```
Test Wild
```
tom

Administrator
20. Dezember 2024 at 17:12 in reply to: Test Einfach
```
Test
```
tom

Administrator
20. Dezember 2024 at 17:04 in reply to: Test Einfach
```
Sub Test()
```
tom

Administrator
18. Dezember 2024 at 12:57 in reply to: Test Einfach
Antwort 1:
```
Sub Test ()

MsgBox "Hallo zurück!"

End Sub
```
tom

Administrator
16. Dezember 2024 at 21:50 in reply to: Test für Tom
```
Sub Test3 ()

MsgBox "Hallo nochmals"

End Sub
```
tom

Administrator
16. Dezember 2024 at 21:49 in reply to: Test für Tom
```
Sub Test2 ()

MsgBox "Hallo nochmal!"

End Sub
```
tom

Administrator
16. Dezember 2024 at 21:42 in reply to: Test 10
```
Sub Test()

MsgBox "Hallo!"

End Sub
```

tom

Administrator

16. Dezember 2024 at 21:15 in reply to: Test Komplex 2



Sub Falzrand()

    Dim shpConnect  As Shape

    'Abstand vom Seitenrand (Vertikal) 8.7cm

    'Abstand von der Seite (inkl. Kopfzeile) 11.2 cm

    'Faktor=28.37*11.2cm

    'Bevorzugt aber 295

    With ActiveDocument.Shapes.AddConnector _

         (Type:=msoConnectorStraight, _

         BeginX:=0, _

         BeginY:=295, _

         EndX:=25, _

         EndY:=295)

        .Line.ForeColor.RGB = RGB(0, 0, 0)

    End With

End Sub

tom

Administrator

16. Dezember 2024 at 21:14 in reply to: Test Komplex 2



Sub Falzrand()

    Dim shpConnect  As Shape

    'Abstand vom Seitenrand (Vertikal) 8.7cm

    'Abstand von der Seite (inkl. Kopfzeile) 11.2 cm

    'Faktor=28.37*11.2cm

    'Bevorzugt aber 295

    With ActiveDocument.Shapes.AddConnector _

         (Type:=msoConnectorStraight, _

         BeginX:=0, _

         BeginY:=295, _

         EndX:=25, _

         EndY:=295)

        .Line.ForeColor.RGB = RGB(0, 0, 0)

    End With

End Sub

tom

Administrator
16. Dezember 2024 at 21:13 in reply to: Test 5
```
Sub Test()

MsgBox "Hallo, Welt!"

End Sub
```

Page 2 of 7

← 1 2 3 … 7 →