Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 2194 Ergebnisse ergeben.
Seite 40 von 147 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 37, 38, 39, 40, 41, 42, 43 ... 141, 142, 143, 144, 145, 146, 147  Weiter
Index
Autor Nachricht
  Thema: Eigenes Format subrahieren (hh.mm.ss.ssssss) 
werni

Antworten: 4
Aufrufe: 313

BeitragForum: Excel Formeln   Verfasst am: 26. Okt 2012, 09:29   Titel: AW: Eigenes Format subrahieren (hh.mm.ss.ssssss) Version: Office 2010
Hallo Jean-Pierre

Hab es mal probiert.

 AB715.56.30.016467 815.56.28.7447651.271702ZelleFormelB8=(ZEIT(LINKS(A7;2);TEIL(A7;4;2);TEIL(A7;7;2))+(TEIL(A7;10;6)/86400000000)-(ZEIT(LINKS(A8;2);TEIL(A8;4;2);TEIL(A8;7;2))+(TEIL(A8;10;6)/86400000000)))*86400Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Gruss werni
  Thema: Eigenes Format subrahieren (hh.mm.ss.ssssss) 
werni

Antworten: 4
Aufrufe: 313

BeitragForum: Excel Formeln   Verfasst am: 26. Okt 2012, 08:56   Titel: AW: Eigenes Format subrahieren (hh.mm.ss.ssssss) Version: Office 2010
Hallo Jean-Pierre

Mit Excel kannst du max. mit Millisekunden rechnen und nicht mit Makrosekunden.

Das Format ZEIT ist: hh:mm:ss.000 (mit Doppelpunkt)

 ABC215.56.30.01646715:56:30.016 315.56.28.74476515:56:28.7440:00:01.272ZelleFormatWertB2h:mm:ss.0000.664236296296296B3h:mm:ss.0000.664221574074074C3h:mm:ss.0001.47222222223187E-05ZelleFormelB2=ZEIT(LINKS(A2;2);TEIL(A2;4;2);TEIL(A2;7;2))+(TEIL(A2;10;3)/86400000)B3=ZEIT(LINKS(A3;2);TEIL(A3;4;2);TEIL(A3;7;2))+(TEIL(A3;10;3)/86400000)C3=B2-B3Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Gruss werni
  Thema: Hyperlink für mehrere Zeilen 
werni

Antworten: 1
Aufrufe: 317

BeitragForum: Excel Formate   Verfasst am: 25. Okt 2012, 11:25   Titel: AW: Hyperlink für mehrere Zeilen Version: Office 2010
Hallo Jörg

Variante 1: Hyperlink-Formel
 AB1Pfad & DateienHyperlink2F:\werni\kalender28Tage.xlsF:\werni\kalender28Tage.xls3F:\werni\Projektplaner.xlsmF:\werni\Projektplaner.xlsmZelleFormelB2=HYPERLINK(A2)B3=HYPERLINK(A3)Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Variante 2: Per VBA mit Doppelklick
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim xDatei As String
Dim xZeile As Integer
xZeile = Target.Row
xDatei = Cells(xZeile, 1)
On Error Resume Next
Workbooks.Open Filename:=xDatei
End Sub
Dieser Code gehört ins Modul des entsprechenden Arbeitsblattes.

Gruss werni
  Thema: WENN-Funktion 
werni

Antworten: 1
Aufrufe: 73

BeitragForum: Excel Hilfe   Verfasst am: 24. Okt 2012, 13:15   Titel: AW: WENN-Funktion Version: Office 2010
Hallo Zymer

Versuch es mal mit dieser Formel. Ohne wenn/dann. (MAX/MIN)
 S230.221479ZelleFormelS2=11+1.5*WURZEL(S24)*(MAX(S26;S28)/MIN(S26;S28))+3.2*WURZEL(S24)*WURZEL((MAX(S26;S28)/MIN(S26;S28)-1)^3)

Ansonsten Beispieltabelle.

Gruss werni
  Thema: Diagramm als JPG speichern? 
werni

Antworten: 3
Aufrufe: 445

BeitragForum: Excel Auswertungen   Verfasst am: 22. Okt 2012, 11:26   Titel: AW: Diagramm als JPG speichern? Version: Office 2007
Hallo Heinz

Mit VBA. Dieser Code Speichert das DIAGRAMM1 aus der TABELLE2 als diagramm1.jpg
Sub Diagramm1_JPG()
Dim objDiagramm As Object
Set objDiagramm = Sheets("Tabelle2").ChartObjects(1).Chart
strDateiname1 = ThisWorkbook.Path & Application.PathSeparator & "diagramm1.jpg"
objDiagramm.Export Filename:=strDateiname1, FilterName:="JPG"
End Sub

Gruss werni
  Thema: Bedingte Formatierung - Ampel in Excel 
werni

Antworten: 1
Aufrufe: 622

BeitragForum: Excel Formate   Verfasst am: 16. Okt 2012, 12:58   Titel: AW: Bedingte Formatierung - Ampel in Excel Version: Office 2010
Hallo Marja

Ev. mit VBA.
Zelle A2 = Zahlen von 1 bis 3

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
Tabelle1.Shapes.Range(Array("Oval 1")).Fill.ForeColor.RGB = RGB(0, 0, 0)
Tabelle1.Shapes.Range(Array("Oval 2")).Fill.ForeColor.RGB = RGB(0, 0, 0)
Tabelle1.Shapes.Range(Array("Oval 3")).Fill.ForeColor.RGB = RGB(0, 0, 0)
If Range("A2") = 1 Then
Tabelle1.Shapes.Range(Array("Oval 1")).Fill.ForeColor.RGB = RGB(255, 0, 0)
Tabelle1.Shapes.Range(Array("Oval 2")).Fill.ForeColor.RGB = RGB(0, 0, 0)
Tabelle1.Shapes.Range(Array("Oval 3")).Fill.ForeColor.RGB = RGB(0, 0, 0)
End If
If Rang ...
  Thema: Schätzspiel auf Excel !! 
werni

Antworten: 12
Aufrufe: 479

BeitragForum: Excel Formeln   Verfasst am: 15. Okt 2012, 11:50   Titel: AW: Schätzspiel auf Excel !! Version: Office 2007
Hallo Birgit

In Zelle J1 wird das Gewicht eingetragen, nachher die Spalte D:D nach Rang sortiert.

 ABCDEFGHIJ1NamenGeschätztDifferenzRang     574.002Jörg573.010.9966      3Günter572.981.0268      4Gaby573.040.9664      5Stephan572.951.0570      ZelleFormelC2=ABS(B2-$J$1)D2=RANG(C2;C:C;1)+ZÄHLENWENN(C$2:C2;C2)-1C3=ABS(B3-$J$1)D3=RANG(C3;C:C;1)+ZÄHLENWENN(C$2:C3;C3)-1C4=ABS(B4-$J$1)D4=RANG(C4;C:C;1)+ZÄHLENWENN(C$2:C4;C4)-1C5=ABS(B5-$J$1)D5=RANG(C5;C:C;1)+ZÄHLENWENN(C$2:C5;C5)-1Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Nach dem Sortieren:
 ABCDEFGHIJ1NamenGeschätztDifferenzRang     574.002Lori574.000.001      3Karin573.970.032      4Alfred574.030.033      5Hansruedi573.940.064      ZelleFormelC2=ABS(B2-$J$1)D2=RANG(C2;C:C;1)+ZÄHLENWENN(C$2:C2;C2)-1C3=ABS(B3-$J$1)D3=RANG(C3;C:C;1)+ZÄHLENWENN(C$2:C3;C3)-1C4=ABS(B4-$J$1)D4=RANG(C4;C:C;1)+ZÄHLENWENN(C$2:C4;C4)-1C5=ABS(B5-$J$1)D5=RANG(C5;C:C;1)+ZÄHLENWENN(C$2:C5;C5)-1Diese Tabelle wurde mit Tab2Html (v2 ...
  Thema: Bedingte Formatierung wenn in Zelle bestimmt.Text über Zeile 
werni

Antworten: 3
Aufrufe: 440

BeitragForum: Excel Formate   Verfasst am: 05. Okt 2012, 21:05   Titel: AW: Bedingte Formatierung wenn in Zelle bestimmt.Text über Z Version: Office 2007
Hallo Momo
Na, Hauptsache es klappt.

Habe mal gegoogelt:
Die Basler Fasnacht ist die grösste Fasnacht der Schweiz. Sie beginnt am Montag nach Aschermittwoch um 4.00 Uhr mit dem Morgestraich. Sie dauert exakt 72 Stunden und endet am Donnerstagmorgen um 4.00 Uhr mit dem Endstraich. In dieser Zeit wird die Basler Innenstadt von den Fasnächtlern beherrscht, die in ihren Cliquen durch die Strassen, Kneipen und Geschäfte ziehen. Von Aktiven wird die Basler Fasnacht auch als „die drey scheenschte Dääg“ (die drei schönsten Tage) bezeichnet.

Das sind dann 41 Tage vor Ostersonntag (6 Wochen vor Ostermontag)

Gruss werni
  Thema: Bedingte Formatierung wenn in Zelle bestimmt.Text über Zeile 
werni

Antworten: 3
Aufrufe: 440

BeitragForum: Excel Formate   Verfasst am: 04. Okt 2012, 22:26   Titel: AW: Bedingte Formatierung wenn in Zelle bestimmt.Text über Z Version: Office 2007
Hallo Momo

Bedingtes Format:
Arbeitsblatt mit dem Namen 'Tabelle1' ABCD11  Feiertag Zellebedingte Formatierung...FormatA111: =$C11="Feiertag"abcB111: =$C11="Feiertag"abcC111: =$C11="Feiertag"abcD111: =$C11="Feiertag"abcDiese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Wenn du CH-Feiertage suchst dann siehe Anhang

Gruss werni
  Thema: Ausblenden von Werten auf der X Achse 
werni

Antworten: 1
Aufrufe: 105

BeitragForum: Excel Auswertungen   Verfasst am: 03. Okt 2012, 06:56   Titel: AW: Ausblenden von Werten auf der X Achse Version: Office 97
Hallo

Dann blende die leeren Zellen mit dem Autofilter aus.

Gruss werni
  Thema: Der Verzweiflung nahe... 
werni

Antworten: 3
Aufrufe: 141

BeitragForum: Excel Hilfe   Verfasst am: 03. Okt 2012, 05:53   Titel: AW: Der Verzweiflung nahe... Version: Office 2010
Hallo

Du meinst sowas?

Das ist die Tabelle mit dem Kalender:
Arbeitsblatt mit dem Namen 'Tabelle1' AB1DatumFeiertage201/01/2012Neujahr301/02/2012 401/03/2012 501/04/2012 601/05/2012 701/06/2012Drei KönigeZelleFormelB2=WENN(ISTFEHLER(INDEX(Tabelle2!DVery Happy;VERGLEICH(A2;Tabelle2!E:E;0)));"";INDEX(Tabelle2!DVery Happy;VERGLEICH(A2;Tabelle2!E:E;0)))B3=WENN(ISTFEHLER(INDEX(Tabelle2!DVery Happy;VERGLEICH(A3;Tabelle2!E:E;0)));"";INDEX(Tabelle2!DVery Happy;VERGLEICH(A3;Tabelle2!E:E;0)))B4=WENN(ISTFEHLER(INDEX(Tabelle2!DVery Happy;VERGLEICH(A4;Tabelle2!E:E;0)));"";INDEX(Tabelle2!DVery Happy;VERGLEICH(A4;Tabelle2!E:E;0)))B5=WENN(ISTFEHLER(INDEX(Tabelle2!DVery Happy;VERGLEICH(A5;Tabelle2!E:E;0)));"";INDEX(Tabelle2!DVery Happy;VERGLEICH(A5;Tabelle2!E:E;0)))B6=WENN(ISTFEHLER(INDEX(Tabelle2!DVery Happy;VERGLEICH(A6;Tabelle2!E:E;0)));"";INDEX(Tabelle2!DVery Happy;VERGLEICH(A6;Tabelle2!E:E;0)))B7=WENN(ISTFEHLER(INDEX(Tabelle2!DVery Happy;VERGLEICH(A7;Tabelle2!E:E;0)));"";INDEX(Tabelle2!DVery Happy;VERGLEICH(A7;Tabelle2!E:E;0 ...
  Thema: Doubleclick - gehe zu Zelle ... 
werni

Antworten: 3
Aufrufe: 248

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Okt 2012, 11:12   Titel: AW: Doubleclick - gehe zu Zelle ... Version: Office 2010
Hallo Marie

So? Der Code gehört ins Modul des Arbeitsblattes.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("A20").Select
End If
Cancel = True
End Sub

Gruss werni
  Thema: Tabellenblatt kopieren 
werni

Antworten: 8
Aufrufe: 252

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Okt 2012, 09:06   Titel: AW: Tabellenblatt kopieren Version: Office 2007
Hallo elektronicel

Ist denn deine Tabelle ("Umbautermine_MC") schreibgeschützt? (Blattschutz)

Diese Zeile kopiert die Tabelle 1 zu 1 mit allen Formaten:
ThisWorkbook.Worksheets("Umbautermine_MC").Copy After:=ThisWorkbook.Sheets(Sheets.Count)

Diese Zeilen setzen bei Formeln nur Werte ein
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Dies wäre dann dein Code:
Public Sub Test()
Dim strName As String
strName = InputBox("Name eingeben", "Eingabe", "Tab22")
If strName = "" Then Exit Sub
ThisWorkbook.Worksheets("Umbautermine_MC").Copy After:=ThisWorkbook.Sheets(Sheets.Count)
ActiveSheet.Unprotect
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect
ActiveSheet.Name = strName
End Sub

Gruss werni
  Thema: Tabellenblatt kopieren 
werni

Antworten: 8
Aufrufe: 252

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Sep 2012, 22:21   Titel: AW: Tabellenblatt kopieren Version: Office 2007
Hallo elektronicel

Mit PasteSpecial

Public Sub Test()
Dim strName As String
strName = InputBox("Name eingeben", "Eingabe", "Tab22")
If strName = "" Then Exit Sub
ThisWorkbook.Worksheets("Umbautermine_MC").Copy After:=ThisWorkbook.Sheets(Sheets.Count)
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Name = strName
End Sub

Gruss werni
  Thema: HEUTE + X Wochen // Formel mit Text kombinieren 
werni

Antworten: 4
Aufrufe: 253

BeitragForum: Excel Formeln   Verfasst am: 26. Sep 2012, 14:33   Titel: AW: HEUTE + X Wochen // Formel mit Text kombinieren Version: Office 2010
Hallo

Was hast du denn für eine Excel-Version (Deutsch oder Englisch)?

Bei Deutsch wäre das Format TT.MM.JJJJ
Bei Englisch das Format DD.MM.YYYY

Kannst ja mal mit Format TT.MMM JJJJ versuchen. Das sieht dann so aus 07.Nov 2012

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

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web