Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 2194 Ergebnisse ergeben.
Seite 44 von 147 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 41, 42, 43, 44, 45, 46, 47 ... 141, 142, 143, 144, 145, 146, 147  Weiter
Index
Autor Nachricht
  Thema: Automatisierter Zeitstrahl 
werni

Antworten: 13
Aufrufe: 722

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Aug 2012, 18:05   Titel: AW: Automatisierter Zeitstrahl Version: Office 2010
Hallo

Dann so ....

Sub Zeitstrahl()
For i = 4 To Range("A1000").End(xlUp).Row
Range(Cells(i, 4), Cells(i, 927)).Interior.Color = xlNone
Range(Cells(i, 4), Cells(i, 927)) = ""
If Cells(i, 1) = "" Or Cells(i, 2) = "" Or Cells(i, 3) = "" Then GoTo WT1
If Left(Cells(i, 1), 4) = "Mess" Then Messe
If Left(Cells(i, 1), 4) = "Aufb" Then Aufbau
If Left(Cells(i, 1), 4) = "Abba" Then Abbau
WT1:
Next
End Sub

Gruss werni
  Thema: Automatisierter Zeitstrahl 
werni

Antworten: 13
Aufrufe: 722

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Aug 2012, 15:25   Titel: AW: Automatisierter Zeitstrahl Version: Office 2010
Hallo

Diese Codes in ein normales Modul. Immer nur Code "Zeitstrahl" starten, das andere geht dan automatisch.

Option Explicit
Dim i As Integer
Dim m As Integer

Sub Zeitstrahl()
For i = 4 To Range("A92700").End(xlUp).Row
If Cells(i, 1) = "" Or Cells(i, 2) = "" Or Cells(i, 3) = "" Then GoTo WT1
If Left(Cells(i, 1), 4) = "Mess" Then Messe
If Left(Cells(i, 1), 4) = "Aufb" Then Aufbau
If Left(Cells(i, 1), 4) = "Abba" Then Abbau
WT1:
Next
End Sub

Sub Messe()
Range(Cells(i, 4), Cells(i, 927)).Interior.Color = xlNone
Range(Cells(i, 4), Cells(i, 927)) = ""
For m = 4 To 927
If Cells(i, 2) = Cells(3, m) Then Cells(i, m) = Cells(i, 1)
If Cells(i, 2& ...
  Thema: zählen wir mal bis ... :) 
werni

Antworten: 12499
Aufrufe: 426780

BeitragForum: Forum-Spiele   Verfasst am: 31. Jul 2012, 16:53   Titel: AW: zählen wir mal bis ... :)
12446
  Thema: Bild über Wasserzeichen legen bzw. Schrift über Bild legen. 
werni

Antworten: 2
Aufrufe: 645

BeitragForum: Excel Formate   Verfasst am: 28. Jul 2012, 23:52   Titel: AW: Bild über Wasserzeichen legen bzw. Schrift über Bild leg Version: Office 2010
Hallo Hossy

Du hast das erste Bild in die Kopfzeile eingefügt und ausgeblichen. Die Bildgrösse ist fast A4. Das liegt dann als Hintergrundbild da.

Ein Bild ins Tabellenblatt einfügen ist immer über den Zellen. Du kannst ev. mit GIF- oder WMF-Grafiken etwas unternehmen. Die Grafiken (eher Zeichnungen) sollten einfarbig sein.

Du kannst bei Grafik formatieren -> Bildkorrektur -> die Helligkeit so hoch stellen dass die Zeichnungsumrisse fast nicht mehr zu sehen sind. Bei Weichzeichnen/Schärfen auf 100% schärfen stellen.
Im Menü Bildtools -> Farbe -> Transparente Farbe bestimmen, da klickst du um Bild auf die weisse Fläche.

Die Ansicht im Anhang ist auf Seitenlayout eingestellt, damit man das Hintergrundbild auch sieht.
Erstellt auf Excel 2010.

Gruss werni
  Thema: Stunden aufrunden je nach Uhrzeit und Wochentag 
werni

Antworten: 10
Aufrufe: 312

BeitragForum: Excel Formeln   Verfasst am: 25. Jul 2012, 23:25   Titel: AW: Stunden aufrunden je nach Uhrzeit und Wochentag Version: Office 2003
Hallo

Wenn die Einsatzzeit in der Zeit zwischen 23:00 Uhr und 05:00 Uhr liegt soll auf mindestens 3 Stunden aufgerundet
(z.B.: 30 Minuten gearbeitet und 3 Stunden werden gutgeschrieben. bzw. 3,5 Stunden gearbeitet und 4 Stunden werden gutgeschrieben)

Wie ich es verstanden hab wäre das in etwa so:
 ABCDEF2DatumWochentagEinsatzbeginnEinsatzendeEinsatzzeitAufgerundet322.07.2012Sonntag15:0015:3000:3004:00423.07.2012Montag20:0520:4500:4001:00524.07.2012Dienstag23:0523:4500:4004:00ZelleFormelB3=A3E3=REST(D3-C3;1)F3=WENN(ODER(C3="";D3="";A3="");"";WENN(WOCHENTAG(A3;2)=7;3/24+AUFRUNDEN(E3*24;0)/24;WENN(ODER(D3<C3;D3<=5/24;C3>=23/24;C3<=5/24;D3>=23/24);3/24+AUFRUNDEN(E3*24;0)/24;AUFRUNDEN(E3*24;0)/24)))B4=A4E4=REST(D4-C4;1)F4=WENN(ODER(C4="";D4="";A4="");"";WENN(WOCHENTAG(A4;2)=7;3/24+AUFRUNDEN(E4*24;0)/24;WENN(ODER(D4<C4;D4<=5/24;C4>=23/24;C4<=5/24;D4>=23/24);3/24+AUFRUNDEN( ...
  Thema: Einblenden von bestimmten Worksheets mit Hilfe eines Buttons 
werni

Antworten: 5
Aufrufe: 114

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2012, 15:12   Titel: AW: Einblenden von bestimmten Worksheets mit Hilfe eines But Version: Office 2003
Hallo Sascha

Danke für die Rückmeldung im andern Thread.

Dieser Code gehört ins Modul des Arbeitsblattes auf dem dein CommandButton ist. Denn Namen des CommandButtons ev. anpassen.
Option Explicit
Private Sub CommandButton1_Click()
Dim xTabell As String
Dim i As Integer
For i = 2 To Range("A100").End(xlUp).Row
If Cells(i, 2) = 1 Then
xTabell = Cells(i, 1)
Sheets(xTabell).Visible = True
End If
Next
End Sub
Gruss werni
  Thema: Einblenden von bestimmten Worksheets mit Hilfe eines Buttons 
werni

Antworten: 5
Aufrufe: 114

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2012, 14:37   Titel: AW: Einblenden von bestimmten Worksheets mit Hilfe eines But Version: Office 2003
Hallo Sascha

Und wann gibst du eine Antwort auf die andern Threads?

Gruss werni
  Thema: Monatlich anhand des Datums bestimmte Worksheets einblenden 
werni

Antworten: 1
Aufrufe: 106

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2012, 13:55   Titel: AW: Monatlich anhand des Datums bestimmte Worksheets einblen Version: Office 2003
Hallo Sascha

Schau mal den andern Thread in den Formeln.
Hier gehts weiter

http://www.office-loesung.de/ftopic538190_0_0_asc.php

Gruss werni
  Thema: Monatlich anhand des Datum bestimmte Worksheets einblenden 
werni

Antworten: 3
Aufrufe: 156

BeitragForum: Excel Formeln   Verfasst am: 25. Jul 2012, 12:38   Titel: AW: Monatlich anhand des Datum bestimmte Worksheets einblend Version: Office 2003
Hallo Sascha

In etwa so. Beim Schliessen der Arbeitsmappe werden alle Tabellen ausgeblendet bis auf ev. eine Mastertabelle (Hier im Code Tabelle1)

Diese Codes ins Modul DieseArbeitsmappe
Option Explicit
Dim wsTabelle As Worksheet
Dim xMonat As String
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each wsTabelle In Worksheets
If wsTabelle.Name <> "Tabelle1" Then
wsTabelle.Visible = False
End If
Next wsTabelle
ThisWorkbook.Save
End Sub
Private Sub Workbook_Open()
xMonat = Format(Month(Date), "00")
For Each wsTabelle In Worksheets
If InStr(1, wsTabelle.Name, xMonat) Then
wsTabelle.Visible = True
End If
Next wsTabelle
End Sub

Gruss werni
  Thema: Variables Zahlenformat 14- oder 17stellig 
werni

Antworten: 6
Aufrufe: 251

BeitragForum: Excel Formate   Verfasst am: 24. Jul 2012, 23:08   Titel: AW: Variables Zahlenformat 14- oder 17stellig Version: Office 2003
Hallo mruettler

Wenn es mit VBA auch recht ist, dann

Diese Zahlen müssen im Textformat sein. Also die Spalte als Text formatieren.
Diesen Code ins Modul des Arbeitsblattes:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xZahl As String
If Intersect(Target, Range("A2:A1000")) Is Nothing Then Exit Sub
xZahl = Cells(Target.Row, Target.Column)
If Len(xZahl) < 14 Then Exit Sub
If InStr(Cells(Target.Row, Target.Column), ".") = 0 Then
Cells(Target.Row, Target.Column) = Mid(xZahl, 1, Len(xZahl) - 13) & "." & Mid(xZahl, Len(xZahl) - 12, 6) & "." _
& Mid(xZahl, Len(xZahl) - 6, 4) & "." & Right(xZahl, 3)
End If
End Sub
Dann deine Zahlen eingeben minimal Länge 14 und Enter
Der Code ist für die Zelle A2 bis A1 ...
  Thema: Entfernungsberechnung EXCEL <> google maps/map24 
werni

Antworten: 299
Aufrufe: 98071

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2012, 19:22   Titel: AW: Entfernungsberechnung EXCEL <> google maps/map24 Version: Office 2003
Hallo Jeeson

Ich habe kein MapPoint, habe schon davon gehört.

Jeeson schieb:
eine möglichkeit den Code jetzt von Google so umzuschreiben, dass er über MapPoint läuft gibt es nicht?

Meiner Ansicht nein!

Gibt es denn keine Hilfe in MapPoint?

Gruss werni
  Thema: Excel - Route:Kilometerstrecke ermitteln und einfügen 
werni

Antworten: 3
Aufrufe: 996

BeitragForum: Excel Hilfe   Verfasst am: 20. Jul 2012, 18:55   Titel: AW: Excel - Route:Kilometerstrecke ermitteln und einfügen Version: Office 2007
Hallo Richard

Jetzt bin ich wieder angemeldet.

Zum Code: nimm den letzen von EtoPHG (Hansueli) auf dieser Seite

http://www.office-loesung.de/ftopic279644_195_0_asc.php

Gruss werni
  Thema: Excel Uhrzeiten eingeben 
werni

Antworten: 7
Aufrufe: 770

BeitragForum: Excel Hilfe   Verfasst am: 20. Jul 2012, 16:51   Titel: AW: Excel Uhrzeiten eingeben Version: Office 2007
Hallo

Für ganz Faule.

Eingabe für anstatt 7:49 einfach 7.49 oder für 7:05 einfach 7.05
Die Ausgabe Arbeitszeit ist dann im Format hh:mm
Arbeitsblatt mit dem Namen 'Tabelle3' BCDE1VonBisMittagGesamt28.0017.350.4510:20319.393.001.0507:44ZelleFormatWertB20.008C20.0017.35D20.000.45E2hh:mm0.430555555555556B30.0019.39C30.003D30.001.05E3hh:mm0.322222222222222ZelleFormelE2=WENN(UND(B2="";C2="");"";REST(KÜRZEN(C2)/24+REST(C2;1)/14.4-KÜRZEN(B2)/24+REST(B2;1)/14.4;1)-KÜRZEN(D2)/24+REST(D2;1)/14.4)E3=WENN(UND(B3="";C3="");"";REST(KÜRZEN(C3)/24+REST(C3;1)/14.4-KÜRZEN(B3)/24+REST(B3;1)/14.4;1)-KÜRZEN(D3)/24+REST(D3;1)/14.4)Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Gruss werni
  Thema: Entfernungsberechnung EXCEL <> google maps/map24 
werni

Antworten: 299
Aufrufe: 98071

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Jul 2012, 17:19   Titel: AW: Entfernungsberechnung EXCEL <> google maps/map24 Version: Office 2003
Hallo Jeeson

Da gibt es hier im Forum eine extra Abteilung für MapPoint.

http://www.office-loesung.de/viewforum80_0_0.php

Vielleicht hilft das:

http://www.google.ch/#hl=de&gs_nf=1&pq=excel%20vba%20mappoint&cp=29&gs_id=1e&xhr=t&q=excel+vba+mappoint+entfernung&pf=p&sclient=psy-ab&oq=excel+vba+mappoint+entfernung&gs_l=&pbx=1&bav=on.2,or.r_gc.r_pw.r_qf.,cf.osb&fp=6f9a091b17875e61&biw=1536&bih=759

oder das

http://www.office-loesung.de/ftopic75229_0_0_asc.php

Gruss werni
  Thema: Per Button verstecktes Tabellenblatt aufrufen 
werni

Antworten: 3
Aufrufe: 136

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Jul 2012, 14:12   Titel: AW: Per Button verstecktes Tabellenblatt aufrufen Version: Office 2003
Hallo Stefan

Wieso so ungeduldig?

Tabelle1.visible=true
Tabelle1.select
etc.

Nachher wieder
tabelle1.visible=false

Gruss werni
 
Seite 44 von 147 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 41, 42, 43, 44, 45, 46, 47 ... 141, 142, 143, 144, 145, 146, 147  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps