TweakPC

Zurück   Computer Hardware Forum - TweakPC > Games und Software > Programmiersprachen

Antwort
 
LinkBack Themen-Optionen Ansicht
Alt 04.03.2009, 12:38   #1 (permalink)
Extrem Performer
 
Benutzerbild von snoooc
 

Registriert seit: 11.07.2006
Beiträge: 1.110

snoooc sorgt für eine eindrucksvolle Atmosphäresnoooc sorgt für eine eindrucksvolle Atmosphäre

Standard Makro schreib Problem Excel

Moin,
eigentlich wollte ich hier nicht nachfragen, in der Hoffnung über Google alles zu finden oder es selbst hin zu bekommen.
Mein Auftrag ist es ein Makro zu schreiben (Excel), welches es ermöglicht auf druck das Aktuelle Datum und 26 Tage hinterher (Also insgesammt 27 Tage) in eine Zeile zu Schreiben (z.B.: A1 bis A27).

Hab da zwar schon Quell Text zu entworfen, bekomme aber keine Kalender abfrage hin:

Sub Makro1()
'
' Makro1 Makro
' Makro am 04.03.2009 von it.servicedesk aufgezeichnet
'
'
Datum = Date
vbCalGerg = Datum
Kalender = vbCalGerg
Dim oBlatt As Worksheet
Set oBlatt = ThisWorkbook.Worksheets("Tabelle1") 'Tabellennamen gg. anpassen
'Cell = ("A1")
Select Case Kalender
Case 1: Cell =("A2")to("A30").Datum = Datum + 1 'Ausgabe der hoch gerechneten Werte
Case 2: 'Ausgabe der hoch gerechneten Werte
Case 3: 'Ausgabe der hoch gerechneten Werte
Case 4: 'Ausgabe der hoch gerechneten Werte
Case 5: 'Ausgabe der hoch gerechneten Werte
Case 6: While (Datum = vbSaturday)
If (vbSaturday) Then
Datum = Datum + 2
End If
vbCalGerg = Datum
Case 1. SetFocus.
Wend

Case 7: While (Datum = vbSunday)
If (vbSaturday) Then
Datum = Datum + 1
End If
vbCalGerg = Datum
Wend
End Select
'While (Datum = vbSaturday)
'If (vbSaturday) Then
'Datum = Datum + 2
'End If
'vbCalGerg = Datum
'Wend


End Sub
'Tag = Left(Datum, 2)
'Monat = Mid(Datum, 4, 2)
'Jahr = Mid(Datum, 7)


Hier mal das bis jetzige. Kann mir einer von euch erklären wie ich das machen kann!?


Danke im Voraus,

snoooc
Signaturen sind sch***e
Mein System: http://www.sysprofile.de/id28074
snoooc ist offline   Mit Zitat antworten
Alt 04.03.2009, 14:38   #2 (permalink)
Extrem Performer
 
Benutzerbild von snoooc
 

Registriert seit: 11.07.2006
Beiträge: 1.110

snoooc sorgt für eine eindrucksvolle Atmosphäresnoooc sorgt für eine eindrucksvolle Atmosphäre

Standard AW: Makro schreib Problem Excel

Sorry, hab da was grundliegendes vergessen zu sagen. Sams- und Sonntage sollen nicht mit aufgeschrieben werden, das heißt, dass der darauf folgende Montag dann wieder aufgeführt werden muss, Feiertage müssen nicht unbedingt berücksichtigt werden.


snoooc
snoooc ist offline   Mit Zitat antworten
Alt 04.03.2009, 15:03   #3 (permalink)
semi-diabolisch
 
Benutzerbild von [EID]-Mr.GiZMO
 

Registriert seit: 12.09.2005
Beiträge: 2.922

[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein

Standard AW: Makro schreib Problem Excel

Code:
Sub Dates()
Dim Startzeile As Integer
Dim Startspalte As Integer
Dim AnzahlTage As Integer

' hier definieren
Startzeile = 1
Startspalte = 1
AnzahlTage = 27


For i = 0 To AnzahlTage
    heute = Date + i
    Cells(Startzeile, Startspalte) = heute
Next i
End Sub
Grüße.

€ Oha... neuer Post dazwischen... nicht gesehen.
Ich guck mal, ob ich das schaffe.

Geändert von [EID]-Mr.GiZMO (04.03.2009 um 23:14 Uhr)
[EID]-Mr.GiZMO ist offline   Mit Zitat antworten
Alt 04.03.2009, 15:54   #4 (permalink)
semi-diabolisch
 
Benutzerbild von [EID]-Mr.GiZMO
 

Registriert seit: 12.09.2005
Beiträge: 2.922

[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein

Standard AW: Makro schreib Problem Excel

So, hier habe ich es korriegiert mit Filterung der Samstage und Sonntage:

Code:
Sub Dates()
Dim Startzeile As Integer
Dim Startspalte As Integer
Dim AnzahlTage As Integer
Dim Counter As Integer

' hier definieren
Startzeile = 1
Startspalte = 1
AnzahlTage = 27
Counter = 0

For i = 0 To AnzahlTage
    heute = Date + i
    If DatePart("w", heute) <> vbSaturday And DatePart("w", heute) <> vbSunday Then
        Cells(Startzeile + Counter, Startspalte) = heute
        Counter = Counter + 1
    End If
Next i
End Sub
Grüße!
:gizmo:

Geändert von [EID]-Mr.GiZMO (04.03.2009 um 23:13 Uhr)
[EID]-Mr.GiZMO ist offline   Mit Zitat antworten
3 Benutzer bedanken sich für den Beitrag:
Exit (05.03.2009), Pilzkopf (05.03.2009), snoooc (04.03.2009)
Alt 04.03.2009, 16:51   #5 (permalink)
Extrem Performer
 
Benutzerbild von snoooc
 

Registriert seit: 11.07.2006
Beiträge: 1.110

snoooc sorgt für eine eindrucksvolle Atmosphäresnoooc sorgt für eine eindrucksvolle Atmosphäre

Standard AW: Makro schreib Problem Excel

Moin,
DANKE, war schon am verzweifel, wie du oben siehst. Jetzt aber noch mal was anderes, kann man dieses Makro 1 zu 1 in Word Portieren, um dort, auch in einer Tabelle, das selbe durch zu führen?


snoooc
snoooc ist offline   Mit Zitat antworten
Alt 04.03.2009, 16:56   #6 (permalink)
sp
Extrem Tweaker
 
Benutzerbild von sp
 

Registriert seit: 19.06.2003
Beiträge: 2.716

sp ist ein Lichtblicksp ist ein Lichtblicksp ist ein Lichtblicksp ist ein Lichtblicksp ist ein Lichtblick

Standard AW: Makro schreib Problem Excel

Müsste eigenlich genen, Word kann ja Excel Tabelen einbetten.
Und auch Macros ausführen(2007).
sp ist offline   Mit Zitat antworten
Alt 04.03.2009, 17:40   #7 (permalink)
semi-diabolisch
 
Benutzerbild von [EID]-Mr.GiZMO
 

Registriert seit: 12.09.2005
Beiträge: 2.922

[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein

Standard AW: Makro schreib Problem Excel

Nativ für Word würde das so aussehen:

Code:
Sub Dates()
Dim TabellenNummer As Integer
Dim Startzeile As Integer
Dim Startspalte As Integer
Dim AnzahlTage As Integer
Dim Counter As Integer

' hier definieren
TabellenNummer = 1
Startzeile = 1
Startspalte = 1
AnzahlTage = 27
Counter = 0

For i = 0 To AnzahlTage
    heute = Date + i
    If DatePart("w", heute) <> vbSaturday And DatePart("w", heute) <> vbSunday Then
        ActiveDocument.Tables(TabellenNummer).Cell(Startzeile + Counter, Startspalte).Range.Text = heute
        If i <> AnzahlTage Then
            ActiveDocument.Tables(TabellenNummer).Rows.Add
        End If
        Counter = Counter + 1
    End If
Next i

End Sub
Beachten: Word braucht immer eine Tabellennummer, um eine Tabelle zu lokalisieren, daher musst du im define-Bereich die Nummer der Tabell angeben.
Einfach vom Dokumentenanfang abzählen.

Grüße.


PS: Das kostet mind. 10 Danke und 5 positive Bewertungen
War mein Post nützlich für dich? Ein Danke oder eine Bewertung sind immer schön.
Teilnehmer der Initiative "User verbessern Qualität im Forum" | Meine Systeme

Darf ich mal bitte vorbei?! Das geht nach Kompetenz... Danke! | | | Einmal dachte ich, ich hätte Unrecht. Hab mich aber getäuscht!
"Es ist gelogen, dass Videogames Kids beeinflussen. Hätte Pacman das getan, würden wir heute durch dunkle Räume irren, Pillen fressen und elektronische Musik hören."

[EID]-Mr.GiZMO ist offline   Mit Zitat antworten
Für diesen Beitrag bedankt sich:
snoooc (04.03.2009)
Alt 04.03.2009, 20:16   #8 (permalink)
Extrem Performer
 
Benutzerbild von snoooc
 

Registriert seit: 11.07.2006
Beiträge: 1.110

snoooc sorgt für eine eindrucksvolle Atmosphäresnoooc sorgt für eine eindrucksvolle Atmosphäre

Standard AW: Makro schreib Problem Excel

Danke, werde das für Word morgen ausprobieren. Dass Das so verhältnismäßig einfach zu schreiben ist !?! Da bin ich doch zuviel auf C++ getrimmt und da ich auch keine andere Sprache kann...
Noch eine frage, bezieht sich der zweite Code auf eine Excel Tabelle in Word oder auf eine "Word-Tabelle"?


Thx for all your answers,


snoooc



Edit: 10 Danke für [EID]-Mr.GiZMO!!!
snoooc ist offline   Mit Zitat antworten
Alt 04.03.2009, 23:13   #9 (permalink)
semi-diabolisch
 
Benutzerbild von [EID]-Mr.GiZMO
 

Registriert seit: 12.09.2005
Beiträge: 2.922

[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein[EID]-Mr.GiZMO kann auf vieles stolz sein

Standard AW: Makro schreib Problem Excel

Danke!
Der Zweite Codeschnipsel bezieht sich auf eine Tabelle in Word (native Word-Tabelle, nicht Excel-import pder -Verknüpfung).

Im Excel-Makro hab ich noch Zeile 15 korrigiert:

Cells(Startzeile + Counter, Startzeile) = heute
wurde zu
Cells(Startzeile + Counter, Startspalte) = heute

Grüße.
[EID]-Mr.GiZMO ist offline   Mit Zitat antworten
Antwort

Stichworte
excel, makro, problem, schreib


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist aus.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are an


Ähnliche Themen
Thema Autor Forum Antworten Letzter Beitrag
Niedrige schreib/lese Durchsatz Profi Overclocker SSD - Solid State Drives 2 05.09.2013 07:21
Problem mit Excel Morphois Windows & Programme 3 05.08.2011 16:08
Excel Makro io.sys Windows & Programme 8 17.12.2009 09:02
internet/schreib pc Stefan Kaufberatung 15 28.10.2005 17:55
Excel: Text automatisch sortieren ohne Makro? dennis24 Windows & Programme 0 26.09.2004 14:59


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:07 Uhr.






Powered by vBulletin® Version 3.8.10 (Deutsch)
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
SEO by vBSEO 3.5.2 ©2010, Crawlability, Inc.
Impressum, Datenschutz Copyright © 1999-2015 TweakPC, Alle Rechte vorbehalten, all rights reserved