Thema Datum  Von Nutzer Rating
Antwort
16.06.2015 18:39:34 Bonaventura
NotSolved
Blau 3 Variablen zählen lassen
 16.06.2015 19:24:44 Gast38648
Solved
17.06.2015 11:01:29 Bonaventura
Solved

Ansicht des Beitrags:
Von:
Gast38648		 Datum:
16.06.2015 19:24:44		 Views:
966		 Rating:
     
Antwort:
 Nein
Thema:
3 Variablen zählen lassen		 
Option Explicit

Sub Bsp()
  
  Const A As Integer = 42
  Const B As Integer = 3
  Const C As Integer = 55
  
  Dim rng As Excel.Range
  Dim ao1 As Integer, ao2 As Integer
  Dim bo1 As Integer
  Dim co1 As Integer
  Dim k As Long
  Dim n As Long
  
  Set rng = Range("A1:C1")
  Call rng.EntireColumn.Clear
  
  For n = 1 To 3
    
    For k = 1 To 13
      rng.Value = Array(A + ao1 + ao2, B + bo1, C + co1)
      ao1 = ao1 - 1
      bo1 = bo1 + 1
      Set rng = rng.Offset(1)
    Next
    
    With rng.Borders(xlEdgeTop)
      .LineStyle = XlLineStyle.xlContinuous
      .Weight = XlBorderWeight.xlThick
      .Color = vbBlack
    End With
    
    co1 = co1 - 1
    ao2 = ao2 + 1
    ao1 = 0
    bo1 = 0
  Next
  
  Call rng.EntireColumn.AutoFit
  
End Sub

 

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
16.06.2015 18:39:34 Bonaventura
NotSolved
Blau 3 Variablen zählen lassen
 16.06.2015 19:24:44 Gast38648
Solved
17.06.2015 11:01:29 Bonaventura
Solved