Thema Datum  Von Nutzer Rating
Antwort
23.09.2014 17:54:33 legacys
NotSolved
Blau Schleife zur Prüfung des Datums
 23.09.2014 18:00:04 Gast47246
NotSolved

Ansicht des Beitrags:
Von:
Gast47246		 Datum:
23.09.2014 18:00:04		 Views:
692		 Rating:
     
Antwort:
  Ja
Thema:
Schleife zur Prüfung des Datums

hier der Code in der Richtige-Format :)

 

Sub chart()
Dim a As Date
Dim anzahlberechnen1, anzahlberechnen2, j, k, intAnz, intAnz2 As Integer
Dim zelle As Variant


For k = 2 To Worksheets("tabelle1").Cells(Rows.Count, 6).End(xlUp).Row
zelle = Worksheets("tabelle1").Cells(k, 6).Value

a = Worksheets("tabelle1").Range("e" & k).Value


If (zelle = "abgelehnt") And (Worksheets("tabelle2").Cells(k, 1) = MonthName(Month(a))) Then
intAnz = intAnz + 1
end if 
If (zelle = "bestätigt" ) And (Worksheets("tabelle2").Cells(k, 2) = MonthName(Month(a))) Then
intAnz2 = intAnz2 + 1
End If

Next k

anzahlberechnen1 = intAnz
anzahlberechnen2 = intAnz2

With Worksheets("tabelle2")

letzte_zeile = .Range("b65536").End(xlUp).Offset(1, 0).Row

For j = 2 To 13

Cells(j, 2).Value = anzahlberechnen1

Cells(j, letzte_zeile + 1).Value = anzahlberechnen2

Next j


End With

 

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
23.09.2014 17:54:33 legacys
NotSolved
Blau Schleife zur Prüfung des Datums
 23.09.2014 18:00:04 Gast47246
NotSolved