McSaesch

Ich habe eine Datum (heute) und ein Datum dass genau 1 Jahr früher ist. Nun will ich rückwärts alle Montage herraus finden. Dim i As Integer Dim heute As Date Dim em As String Private Sub UserForm_Activate() heute = Date ende = DateAdd("yyyy", -1, heute) Do heute = DateAdd("w", -1, heute) 'hier wird der letzte Montag berechnet em = heute Loop Until Weekday(heute) = vbMonday Do While em < ende ComboBox1.AddItem "Montag, der " & em em = DateAdd("d", -7, em) Loop ComboBox1.ListIndex = 0 End Sub Als letzten Montag zeigt er mir den 3.10.2005 und bricht dann ab. Wie kann ich nun das Datum richtig vergleichen damit er mir auch die restlichen Tage anzeigt??:eek

Jo Danke Also zum Makrorecorder, bin ich kein Freund von ich will es ja lernen, und wenn ich einmal den Code selber eingehackt hab, dann verstehts man besser. Und warum soll ich nicht mit jedem Problemchen hier auftauchen, ist doch ein Forum... Und ich stell ja keine Fragen wie geht mein Rechner an!!

Ja das hört sich ja schon sehr gut an, aber ich werde aus der Hilfe nicht ganz schlau. Also mus ich erst den Bereich festlegen und dann Select......????:cool: Jo ich habs Range("a1:b2").Merge Thx Kann man jetzt vielleicht auch noch gleich die Zelle formatieren?? Also was die Anzeige angeht, z.b. 2 Dezimalstellen...........

Jo funzt... Thx:)

Ich arbeite mit VBA (Excel 2002) Ich schreibe Dateinamen in Felder die über mehere Spalten gehen. Wie kann ich nun sagen dass das Programm bevor es den Dateinamen in die Spalte x schreibt, aus den spalten x und y und z die Spalte x macht (quasi alle 3 Spalten zu einer zusammen fasst)?? Geht das überhaupt??:confused:

Hab gedacht da es sich hier um die Basic-Abteilung handelt, wäre die Sprache klar. Also ich habs nun mitlerweile etwas umständlich gelöst. Mit der Mid-Funktion 3 Variablen gefüllt, eine für Tag, Monat und Jahr. Und dann einfach abc = tt & "." & mm & "." & "20" & jj Aber das ganze kann man bestimmt noch vereinfachen. Also ich arbeite mit Excel 2002, also VBA Noch Fragen? :floet:

Also.... Ich habe mehrere Dateien die geordnet abgelegt werden sollen. Der Dateiname setzt sich aus einem Timestamp zusammen im Sinne von 020390005, dabei sind die ersten 2 Zeichen das Jahr, die nächsten 2 bilden den Monat, dann der Tag und die letzten 3 sind eine laufende Nummer. Wie kann ich aus diesen Angaben (bis auf die laufende Nummer) ein normales Datum im Sinne von 01.01.2005 erstellen??2

Tach Also folgendes Problem: Ich habe ein kleines Programm dass bei jeglichem "Krach" angehn soll. Nun habe ich mir es so überlegt, das Programm soll starten sobald der Audioeingang ein Signal abgibt, d.h. dass an dem Eingang angeschlossene Mikrophon was aufnimmt. Aber wie kann ich denn den Audioeingang ansprechen? Und wie fragt man ein solches Signal ab? :cool:

Bin jetzt hier: Private Sub UserForm_Activate() i = 1 x = 1 Do kuenstler(i) = Sheets("Tabelle1").Cells(i, 1) album(i) = Sheets("Tabelle1").Cells(i, 2) ComboBox1.AddItem kuenstler(i) i = i + 1 Loop Until Sheets("Tabelle1").Cells(i, 1) = "" maxx = i x = i For i = 1 To maxx For x = (maxx - 1) To 2 Step -1 If kuenstler(i) = kuenstler(x) And i <> x Then ComboBox1.RemoveItem kuenstler(x) Else End If Next Next TextBox2.Text = Str(i) ComboBox1.ListIndex = 0 End Sub Aber so richtig klappt es nicht, bei RemoveItem bleibt er immer stehn?????!!!!

Das nanne ich doch mal ne ordentliche Lösung, und schön plastzisch dargestellt. Der Weg denn du beschrieben hast ist mir klar. Auch dass ich das am Besten mit Schleifen hinbekomme, aber: Irgendwo bleibt es immer hängen und ich kriege es einfach nicht abgefangen. Ist mein Problem zu trivial, lest es euch nur durch und denkt, das ist mir zu trivial. Dann braucht ihr nicht antwoorten und alles ist im Grünen Bereich. So weit bin ich, nun fehlt nur noch das Abfangen Private Sub UserForm_Activate() i = 1 x = 1 Do kuenstler(i) = Sheets("Tabelle1").Cells(i, 1) album(i) = Sheets("Tabelle1").Cells(i, 2) ComboBox1.AddItem kuenstler(i) i = i + 1 Loop Until Sheets("Tabelle1").Cells(i, 1) = "" TextBox2.Text = Str(i) ComboBox1.ListIndex = 0 End Sub

Also wenn stört es denn erheblich was ich hier für Probleme vorbringe?? Würde ich Fragen stellen wie: Was soll ich heute anziehn? Alles klar seh ich ein. Aber: Sinn und Zwecks eines Forums is die gemeinsame Lösung von Problemen, odr nicht? Und andere Leute lesen die Beiträge mit den Lösungen weil sie ähnliche Probleme haben und ihnen hier vielleicht geholfen werden kann, wenn auch nicht dirket. Was SQL angeht, kein Plan. Ich bastel hier mit VBA und mehr nicht, trotzdem Danke

Ich habe ein Array mit mehreren Namen geladen. Nun habe ich aber das Problem dass einige Name mehrmals auftauchen. Wie kann ich nun eine Abfangroutine schreiben damit, wenn der Name doppelt oder öfter auftritt gelöscht wird??

Und zwar.... Will ich eine kleine Exe schreiben die ein Verzeichnis (ob nun hard codiert oder variabel) löscht. Kann ich die Priorität des Löschens so hoch stellen, dass andere Prozesse nicht zählen? Heisst, wenn Programme gerade auf den Ordner / Datei im Ordner zugreifen, dass es egal ist und trotzdem der Ordner gelöscht wird??? :confused:

Erstmal Danke aber.... Es ist nicht ganz das was ich mir vorgestellt hab. Wenn ich von "Tabelle2" zu "Tabelle1" wechsle kommt auch die Msg, so weit so gut. Jedoch wird ja "Tabelle1" am Anfang angezeigt und dann kommt die Msg nicht. Kann ich das noch irgendwie ändern, dass also wenn die "Tabelle1" geladen ist auch die Msg kommt???

Ja ich meine die Blätter, also um ganz genau zu sein sheets("Tabelle1") Und wie soll ich das nun benennen?? denn mit activate hab ich es schon probiert, hat aber nicht so richtig geklappt. Odermeinst du es als eigenständige Routine??

Folgendes Problem: Ich hab ein kleines Makro das beim Laden/Starten/Aufrufen (wie man dazu sagen will) ausgeführt werden soll. Ich weiss das es bei einer Form der Befehl UserForm1.load ist. Wie kann ich das nun auf eine Tabelle umlegen. D.h. wird die Tabelle das erste Mal gestartet soll Code ausgeführt werden. Jemand ne Idee??? :confused:

Ich habs, Heureka! Date = DateAdd("w", 1, Date) Ist doch ganz einfach!

Also wenn ich dann schreibe Date +1 macht er Date 1 draus und dann kommt ne Fehlermeldung

Sehr schön es funktioniert. Nun noch ein kleines Problem. Wie kann ich ausgehend von einem Startdatum immer um einen Tag erhöhn? Also quasi so eine art Nextdate ?? Verständlich?? Damit ich das ganze in einer Do-Schleife laufen lassen kann...... :confused:

Ja nee is klar, aber wie oder wo kann ich denn sagen oder festlegen dass Montag sein soll??? Weil jDate = Monday nicht ganz funktionieren wird!?

Na hupps.... Karriererückschub? Also beim Bund heisst doch sowas dann Degradierung??!!Wäre ja dann das Gegenteil einer Beförderung. Also wie doch immer wieder alles mit IT zusammen hängt..... :floet:

Wie kann ich einen gültigen Kalender in ein Programm einbauen. Aufgaben wären dann z.B. der Anwender gibt einen Zeitraum vor und das Programm soll nun alle Montage mit dem dazu gehörigen Datum in einer Liste ausgeben. Das Problem was ich nun habe, wie kann ich festlegen dass er mir alle Montage zeigt???

Warum nimmst du nicht einfach ein kleines Programm was bis zum Punkt + Endung den Dateinamen ausliest?

Visual Basic career return line feed ??? :confused: Also quasi das gleich wie chr(13)+chr(10) :bimei

Zum Zeilenumbruch, ich dachte da gibts vielleicht nen "coolen" Trick, aber dann eben so. Also kann ich jetzt nicht schreib den Text in schwarz, und nur das eine Wort in Rot. Vielleicht wie bei HTML?? <color> ....... Hmmmm....