Thema Datum  Von Nutzer Rating
Antwort
19.12.2017 19:40:21 Siva
NotSolved
19.12.2017 22:41:47 Gast58661
NotSolved
20.12.2017 07:20:55 Gast6057
NotSolved
20.12.2017 08:10:37 Gast13246
NotSolved
20.12.2017 08:16:24 Gast90064
NotSolved
Blau Makro um automatisch Zahlen hinzufügen
 20.12.2017 08:23:36 Gast41904
NotSolved
20.12.2017 11:32:43 Gast10733
NotSolved
20.12.2017 11:44:36 Gast12661
NotSolved
20.12.2017 13:59:08 Gast61428
NotSolved
20.12.2017 14:00:37 Siva
NotSolved
20.12.2017 14:02:34 Siva
NotSolved
20.12.2017 16:30:11 Gast6057
NotSolved
20.12.2017 20:17:41 Gast56108
NotSolved
21.12.2017 07:39:21 RPP63
Solved
21.12.2017 10:27:08 Gast49647
NotSolved
21.12.2017 09:53:30 Gast6057
NotSolved
21.12.2017 09:59:23 RPP63
NotSolved
20.12.2017 21:22:00 SF
NotSolved

Ansicht des Beitrags:
Von:
Gast41904		 Datum:
20.12.2017 08:23:36		 Views:
735		 Rating:
     
Antwort:
  Ja
Thema:
Makro um automatisch Zahlen hinzufügen
 

Private Sub CommandButton1_Click()
Dim hauptwert As Integer
Dim i As Integer
Dim x As Integer
Dim y As Integer

Do While 

 If "Range("A" & i) = "" Then
     Exit Do
End If

i = i+1

hauptwert = Range("A" & i)

For x = 1 To 6
i = hauptwert + x
Range(x+1 & y) = i
Next x

y=y+ 1

Loop 

End Sub
 
So könnte es funktiuonieren, habe es aber nicht testen können.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.12.2017 19:40:21 Siva
NotSolved
19.12.2017 22:41:47 Gast58661
NotSolved
20.12.2017 07:20:55 Gast6057
NotSolved
20.12.2017 08:10:37 Gast13246
NotSolved
20.12.2017 08:16:24 Gast90064
NotSolved
Blau Makro um automatisch Zahlen hinzufügen
 20.12.2017 08:23:36 Gast41904
NotSolved
20.12.2017 11:32:43 Gast10733
NotSolved
20.12.2017 11:44:36 Gast12661
NotSolved
20.12.2017 13:59:08 Gast61428
NotSolved
20.12.2017 14:00:37 Siva
NotSolved
20.12.2017 14:02:34 Siva
NotSolved
20.12.2017 16:30:11 Gast6057
NotSolved
20.12.2017 20:17:41 Gast56108
NotSolved
21.12.2017 07:39:21 RPP63
Solved
21.12.2017 10:27:08 Gast49647
NotSolved
21.12.2017 09:53:30 Gast6057
NotSolved
21.12.2017 09:59:23 RPP63
NotSolved
20.12.2017 21:22:00 SF
NotSolved