Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Monate hochzählen
zurück: Text Import weiter: copy -> clear -> paste möglich? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
h0lger
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Aug 2010, 09:46
Rufname:

Monate hochzählen - Monate hochzählen

Nach oben
       Version: Office 2003

Code:
 
Private Sub cbDaten_Click()
Dim x As Integer
Dim l As Integer
x = 1
l = 1
   
Do           
        Range("B13") = TextBox1.Text
        If ComboBox1.Text = "monatlich" Then
            Range(Cells(14, 2), Cells(14 + l, 2)) = Format(1 & "." & x & "." & Year    (Date), "dd.mm.yyyy")
        End If
     
  x = x + 1
  l = l + 1
Loop Until x = 12


der gute Herr soll einfach nur in 12 Zellen ( 1. Monat. 2010) schreiben, wobei der Monat für jede Zelle erhöht werden soll. schon viel versucht...aber bin wahrscheinlich wieder aufem falschen Dampfer. Vielen Dank für jede Hilfe
Gast



Verfasst am:
26. Aug 2010, 12:14
Rufname:


AW: Monate hochzählen - AW: Monate hochzählen

Nach oben
       Version: Office 2003

a1 1.januar 2010
a2 1.februar 2010
a3 1.märz 2010
.
.
.
.


wie krich ich das hin?
Phelan XLPH
Fortgeschritten


Verfasst am:
26. Aug 2010, 12:36
Rufname: Phelan

AW: Monate hochzählen - AW: Monate hochzählen

Nach oben
       Version: Office 2003

Hallo Holger,

Code:
Private Sub cbDaten_Click()
    'Startzelle (hier [B14]) kannst du nach belieben anpassen
    With Range("B14").Resize(12)
        .Formula = "=DATE(YEAR(TODAY()),ROW()-" & .Row - 1 & ",1)"
        .Copy
        .PasteSpecial xlPasteValues
        .NumberFormat = "dd/ mmmm yyyy"
    End With
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
26. Aug 2010, 12:53
Rufname:

AW: Monate hochzählen - AW: Monate hochzählen

Nach oben
       Version: Office 2003

Guten Tag Holger!

Code:
Sub test()

Select Case ComboBox1.Text
Case "monatlich"
            Cells(13, 2) = TextBox1.Text
            Cells(14, 2) = DateSerial(Year(Date), 1, 1)
            Cells(15, 2) = DateSerial(Year(Date), 2, 1)
            Range(Cells(14, 2), Cells(15, 2)).AutoFill Destination:=Range(Cells(14, 2), Cells(25, 2)), Type:=xlFillSeries
Case Else
End Select
End Sub


Gruß Gerd
h0lger
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Aug 2010, 14:33
Rufname:


AW: Monate hochzählen - AW: Monate hochzählen

Nach oben
       Version: Office 2003

erstma vielen dank an euch beide, funktioniert auf jeden fall. aber ganz so einfach ist es dann doch nich. mein makro trägt auszustehende raten in eine excel liste ein ( also jedweils das Datum)

sprich, wenn man "monatlich" auswählt und als erste Rate "15.3.2010" eingibt

dann solln 11 zellen darunter mit
15.4.2010
15.5.2010
etc
gefüllt werden... ich muss irgendwie die Monate manuell erhöhen, ich hab auch absolut keine idee, aussser vllt 3 textboxen für ein datum zu nehmen, was aber auch nicht sinn der sache sein kann
Phelan XLPH
Fortgeschritten


Verfasst am:
26. Aug 2010, 14:46
Rufname: Phelan

AW: Monate hochzählen - AW: Monate hochzählen

Nach oben
       Version: Office 2003

Was steht denn hier drin z.B.:
TextBox1.Text

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
h0lger
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Aug 2010, 15:01
Rufname:

AW: Monate hochzählen - AW: Monate hochzählen

Nach oben
       Version: Office 2003

wann die erste rate fällig wird.
wenn am textbox1 = 1.8.10 dann sollte das makro nicht darunter 1.1.10 schreiben, sondern eben 1.9.10
Gast



Verfasst am:
26. Aug 2010, 15:11
Rufname:

AW: Monate hochzählen - AW: Monate hochzählen

Nach oben
       Version: Office 2003

Hallo Holger!

Code:
Sub teste_mal_2()

Select Case ComboBox1.Text
Case "monatlich"
            Cells(13, 2) = CDate(TextBox1.Text)
            Cells(14, 2) = DateSerial(Year(CDate(TextBox1.Text)), Month(CDate(TextBox1.Text)) + 1, Day(CDate(TextBox1.Text)))
            Range(Cells(13, 2), Cells(14, 2)).AutoFill Destination:=Range(Cells(13, 2), Cells(24, 2)), Type:=xlFillSeries
Case Else
End Select
End Sub


Gruß Gerd
h0lger
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Aug 2010, 15:16
Rufname:


AW: Monate hochzählen - AW: Monate hochzählen

Nach oben
       Version: Office 2003

super gerd!
genau das wollt ich, echt klasse
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Datum berechnen wenn nur Anzahl Monate vorliegt 4 WilliMeier 470 03. Feb 2009, 19:31
WilliMeier Datum berechnen wenn nur Anzahl Monate vorliegt
Keine neuen Beiträge Excel Formeln: Gesamtmonate, Jahre Monate umrechnen 2 Höttl Wilfried 3308 10. Jan 2009, 12:13
Höttl Wilfried Gesamtmonate, Jahre Monate umrechnen
Keine neuen Beiträge Excel Formeln: Wie kann ich eine Zahl innerhalb eines textes hochzählen 8 Gast1234556 400 12. Dez 2008, 21:19
Klaus-Dieter Wie kann ich eine Zahl innerhalb eines textes hochzählen
Keine neuen Beiträge Excel Formeln: 2 Jahre, 11 Monate, 19 Tage 8 Wast1 675 21. Nov 2008, 11:40
< Peter > 2 Jahre, 11 Monate, 19 Tage
Keine neuen Beiträge Excel Formeln: Excel, Vergleiche innerhalb der Spalte + Zahl hochzählen? 1 Markus in trouble 2513 12. Okt 2008, 23:52
Klaus aus M Excel, Vergleiche innerhalb der Spalte + Zahl hochzählen?
Keine neuen Beiträge Excel Formeln: Bei gleichem Inhalt von Zellen automatisches hochzählen 3 Gast 1583 13. Sep 2008, 02:41
Bernd S Bei gleichem Inhalt von Zellen automatisches hochzählen
Keine neuen Beiträge Excel Formeln: Datum anzeigen in Jahre Monate und Tage 3 David Fölk 1806 26. Aug 2008, 19:24
David Fölk Datum anzeigen in Jahre Monate und Tage
Keine neuen Beiträge Excel Formeln: Gültigkeitsregel Datum nur bestimmte Monate eingeben 2 mausi181987 974 14. Mai 2008, 11:34
mausi181987 Gültigkeitsregel Datum nur bestimmte Monate eingeben
Keine neuen Beiträge Excel Formeln: Von Datumsangabe Monate abziehen? 5 Daniel_3602 3005 07. Feb 2008, 17:52
Hübi Von Datumsangabe Monate abziehen?
Keine neuen Beiträge Excel Formeln: Heute minus datum = anzahl der monate 6 the-styler 15046 08. Jan 2008, 14:10
McAdder Heute minus datum = anzahl der monate
Keine neuen Beiträge Excel Formeln: Anzahl der vollen Monate zwischen 2 Daten berechnen? 3 techfactor 15531 01. Dez 2007, 17:15
techfactor Anzahl der vollen Monate zwischen 2 Daten berechnen?
Keine neuen Beiträge Excel Formeln: Doppelte Zeileneinträge hochzählen 11 Christoph12345 479 07. Nov 2007, 09:37
Christoph12345 Doppelte Zeileneinträge hochzählen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver