fireworker

Komplett raus oder nur für dieses Formular??? :confused:

Mußt in der Schleife: For a = 1 To 20 text1 = Sheets("Tabelle1").Cells(a, 2) text2 = Sheets("Tabelle1").Cells(a, 3) n = InStr(1, text2, meinsuchtext, 1) If n > 0 Then text21 = Left(text2, n - 1) text22 = Mid(text2, n + Len(meinsuchtext), Len(text2) - n) Sheets("Tabelle1").Cells(a, 3) = text21 + text1 + text22 Sheets("Tabelle1").Cells(a, 2) = "" End If Next a nochmals eine Schleife setzen, z.B: For a = 1 To 20 For b = 2 To 21 text1 = Sheets("Tabelle1").Cells(a, b-1) text2 = Sheets("Tabelle1").Cells(a, n = InStr(1, text2, meinsuchtext, 1) If n > 0 Then text21 = Left(text2, n - 1) text22 = Mid(text2, n + Len(meinsuchtext), Len(text2) - n) Sheets("Tabelle1").Cells(a, = text21 + text1 + text22 Sheets("Tabelle1").Cells(a, b-1) = "" End If Next b Next a

Hatte selber mal das Problem! Wenn Du die Differenz in Stunden angeben möchtest, dann mußt Du den Wert noch mit 24 multiplizieren. Wenn Du in Minuten, dann mit 1440 und Sekunden, dann mit 86400. Ich hoffe ich konnte Dir damit helfen.

Ich habe - glaube ich - einen Denkfehler. Und zwar: Ich habe eine Datenbank, die ich in ein Listenfeld einlade - soweit so gut - , und möchte die Zeilen, die im Listenfeld (sortiert) gleich sind, nur einmal haben. *das GROUP BY funktioniert nicht* Meine bisherigen Versuche dies zu realisieren, schlugen fehl. Könnte mir bitte jemand helfen?

In der Hilfe unter dem Suchbegriff "Datentypen" dort habe ich mir auch eine Liste ausdrucken lassen. Wenn Du möchtest, dann könnte ich sie Dir ja per Mail senden!

Am besten wäre es noch die anderen zu deaktivieren! Enabled=false setzen, damit "er" nur das listenfeld auswählen kann.

Du mußt das Unterformular aktivieren/anzeigen lassen und dann kannst Du den Focus auf ein Steuerelemt setzen. z.B: HF.show HF.Textfeld.setfocus

VB, was ist das? Ein bißchen schon, kommt drauf an bei was!!!

In DOS geht das auch nicht! Du mußt vorher das eine Test erstellen, dann hineinjumpen und den nächsten Unterpfad erstellen.

Sperr doch einfach bis auf ein paar Tasten, welche noch erlaubt sind z.B.: Cursor-Tasten, Enter, usw bei dieser Kombobox!

Wie hast Du die Variable definiert? Wenn Du sie mit "Dim" definiert hast, erkennt das andere Formular diese nicht, da sie nur für das jeweilige aktive Formular gültig ist. Gültigkeit erweitern auf allen Formularen: Public oder Gloabal Variablenname

Verstehe ich richtig, daß Du eine "Zeitdifferenz" wünscht? Wenn ja, dann mußt Du Deine Pausenzeiten in einem ARRAY ablegen und diese dann immer abfragen. Den heutigen Tag ruft man mit NOW auf und mit FORMAT ins richtige Format bringen, z.B.: Dim Zeit1, Datum1, ZF1 Zeit1 = #17:04:23# Datum1 = #January 27, 1993# ' Aktuelle Systemzeit im langen Zeitformat des Systems bestimmen. ZF1 = Format(Time, "Long Time") ' Aktuelles Systemdatum im langen Datumsformat des Systems bestimmen. ZF1 = Format(Date, "Long Date") ZF1 = Format(Zeit1, "h:m:s") ' Liefert "17:4:23". ZF1 = Format(Zeit1, "hh:mm:ss AMPM") ' Liefert "17:04:23". ZF1 = Format(Datum1, "dddd, mmm d yyyy") ' Liefert "Mittwoch, ' 27. Januar 1993". ' Wird kein Format angegeben, so wird eine Zeichenfolge geliefert. ZF1 = Format(23) ' Liefert "23". *aus MSDN Library Visual Studio 6.0

Wie möchtest Du dies genau haben? Möchtest Du das Datum sehen, wenn Du den Tag (Mo - So) auswählst? Oder wir ein Datm eingegeben un Du möchtest den Tag sehen?

Dezimal in Binär: Feld=dez (modulo) 2 'den Rest einer Ganzzahl-Division in ein Array speichern dez = dez (div) 2 'Die Ganzzahl vor Komma in die Variable speichern Solange durchlaufen lassen, bis dez = 0 ist

Für was benötigst Du noch Zeilennummern?

Ich habe mir einfach Visio von meinem Chef geben lassen :D

Probier's doch mal mit: ActiveCell.Offset(spalte, zeile).value *dies ist der Aufruf einer bestimmten Zelle unter VB6, müßte aber auch als Makro so ähnlich sein* Den genauen Befehl müßtest Du Dir in der Hilfe nachlesen. Um in die nächste Zeile zu "hopfen" einfach zeile+1

Es geht viel einfacher: ganz einfach mit dem "BETWEEN": sql = "SELECT * FROM tab_tätig_std WHERE BETWEEN txt_von AND txt_bis"

Könnte mir bitte jemand helfen und mir auch posten, wo ich ein solches Programm (natürlich nur Freeware) finde! Damit ich diesen etwas schneller fertig habe, als wenn ich ihn von Hand zeichnen und schreiben müßte. Großen dank schon im voraus. <FONT COLOR="#a62a2a" SIZE="1">[ 19. Dezember 2001 10:51: Beitrag 1 mal editiert, zuletzt von fireworker ]</font>

Ich habe meine Vorlage für Word von der IHK-WEBSITE downgeloadet. Schaut doch einfach mal auf der Website Eurer IHK vorbei und/oder auch in den früheren Beiträgen hier. Wünsch Euch dann noch viel Spaß beim Schreiben, denn ich mache dies jeden Tag im Betrieb nach Feierabend noch kurz.

Wo möchtest Du den runden? Willst Du ein errechnetes Ergebnis runden lassen oder eine eingebene Zahl? Könntest Du bitte noch sagen wo und wie Du es anstellst! Es gibt nämlich noch die Funktionen: Obergrenze und Untergrenze Die kann man mit sogenannten Schrittweiten definieren

Ich habe auch das gleiche Problem, aber wozu gibt es die Onlinehilfe und dieses Forum hier? Wenn meins läuft, dann gebe ich Dir meine Lösung. Könnte ich Deine dann auch haben?

Wenn's VB ist, dann mußt Du nur einen Querverweis erstellen: Im 2.Formular: Variable2 = Formular1.Variable1 Im 3.Formular: Variable3 = Formular2.Variable2 usw.

Hallöchen, ist doch ganz einfach: runden(zahl, anzahl_stellen) z.B.: runden("3.85284", 2) Ergebnis: 3,85 - ohne anzahl_stellen, wird vor dem Komma gerundet - Viel Spaß damit.

Danke, hat mir sehr geholfen. Ich hatte die Zuweisung des Suchstrings an der falschen Stelle.