@MichaV : Feuerwehr - Löschwasserstellen

Hallo Micha
Hattest du meine Postings zu deiner Akuellen Version gelesen, mit folgenden Änderungswünschen ?
Die UF mit den gefundenen Straßennamen : Wäre es machbar das diese zwar ausgeführt wird beim Workbook_Open aber nicht angezeigt wird ?
Und ist es machbar das die UF nur die Daten der Tabellenblätter A - Z abfragt ?
Meine Worsheets (18) bis Worsheets (43), dieses sind die Tabellen A bis Z in meinem Programm
Denn jetz im Programm eingebaut, werden ja alle Daten aus allen Tabellenblättern der Arbeitsmappe mit erfasst die garnicht dazu gehören. Es werden statt 761 Straßen nun 1001 Straßen gefunden, irgendwoher nimmt er sich Daten die nichts mit Straße zu tun haben wie, Fahrzeug, Einsatzstelle, usw.
Dessweiteren wenn es ginge, das die Straße die aufgesucht wird evt. Farblich Selectiert wird ( Wunsch Chef ). Ich denke einmal das er das meint wie Luc es gemacht hat, da er deine Version ja Favorisiert.
Da der letzte Thread nun auch im Archiv verschwunden ist, habe ich desshalb hier einmal einen neuen erstellt.
Eine Rückmeldung wäre Nett ob diese Punkte noch umsetzbar wären, denn Danach kann dann dein Produkt auch Eingestellt werden.
Gruß
Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Schutz_ein() Dim intSheet As Integer Application.ScreenUpdating = False 'Blaetter schuetzen: For intSheet = 1 To Worksheets.Count Worksheets(intSheet).Protect "********" Next intSheet Application.ScreenUpdating = True End Sub

Sub Schutz_aus() Dim intSheet As Integer Application.ScreenUpdating = False 'Blattschutz aufheben: For intSheet = 1 To Worksheets.Count Worksheets(intSheet).Unprotect ("********") Next intSheet Application.ScreenUpdating = True End Sub

Hallo Micha
Vielen Dank nochmal für deine Antwort, nun Funzt das und Chefe war auch soweit "ENDLICH"
zufrieden mit dem Vorergebnis. Wenn ich ihm dann morgen noch den Code mit einsetze, dann wird er wohl nochmal etwas Wachsen.
Dir und auch Luc noch einmal Recht Herzlichen Dank für Eure "SUPER ARBEIT" !
Obwohl ich nur einen Tipp haben wollte, habt ihr Euch die Mühe gemacht und da zwei aus meiner Sicht 100 % Lösungen Programmiert. Und da ich in den Coden von Euch nicht rumstricken und selbst Änderungen vornehmen wollte, habe ich das lieber wieder an Euch abgegeben. Und wenn ich Ehrlich bin, dann hätte ich das eh nicht so ganz hinbekommen mit meinen VBA Kenntnissen. Aber habe nun auch einiges aus Euren Coden dazugelernt, auch wenn noch mit Bücher und Hilfsfunktion.
Auf jedenfall habe ich beide Versionen bei uns auf die Rechner verteilt, so das jeder Anwender schon einmal damit Üben kann. Mit Chefe bin ich so verblieben das jeder Anwender sich das für sich am einfachsten zu Bedinende Verzeichnis wählen kann.
Nach einer Testphase von 4 Wochen werde ich an alle Anwender eine Umfrage starten, wo mir jedere Mitteilen kann mit welcher Version er am Besten klar kommt.
Bis auf Chefe, der sich ja im vorfeld schon Festgelegt hat.
Sobald ich da ein Ergebnis habe in 4 Wochen, werde ich Euch beiden das umgehend hier Mitteilen. Trotzdem werden beide Versionen auch nach 4 Wochen weiterhin auf dem Rechner bleiben, denn ich werde auf jeden Fall beide Versionen wie schon gesagt auch im Realfall Paralell laufen lassen. Und dann einmal schauen wer von den Anwendern mir dann als erster eine Aussage machen kann.
Soviel nun erstmal von mir, hiermit Erkläre ich das Projekt für Abgeschlossen.
Vielen 1000 Dank noch einmal an Euch beide.
Gruß
Thomas

Beliebteste Forumthreads (12 Monate)

@MichaV : Feuerwehr - Löschwasserstellen

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread