Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe eine Tabelle in der in Spalte H Zeiten stehen. Die Spalte ist formatiert mit hh:mm:ss. Da ich die Tabelle nicht selbst erstellt habe, habe ich das Problem, dass jemand die Zeiten folgendermaßen eingetragen hat: 000:00:00. Um damit rechnen zu können, muß ich also die erste 0 löschen. Ich habe jetzt schon mit Suchen/Ersetzen rumprobiert. suche nach: 0**:**:** ersetze durch... und da hapert es jetzt. setze ich jetzt die sternchen, ersetzt er mir die komplette Uhrzeit (z.Bsp. 000:08:42 in **:**:**. Verwende ich das Fragezeichen, wird die Zeit durch ??:??:?? ersetzt. Wie kann ich Excel klarmachen, dass er einfach nur die erste NULL weglassen soll, ohne die anderen Zahlen zu verändern? Vielen Dank für eure Hilfe. LG Andrea

Hallo,

damit wirst du probleme haben, da Excel normalerweise Zeiten nicht als 12:00:00 h:min:sec speichert sondern als dezimalwert eines Tages (hier 0,5). Ich vermute daher, dass hier eine Formatierung hinterlegt ist und die musst du ändern.

Sonst sind etwas weitergehende Erläuterungen des Zeitformates erforderlich.

Gruß

Helmut

hallo helmut,

das klingt nicht gut. aber aufgeben möchte ich auch nicht so schnell. wenn ich die spalte alt TEXT formatiere. würde es dann funktionieren? also vorm ersetzen alles als text formatieren. aber wie sage ich ihm dann, dass nur die erste null gelöscht werden soll, alles andere soll bleiben?

gruß
andrea

hi babe :-)

1) formatiere die zellen als text
2)Bereich selectieren
3)makro starten

das erste zeichen einer zelle wird entfernt

gruss nighty

Sub makro01()
Dim zelle As Range
Dim Länge As Integer
Dim Puffer As String
For Each zelle In Selection
If ActiveSheet.Cells(zelle.Row, zelle.Column) <> "" Then
Länge = Len(ActiveSheet.Cells(zelle.Row, zelle.Column)) - 1
Puffer = Mid$(ActiveSheet.Cells(zelle.Row, zelle.Column), 2, Länge)
ActiveSheet.Cells(zelle.Row, zelle.Column) = Puffer
End If
Next zelle
End Sub

hallo nighty!

vielen dank! damit klappt das!!! boah eh, und ich kann jetzt auch makros erstellen ;-) supi! was ich alles kann ;-)

vielen dank nochmal, du hast mir ne menge arbeit erspart!!

babe

hallo nighty,
jetzt, wo du mir so geholfen hast, kannst du mir vielleicht noch nen tipp geben. dieses makro möchte ich für weitere arbeitsmappen auch nutzen. nun kann ich natürlich jedes mal das makro kopieren und in die jeweilige mappe einfügen. aber man kann doch auch ICON's erstellen, die dann in der symbolleiste bleiben. kannst du mir sagen, wie das funzt?

lg
babe

hi babe :-)

hab das makro noch ergänzt

1 die zelle wird als text formartiert
2 danach wieder auf 00:00:00

Sub VordereNullEntfernen()
Dim zelle As Range
Dim Länge As Integer
Dim Puffer As String
For Each zelle In Selection
ActiveSheet.Cells(zelle.Row, zelle.Column).NumberFormat = "@"
If ActiveSheet.Cells(zelle.Row, zelle.Column) <> "" Then
Länge = Len(ActiveSheet.Cells(zelle.Row, zelle.Column)) - 1
Puffer = Mid$(ActiveSheet.Cells(zelle.Row, zelle.Column), 2, Länge)
ActiveSheet.Cells(zelle.Row, zelle.Column) = Puffer
End If
ActiveSheet.Cells(zelle.Row, zelle.Column).NumberFormat = "h:mm:ss"
Next zelle
End Sub

gruss nighty

beschreibung eines addinn (icon in einer symbolleiste mit makroaufruf)

1 öffne eine neue datei
2 fuege das makro oder auch mehrere ein
3 speichern unter - microsofttexcel - Add - inn - zum beispiel als name MeineMakros
4 extras Add - ins - manager - MeineMakros - häckchen setzen
5 nun ist bei jeder mappe das makro vorhanden

nun zum icon

extras/anpassen/neu

nun ist eine symbolleiste da die heisst benutzerdifiniert 1

Befehle/links makroa anwählen

per drag und drop das smile icon in die neue symbolleiste ziehen

rechtsclick auf das neue icon
makro zuweisen anwählen mit DeinMakroName

symbolleiste ,oben wo die anderen sind einfuegen

fertig :-))

hallo nighty,
das ist perfekt. hab es natürlich gleich ausprobiert. hab aber trotzdem fragen.
du sagst, ich kann auch mehrere makros in der neuen arbeitsmappe speichern kann. gut, im mom hab ich ja nur das eine. und ich habe dieser mappe auch den smiley zugewiesen. wenn ich jemals ein weiteres makro da rein speichern würde, woher weiß der smiley, welchens marko der verschiedenen er dann nehmen soll? oder wendet er dann "alles was da ist" auf den von mir markierten bereich an? das würde ja auch bedeuten, dass ich den smiley für nichts anderes mehr verwenden kann. heißt, wenn ich jemals ein neues makro, für ganz andere sachen, mappen usw. erstellen möchte hab ich kein weiteres icon zur verfügung? nicht das ich es heute und morgen bräuchte, ist nur reine neugierde.

lg
babe

hi babe :))

1)rechtsclick auf dein smiley icon /anpassen
2)nun wieder rechtsclick auf das smiley icon
3)nun sind zwei optionen verfuegbar um das smiley icon ein anderes aussehen zu geben

1) schaltflaeche bearbeiten
oder
schaltflächensymbol aendern

so kannst du beliebig viele icons erstellen

jedem icon dann ein anderes makro zuweisen

so kannst du z.b. 5 makros in der abgespeicherten datei haben und jedem anhand dessen namen ein beliebiges icon zuweisen

also immer das smiley icon nehmen dann aendern
zuweisung erfolgt ja durch den makronamen

gruss nighty

hi nighty,
klingt ja gar nicht so spektakulär ;-) hoffe nur, dass ich mir das merken kann, bis ich dann mal wieder ein makro erstellt habe (oder erstellen lassen).

lg
babe

hi babe :-)

gibt bestimmt noch zig andere wege ,wie auch die auswahl vorgefertigter icons die dann durch makrozuweisung ihre neue arbeit verrichten,wie auch bei rechtsclick zu sehen ist kopieren und einfuegen in der symbolleiste oder auch anpassen/befehle und dessen icons in die symolleiste ziehen und makro zuweisen

gruss nighty

• Wie kann ich e-mail Seiten aus dem Verlauf löschen