Programmierung in VBA - EinMalEins

Hallo!
Ich möchte in VBA ein Programm eingeben,
welches folgendes erledigen soll:
Es soll eingeben werden, der Startpunkt in der Tabelle (welche Zeile) und es soll eingeben werden, bis wohin das EinMalEins berechnet und ausgegeben werden soll.
Das Ganze soll in VBA programmiert sein und soll in der Ausgabe folgendermassen aussehen:
!1 ! 2 ! 3 ! 4 ! 5 !...
-------------------------
1!1 ! 2 ! 3 ! 4 ! 5 !...
-------------------------
2!2 ! 4 ! 6 ! 8 !10 !...
-------------------------
3!3 ! 6 ! 9 !12 !15 !...
-------------------------
4!4 ! 8 !12 !16 !20 !...
-------------------------
5!5 !10 !15 !20 !25 !...
-------------------------
.! .! . ! . ! . ! .
.! .! . ! . ! . ! .
.! .! . ! . ! . ! .
Wer kann mir schnell weiterhelfen?
Vielen Dank!!!!!!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Einmaleins() Dim StartZeile As Long Dim EinmalEinsBis As Integer Dim I As Integer Dim J As Long StartZeile = InputBox("Bitte Startzeile angeben!") EinmalEinsBis = InputBox("Bis vohin soll gerechnet werden?") For I = 1 To 10 Cells(StartZeile, I).Value = I Next I StartZeile = StartZeile + 1 For I = 1 To EinmalEinsBis For J = 1 To 10 Cells(StartZeile, J).Value = I * J Next J StartZeile = StartZeile + 1 Next I End Sub

'Schriftgröße und Art With Range(Cells(StartZeile, 1), Cells(StartZeile, 10)).Font .Name = "Arial" .Size = 12 End With 'Rahmen um die Zellen With Range(Cells(StartZeile, 1), Cells(StartZeile, 10)).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin End With With Range(Cells(StartZeile, 1), Cells(StartZeile, 10)).Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin End With With Range(Cells(StartZeile, 1), Cells(StartZeile, 10)).Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin End With With Range(Cells(StartZeile, 1), Cells(StartZeile, 10)).Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin End With

Hallo Leslie,
was heißt alle Zahlen? Nur die in der Überschrift, dann ergänze noch


With Range(Cells(StartZeile, 1), Cells(StartZeile, 10)).Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With

Wenn du alle Zahlen meinst, dann sieht das Makro so aus:


Sub Einmaleins()
Dim StartZeile As Long
Dim EinmalEinsBis As Integer
Dim I As Integer
Dim J As Long
StartZeile = InputBox("Bitte Startzeile angeben!")
EinmalEinsBis = InputBox("Bis vohin soll gerechnet werden?")
For I = 1 To 10
Cells(StartZeile, I).Value = I
Next I
StartZeile = StartZeile + 1
For I = 1 To EinmalEinsBis
For J = 1 To 10
Cells(StartZeile, J).Value = I * J
Next J
StartZeile = StartZeile + 1
Next I
With Range(Cells(StartZeile, 1), Cells(StartZeile, 10)).Font
.Name = "Arial"
.Size = 12
End With
With Range(Cells(StartZeile - EinmalEinsBis - 1, 1), Cells(StartZeile - 1, 10)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Range(Cells(StartZeile - EinmalEinsBis - 1, 1), Cells(StartZeile - 1, 10)).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Range(Cells(StartZeile - EinmalEinsBis - 1, 1), Cells(StartZeile - 1, 10)).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Range(Cells(StartZeile - EinmalEinsBis - 1, 1), Cells(StartZeile - 1, 10)).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Range(Cells(StartZeile - EinmalEinsBis - 1, 1), Cells(StartZeile - 1, 10)).Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Range(Cells(StartZeile - EinmalEinsBis - 1, 1), Cells(StartZeile - 1, 10)).Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
End With
End Sub

Worti

Beliebteste Forumthreads (12 Monate)

Programmierung in VBA - EinMalEins

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Programmierung in VBA - EinMalEins

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread