Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 588 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 585, 586, 587, 588, 589, 590, 591 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Gesamte beschriebenen Zeilen miteinander vergleichen 
Phelan XLPH

Antworten: 10
Aufrufe: 233

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 11:44   Titel: AW: Gesamte beschriebenen Zeilen miteinander vergleichen Version: Office 2003
Dafür kannst du den Spezialfilter einsetzen.

Dieser filtert dir die Quelle ohne Duplikate.
  Thema: FindControlID für Paste Special Formats? 
Phelan XLPH

Antworten: 5
Aufrufe: 526

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 11:35   Titel: AW: FindControlID für Paste Special Formats? Version: Office 2003
Was ist denn dein ziel?
  Thema: Excel Formel in VBA nutzen und Variable füllen 
Phelan XLPH

Antworten: 7
Aufrufe: 2931

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 11:34   Titel: AW: Excel Formel in VBA nutzen und Variable füllen Version: Office 2007
Was liefert denn der Ausdruch zurück!?

"=PALO.ECOUNT(Maske!D6;Maske!D10)"
  Thema: worksheet_change keine Funktion 
Phelan XLPH

Antworten: 12
Aufrufe: 449

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 11:21   Titel: AW: worksheet_change keine Funktion Version: Office 2003
@Gast

wäre schön wenn du dich zu erkennen geben würdest.
Maskenträger sind Falschspieler.

Also ich soll eine Meldung rausbringen falls ein Fehler vorliegt,
na dann bitte schön:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ENDE
If Not Intersect(Target, Range("B12:B15")) Is Nothing Then
Application.EnableEvents = False
HintergrundFaerben Intersect(Target, Range("B12:B15"))
End If
ENDE:
If Err Then
MsgBox Err.Description, , "Fehler: " & Err
Application.EnableEvents = True
End If
End Sub

Private Sub HintergrundFaerben(Bereich As Range)
Bereich.Interior.ColorIndex = 6
End Sub

ist das zu deiner vollsten Zufriedenheit?...M. Ominös 8)
  Thema: Automatische Abfrage 
Phelan XLPH

Antworten: 2
Aufrufe: 305

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 11:09   Titel: AW: Automatische Abfrage Version: Office XP (2002)
@A4711

wie kann ich das manuell aufrufen, Shock das sehe ich zum ersten mal.
Brauche Infos dazu. Was kann ich damit alles machen?
Hab Excel2007
  Thema: worksheet_change keine Funktion 
Phelan XLPH

Antworten: 12
Aufrufe: 449

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 10:34   Titel: AW: worksheet_change keine Funktion Version: Office 2003
@Gast

Aus der Hilfe:
Raise-Methode
Siehe auch Beispiel Betrifft Zusatzinfo

Löst einen Laufzeitfehler aus.

Syntax

Objekt.Raise (number, source, description, helpfile, helpcontext)

...hast du da nicht was verwchselt?

weiter:
Die Eigenschaften des Err-Objekts werden auf Null oder Null-Zeichenfolgen ("") zurückgesetzt, nachdem eine Exit Sub-, Exit Function-, Exit Property- oder Resume Next-Anweisung innerhalb einer Fehlerbehandlungsroutine auftritt. Die Verwendung jeglicher Form der Resume-Anweisung außerhalb einer Fehlerbehandlungsroutine setzt die Eigenschaften des Err-Objekts nicht zurück. Die Clear-Methode kann verwendet werden, um Err explizit zurückzusetzen.

Du meintest wohl eher Clear 8)

Wer lernt jetzt von wem? Laughing Laughing Laughing
  Thema: Find Methode um 2 Ausdrücke zu finden 
Phelan XLPH

Antworten: 3
Aufrufe: 595

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 10:19   Titel: AW: Find Methode um 2 Ausdrücke zu finden Version: Office 2007
@Eto

...dein Code hat jede Menge Features, was fehlt ist nur die Sitzheizung Laughing Laughing Laughing
  Thema: Find Methode um 2 Ausdrücke zu finden 
Phelan XLPH

Antworten: 3
Aufrufe: 595

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 10:15   Titel: AW: Find Methode um 2 Ausdrücke zu finden Version: Office 2007
Da musst du die For each-Schleife verwenden


Sub Such()
Dim zell As Range
For Each zell In Range("A1:A100")
If InStr(zell, "an") > 0 Or InStr(zell, "aus") > 0 Then
MsgBox "Zeile: " & zell.Row
End If
Next
End Sub
  Thema: Bestimmte Anzahl txtboxen in Frame deaktivieren/aktivieren 
Phelan XLPH

Antworten: 5
Aufrufe: 1012

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 10:09   Titel: AW: Bestimmte Anzahl txtboxen in Frame deaktivieren/aktivier Version: Office 2003
Es werden alle Controls der UserForm in einer Schleife durchlaufen.
Alle vom Typ "TextBox" oder "Label" werden "Disabled", wenn
der ControlName mit einer Zahl von 1 bis 20 endet.

z.B. TextBox5 oder Label18

folgender Code trennt die Zahl aus dem Text "TextBox18"
CInt(Mid(ctrl.Name, 8)) entspricht 18
  Thema: worksheet_change keine Funktion 
Phelan XLPH

Antworten: 12
Aufrufe: 449

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 09:43   Titel: AW: worksheet_change keine Funktion Version: Office 2003
hallo,

hier ein Bsp:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ENDE
If Not Intersect(Target, Range("B12:B15")) Is Nothing Then
Application.EnableEvents = False
HintergrundFaerben Intersect(Target, Range("B12:B15"))
End If
ENDE:
Application.EnableEvents = True
End Sub

Private Sub HintergrundFaerben(Bereich As Range)
Bereich.Interior.ColorIndex = 6
End Sub
  Thema: Select Anweisung in VBScript 
Phelan XLPH

Antworten: 8
Aufrufe: 1063

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 08:43   Titel: AW: Select Anweisung in VBScript Version: Office 2003
Function FLettersOut(s)
Dim Regex
Set Regex = CreateObject("Vbscript.Regexp")
With Regex
.Global = True
.Pattern = "[^0-9]"
FLettersOut = .Replace(s, "")
End With
Set Regex = Nothing
End Function

das müsste aber so gehen. Alles ausser Ziffern von 0-9 wird gelöscht
  Thema: Select Anweisung in VBScript 
Phelan XLPH

Antworten: 8
Aufrufe: 1063

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 08:33   Titel: AW: Select Anweisung in VBScript Version: Office 2003
einfach in deinem Code ersetzen Shock Very Happy

liefert nur "123" und nicht "123 -"
  Thema: Select Anweisung in VBScript 
Phelan XLPH

Antworten: 8
Aufrufe: 1063

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 08:19   Titel: AW: Select Anweisung in VBScript Version: Office 2003
irgendwie widersprichst du dich.

.Pattern = "[^0-9]"
  Thema: Hilfe, einfaches Array, ich kapiers nicht :( 
Phelan XLPH

Antworten: 2
Aufrufe: 447

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 08:09   Titel: AW: Hilfe, einfaches Array, ich kapiers nicht :( Version: Office 2003
Vielleicht solltest due deine Problematik etwas genauer beschreiben,
denn ich versteh den Sinn nicht ganz
  Thema: Bestimmte Anzahl txtboxen in Frame deaktivieren/aktivieren 
Phelan XLPH

Antworten: 5
Aufrufe: 1012

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 23:44   Titel: AW: Bestimmte Anzahl txtboxen in Frame deaktivieren/aktivier Version: Office 2003
Private Sub cmdButtonGoN_Click()
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeName(ctrl) = "TextBox" Then
Select Case CInt(Mid(ctrl.Name, 8))
Case 1 To 20: ctrl.Enabled = False
End Select
End If
If TypeName(ctrl) = "Label" Then
Select Case CInt(Mid(ctrl.Name, 6))
Case 1 To 20: ctrl.Enabled = False
End Select
End If
Next
End Sub
 
Seite 588 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 585, 586, 587, 588, 589, 590, 591 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP Forum