Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 497 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 494, 495, 496, 497, 498, 499, 500 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: vergleichen von werten 
Phelan XLPH

Antworten: 18
Aufrufe: 1041

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2010, 20:14   Titel: AW: vergleichen von werten Version: Office 2007
Nimm die Max-Funktion dafür:
Sub Maximum()
Dim momentm21 As Double
Dim momentm22 As Double
Dim momentm23 As Double
Dim mmax11 As Double
mmax11 = WorksheetFunction.Max(momentm21, momentm22, momentm23)
End Sub
  Thema: Drag and Drop 
Phelan XLPH

Antworten: 4
Aufrufe: 458

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2010, 20:06   Titel: AW: Drag and Drop Version: Office 2007
@Rosch

Starke Sache gefällt mir richtig gut. Smile
  Thema: Spalten vergleichen und ggf. addieren 
Phelan XLPH

Antworten: 9
Aufrufe: 1066

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2010, 19:58   Titel: AW: Spalten vergleichen und ggf. addieren Version: Office 2007
(so soll z.B. aus den Spalten B und C nur eine Spalte werden, Zeile 2, 9, 10 und 12 den Wert '1' enthält). stimmt mit dem Bild nicht, oder
verstehe ich da was falsch.
  Thema: vntGesucht 
Phelan XLPH

Antworten: 5
Aufrufe: 213

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2010, 19:49   Titel: AW: vntGesucht Version: Office 2007
Ach herje, welch Fehler

Bereich und Kriterium jeweils angeben:
MsgBox WorksheetFunction.CountIfs(Range("A2:C9"), "<30", Range("A2:C9"), ">10")
  Thema: Zahl in Binärcode übersetzen 
Phelan XLPH

Antworten: 8
Aufrufe: 7887

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2010, 19:36   Titel: AW: Zahl in Binärcode übersetzen Version: Office 2007
Function BinärInDec(txt As String) As Variant
Dim i As Long
txt = StrReverse(txt)
For i = 1 To Len(txt)
BinärInDec = BinärInDec + Fix(Val(Mid$(txt, i, 1))) * 2 ^ (i - 1)
Next
End Function

Ergebnis: 2,22870192779095E+93
  Thema: vntGesucht 
Phelan XLPH

Antworten: 5
Aufrufe: 213

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jan 2010, 19:04   Titel: AW: vntGesucht Version: Office 2007
Da hast du Glück dass du Excel 2007 hast.

If Application.WorksheetFunction.CountIfs(rngSuchBereich, vntGesucht1, vntGesucht2, vntGesucht3,...) then
  Thema: Verschlüsseln von Passwörtern 
Phelan XLPH

Antworten: 29
Aufrufe: 2482

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jan 2010, 16:33   Titel: AW: Verschlüsseln von Passwörtern Version: Office 2007
Wink
  Thema: Verschlüsseln von Passwörtern 
Phelan XLPH

Antworten: 29
Aufrufe: 2482

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jan 2010, 15:27   Titel: AW: Verschlüsseln von Passwörtern Version: Office 2007
Private Sub cmdPWweiter_Click()
If Worksheets("Code").Range("A2").Text = txtPW.Text Then
' MsgBox "Richtig!!!!"
'
' Freischalten Makro
Sheets("Code").Unprotect "Test
Sheets("Code").Range("A1").Value = Sheets("Code").Range("A2").Value
Sheets("Code").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="Test"
Sheets("Menü").Select
' Ende Freischalten
'
Unload Me
Else
MsgBox "Falsches Passwort! Versuchen Sie es noch einmal."
txtPW.Text = ""
txtPW.SetFocus
End If
End Sub
  Thema: Spalten im 4erpack summieren, dann Zeilenwechsel > array? 
Phelan XLPH

Antworten: 10
Aufrufe: 460

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jan 2010, 13:31   Titel: AW: Spalten im 4erpack summieren, dann Zeilenwechsel > ar Version: Office 2007
Weil Array mehr SPEED hat!
  Thema: Verschlüsseln von Passwörtern 
Phelan XLPH

Antworten: 29
Aufrufe: 2482

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jan 2010, 13:18   Titel: AW: Verschlüsseln von Passwörtern Version: Office 2007
Mal schauen, danke erst mal.
  Thema: Verschlüsseln von Passwörtern 
Phelan XLPH

Antworten: 29
Aufrufe: 2482

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jan 2010, 12:28   Titel: AW: Verschlüsseln von Passwörtern Version: Office 2007
Vor der Registry hab zuviel Respekt, zwar gibts da nen Extra-Bereich für VBA,
aber trotzdem, hab ich keine richtige Ahnung was die Registry angeht.

EDIT:
Besteht die Gefahr diese zuzumüllen, gibts auch Grenzen bezügl. Datenmenge.
Ist die Registry Rechner- und/oder User- abhängig?

Die kann doch ein anderer auch auslesen oder nicht?
Was ist wenn der Schlüssel vergessen wird?
  Thema: Verschlüsseln von Passwörtern 
Phelan XLPH

Antworten: 29
Aufrufe: 2482

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jan 2010, 12:15   Titel: AW: Verschlüsseln von Passwörtern Version: Office 2007
Code in der UserForm

If Worksheets("Code").Range("H8").Text = txtPW.Text Then
  Thema: Verschlüsseln von Passwörtern 
Phelan XLPH

Antworten: 29
Aufrufe: 2482

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jan 2010, 12:14   Titel: AW: Verschlüsseln von Passwörtern Version: Office 2007
@mumpel

...wie wärs mit einer Anleitung
  Thema: Verschlüsseln von Passwörtern 
Phelan XLPH

Antworten: 29
Aufrufe: 2482

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jan 2010, 12:04   Titel: AW: Verschlüsseln von Passwörtern Version: Office 2007
wie sagte doch ein weißer mann?

...bist du dir sicher dass es kein Farbiger war?
  Thema: Verschlüsseln von Passwörtern 
Phelan XLPH

Antworten: 29
Aufrufe: 2482

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jan 2010, 11:58   Titel: AW: Verschlüsseln von Passwörtern Version: Office 2007
ja, ja - immer auf die Kleinen.

...aber nicht doch. Bei so einem Code dachte ich ... Question Exclamation
 
Seite 497 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 494, 495, 496, 497, 498, 499, 500 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen