Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Sicherheitshinweis ---> für registrierte Mitglieder <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 768 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 765, 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Kran Problem.Dynamisches Makro Mittelwert und Summe mit Zeit 
Phelan XLPH

Antworten: 23
Aufrufe: 1444

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2009, 16:49   Titel: AW: Kran Problem.Dynamisches Makro Mittelwert und Summe mit Version: Office 2003
...macht er das denn nicht?
  Thema: eigene funktion definieren? 
Phelan XLPH

Antworten: 7
Aufrufe: 386

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2009, 16:46   Titel: AW: eigene funktion definieren? Version: Office 2003
...wie heißts: Todgesagte leben länger

...Es lebe der king
  Thema: Error Code 438 
Phelan XLPH

Antworten: 13
Aufrufe: 1453

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2009, 16:42   Titel: AW: Error Code 438 Version: Office 2003
Tabellenbezeichnung:

Destwb.Sheets("Import").Range(LIST_EMPLOYEE_DEST)

in z.B.

Destwb.Sheet1.Range(LIST_EMPLOYEE_DEST)

ändern.
Da musst du im vba-editor ,Projekt-Explore (linke seite,oben) wie der
CodeName des jeweiligen Blattes ist und dann abändern

zur Mappe:

Thisworkbook bezeichnet die Mappe die den Code enthält,also sicherer
gehts nicht!

Außer du möchtest den Code in einer 3. Mappe verstauen.
Dann musst du aber zum Kopieren 2 mappen öffnen(Quell- und Zielmappe)
  Thema: eigene funktion definieren? 
Phelan XLPH

Antworten: 7
Aufrufe: 386

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2009, 16:28   Titel: AW: eigene funktion definieren? Version: Office 2003

Public Function TerminEingehalten() As Double

Dim Eingehalten As Integer
Dim sz5 As Integer
Dim sz6 As Integer
Dim anz As Integer
Dim ws2 As Worksheet

Set ws2 = Worksheets(1) '"Auswertung")
Eingehalten = 0
anz = 0

'Nun wird gezählt, wie oft das Lieferdatum eingehalten worden ist.

For sz5 = 4 To ws2.UsedRange.Rows.Count

If ws2.Cells(sz5, 6) <= ws2.Cells(sz5, 5) Then
Eingehalten = Eingehalten + 1
End If

Next sz5

'MsgBox eingehalten

'Hier wird gezählt, wie viele Produkt un deren Release in der Auswertung vorhanden sind.

For sz6 = 4 To ws2.UsedRange.Rows.Count

If ws2.Cells(sz6, 1) <> "" Then
anz = anz + 1
End If

Next sz6

'MsgBox anz

'Als letztes wird berechnet, wie oft das Lieferdatum eingehalten wurde (in Prozent).

'ws2.Cells(1, 6) = Eingehalten / anz
TerminEingehalten = Eingehalten / anz
End Function

  Thema: Speicherzeitpunkt in Zelle schreiben 
Phelan XLPH

Antworten: 2
Aufrufe: 907

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2009, 15:59   Titel: AW: Speicherzeitpunkt in Zelle schreiben Version: Office 2003
Korrektur



Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("Tabelle1").Range("A1") = Now

End Sub

'ODER SO:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("Tabelle1").Range("B1") = ThisWorkbook.BuiltinDocumentProperties(12)
Worksheets("Tabelle1").Range("B1").NumberFormat = "dd/mm/yyyy hh:mm:ss"
End Sub
  Thema: Error Code 438 
Phelan XLPH

Antworten: 13
Aufrufe: 1453

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2009, 15:44   Titel: AW: Error Code 438 Version: Office 2003
So hauts hin:


Private Sub Btn_Import_Click()
Dim fname As Variant
Dim Destwb As Workbook
Dim Srcwb As Workbook
Const LIST_EMPLOYEE_DEST = "B9"

Set Destwb = ThisWorkbook
fname = Application.GetOpenFilename("XLS-Dateien,*.xls")
If fname <> False Then
Set Srcwb = Workbooks.Open(fname)

Srcwb.Sheets("Sheet1").UsedRange.Offset(1, 0).Copy _
Destwb.Sheets("Import").Range(LIST_EMPLOYEE_DEST)

Srcwb.Close False
End If
Set Srcwb = Nothing
Set Destwb = Nothing
End Sub

...von "Sheet1" ohne Überschriften NACH "Import" Zelle "B9" Wink
  Thema: Error Code 438 
Phelan XLPH

Antworten: 13
Aufrufe: 1453

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2009, 14:48   Titel: AW: Error Code 438 Version: Office 2003
Was willst du ganu machen...Begreife deinen Code nicht??????????
Was und von wo nach wo willst du was kopieren(importieren Smile )???
  Thema: Error Code 438 
Phelan XLPH

Antworten: 13
Aufrufe: 1453

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2009, 14:45   Titel: AW: Error Code 438 Version: Office 2003
Sheets statt Scheets
  Thema: Kran Problem.Dynamisches Makro Mittelwert und Summe mit Zeit 
Phelan XLPH

Antworten: 23
Aufrufe: 1444

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2009, 14:24   Titel: AW: Kran Problem.Dynamisches Makro Mittelwert und Summe mit Version: Office 2003
Versuchs mit ner Zählvariable:

hab den code jetzt nicht genauer angeschaut!


Sub VielleichtHilfts()
Dim intAnzMW As Integer

intAnzMW = intAnzMW + 1
If intAnzMW > 3 Then
ws.Cells(xStart.Row, iColResult).Formula = "=Average(" & rArea.Offset(0, iColResult - iColY - 3).Address & ")"
intAnzMW = 0
End If

End Sub
  Thema: Manuelles Ein- & Ausblenden von Tabellenblättern unterbi 
Phelan XLPH

Antworten: 1
Aufrufe: 269

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2009, 14:15   Titel: AW: Manuelles Ein- & Ausblenden von Tabellenblättern unt Version: Office 2003
SpeichernFrage:

ins klassenmodul "DieseArbeitsmappe"


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If MsgBox("Do you really want to save the workbook?", vbYesNo) = vbNo Then
Cancel = True
End If
End Sub



BlattUn-/Sichtbar:

Sub SheetEinblenden()
Worksheets("Tabelle1").Visible = xlSheetVeryHidden
End Sub

Sub SheetAusblenden()
Worksheets("Tabelle1").Visible = xlSheetVisible
End Sub


..oder händisch in -> vba-Editor->Tabelle wählen->in Eigenschaften-Fenster
->Visible einstellen
  Thema: Bereich (Range) definieren mit FIND 
Phelan XLPH

Antworten: 2
Aufrufe: 1901

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2009, 13:53   Titel: AW: Bereich (Range) definieren mit FIND Version: Office 2007

Sub HabsAufgezeichnet()
Dim aColor As Long
Dim Bereich As Range
Dim Rng As Range

aColor = 65535 'zB Gelb

With Application.FindFormat.Interior
.Color = aColor
End With

Set Bereich = Cells
Set Rng = Bereich.Find("", SearchFormat:=True)

Rng.Select

End Sub
  Thema: Nur Werte kopieren - keine Formeln 
Phelan XLPH

Antworten: 2
Aufrufe: 1005

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Feb 2009, 09:08   Titel: AW: Nur Werte kopieren - keine Formeln Version: Office 2003
müsste so funktionieren!


Sub Daten_Übertragen()
Dim Bereich As Range, Zelle As Range
Dim DicOr As Object
Dim DicDu As Object
Dim a As String, Eintrag As Variant

Set DicOr = CreateObject("Scripting.Dictionary")
Set DicDu = CreateObject("Scripting.Dictionary")

'Daten aus dem SachnummernBlatt entnehmen
With Worksheets("1")
.Columns("B").Hidden = False
Set Bereich = .Range("B11:B41")
End With

For Each Zelle In Bereich
a = Replace(Zelle.Text, " ", "")
If DicOr.Exists(a) = False Then
DicOr.Add a, Zelle.Address
End If
Next Zelle

'Daten aus den Bereinigten entnehmen
With Worksheets("AZN_Datensaetze")
Set Bereich = .Range("A2:A" & .Range("A65536").End(xlUp).Row)
End With

For Each Zelle In Bereich
a = Replace(Zelle.Text, " ", ""& ...
  Thema: Projektplanung 
Phelan XLPH

Antworten: 8
Aufrufe: 1654

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Feb 2009, 23:19   Titel: AW: Projektplanung Version: Office 2003
Doppelclick auf: Team/Projekt/Beschreibung/von/bis bewirkt
Sortierung der jeweiligen Spalte.Also bei mir funzt die Sortierung
  Thema: Projektplanung 
Phelan XLPH

Antworten: 8
Aufrufe: 1654

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Feb 2009, 21:17   Titel: AW: Projektplanung Version: Office 2003
Mach nochmal ein Upload!
  Thema: alle Matrixkombinationen mit VBA finden 
Phelan XLPH

Antworten: 8
Aufrufe: 798

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Feb 2009, 17:04   Titel: AW: alle Matrixkombinationen mit VBA finden Version: Office XP (2002)
Besteht die Kombination(Gruppe) aus 2 Elementen oder kann das variieren?
 
Seite 768 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 765, 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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