Thema Datum  Von Nutzer Rating
Antwort
09.12.2018 16:26:19 Anna
NotSolved
Blau Tabellenbezug herstellen
 09.12.2018 18:46:22 Gast75147
Solved

Ansicht des Beitrags:
Von:
Gast75147		 Datum:
09.12.2018 18:46:22		 Views:
460		 Rating:
     
Antwort:
 Nein
Thema:
Tabellenbezug herstellen

In deinem terminus technicus - So, oder so ähnlich

Sub Aufgabe()
'As long - damit auch unmögliche Zahlenwerte nicht knallen
Dim Differenz As Long
Dim Jahreszahl As Long
Dim Min As Long
Dim Max As Long
'
Const Vorgabe As Long = 2018  '***************
'
Dim Anzahl As Long
Dim Sum As Long
'As Variant - da Typ nicht bekannt
Dim Variable As Variant
Dim Minvariable As Variant
Dim Maxvariable As Variant
'Zeilen zählen, die Spalte Jahreszahl ist durchgehend befüllt
Dim x As Long

   'Max/MIN als Gegenteil
   Min = WorksheetFunction.Max(Columns(1))
   Max = WorksheetFunction.Min(Columns(1))
   
   'alles bezogen auf die gerade aktive Arbeitstabelle
   x = 2
   Do While Cells(x, 1).Value <> ""
      Differenz = Abs(Vorgabe - Cells(x, 1))
      If Differenz < Min Then
         Min = Differenz
         Minvariable = Cells(x, 2).Value
      End If
      If Differenz > Max Then
         Max = Differenz
         Maxvariable = Cells(x, 2).Value
      End If
      '
      Sum = Sum + Differenz
      Cells(x, 5).Value = Differenz
      'Anzahl ergibt sich durch Schleifenende
      x = x + 1   'nächste
   Loop
   '
   Call MsgBox("Minimum " & Format(Min, "0") & vbLf & _
   "Maximum " & Format(Max, "0") & vbLf & _
   "Durchschnitt " & Format(Sum / (x - 2), "0.00") & vbLf _
   & "Zeilen " & Format(x - 2, "0"), _
   vbInformation + vbOKOnly, "Ergebnisse")
   
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
09.12.2018 16:26:19 Anna
NotSolved
Blau Tabellenbezug herstellen
 09.12.2018 18:46:22 Gast75147
Solved