Arbeitsblätter umbennen
19.09.2022 03:25:44
Puch
ich bemühe mich jetzt, keinen Aufsatz zu schreiben, aber ich hätte nicht gedacht so tief in Excel einzutauchen, mit allem was dazu gehört Misserfolg, Erfolg
Enttäuschung etc.. Blöd ist z.Bsp. sich den Samstag um die Ohren zu hauen und Sonntag morgens um 3:00Uhr dann ohne Erfolgserlebnis daran zu denken, was man noch machen könnte, um zu einem Erfolgserlebnis nach gefühlt (1000 Testdateien)zu kommen, damit man beruhigt schlafen kann, ich zog dann die Erwägung heran, die Programme meinens Kabelrecievers (um 3:30Uhr) upzudaten, weil sich ein paar Programme verschoben haben, die auf dem jetzigen Kanal nicht mehr in HD zu sehen sind, diese Idee verwarf ich dann Gott sei Dank (diesmal siegte das Engelchen über das Teufelchen) und ich ging ins Bett, am nächsten Sonntag Morgen (eher Mittag) konnte ich es nicht lassen, weiter zu suchen und zu probieren, ich möchte damit sagen, daß ich nicht der Typ bin, der sich an den Rechner setzt und einfach mal ins Forum schreibt "brauche Tabelle", schließlich möchte ich es ja auch lernen, nichtsdestrotz habe ich nun für 4 Tabellen fast schon ein Fragenkatalog mit dem Hintergrund, daß ich die Tabellen am 1. diesen Monat alle erstellt und händisch verknüpft habe, mit Ablenkung (Mail Eingang) blöde WhatsApps etc. waren es pro Tabelle jeweils eine Stunde also insgesamt 4 Stunden gut, mir ist auch immer noch etwas eingefallen, das man verbessern konnte, was man aber nachher auch nicht wirklich sieht. Die 1. Frage ist bestimmt die banalste Frage die für alle 4 Arbeitsmappen gilt, wie benenne ich die 31 Arbeitsblätter in Tag Monat Jahr ("ddd, dd.mm.yy") um, OHNE die Dateien zu berühren, mir ist nämlich aufgefallen, das ich so die Tabellen per VBA Code 31mal kopieren kann und ich dadurch eben nicht die Arbeitsblätter neu verknüpfen muss, das Netz rauf und runter gibt nichts her, weil alle Codes immer noch eine wenn, aber usw. dabei steht. 2. Frage wäre wie bekomme ich einen Worksheet auf allen Blättern zum Laufen
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
If IsEmpty(Target) Then
Target.Offset(0, -2) = ""
Else
Target.Offset(0, -2) = Format(Now(), "hh:mm")
End If
End if
End Sub
3.Frage wäre es möglich in der Diabetestabelle einen ähnlichen Code auszuführen der mir immer die Zeit in Spalte B2, wenn in B4:B11 ein Wert eingetragen wird, das Selbe in C2 wenn in C4:C11 usw bis K die Mustertabelle lade ich mit hoch auf Blatt1 steht alles und wenn hier einige Diabetiker Typ1 mit lesen, ja es gibt heutzutage einen Haufen Software, doch alle können die Werte aufzeichnen, aber es gibt keine die nach der BE-Eingabe die Einheiten ausrechnet, oder die Korrektur die ich spritzen muss, ich habe die Tabelle schon als die noch in den Kinderschuhen steckte an AkkuChek geschickt, damit die diese allen frei zugänglich machen, danach wurde ich persönlich angerufen und zur persönlichen Tabelle gratuliert, leider scheiterte das dann an den Lizensen diese flächendeckend verbreiten zu dürfen was AkkuChek sehr bedauerte.
O.k., jetzt ist es doch ein Aufsatz geworden :-( sorry hierfür)
Für eure Unterstützung im Voraus vielen Dank
Puch