Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 486 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 483, 484, 485, 486, 487, 488, 489 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Leerzeichen finden und ersetzen 
Phelan XLPH

Antworten: 4
Aufrufe: 601

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Mai 2010, 14:50   Titel: AW: Leerzeichen finden und erstzen Version: Office 2010
Teste das hier mal und gib mir mal die Zeit:

Sub ph()
Dim i As Long
Dim arr As Variant
Dim lnglz As Long
Dim rng As Range
Dim varTmp As Variant
Dim t As Single

lnglz = Tabelle1.Cells(Rows.Count, 2).End(xlUp).Row
If lnglz < 7 Then Exit Sub

t = Timer
Set rng = Tabelle1.Range("B7:B" & lnglz)

arr = rng
For i = 1 To UBound(arr)
varTmp = WorksheetFunction.Clean(Trim$(arr(i, 1)))
arr(i, 1) = IIf(varTmp = "", "zz", varTmp)
Next
rng = arr
MsgBox Timer - t & " sec.", , "Zeit:"
End Sub
  Thema: Wenn Plz nicht vorkommt dann Zeile rot 
Phelan XLPH

Antworten: 20
Aufrufe: 1138

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Mai 2010, 14:09   Titel: AW: Wenn Plz nicht vorkommt dann Zeile rot Version: Office 2007
Nochmals:

@Slowboarder

wie würde das aussehen mit bed. Formatierung?

PS: Bedingte Formatierung ist sch.... langsam und wird bei fast jeder Aktion
immer wieder durchgeführt.

Bei einer größeren Datenmenge ist das unerträglich.
Schlimmer als die Volatile-Funktionen.

http://www.online-excel.de/excel/singsel.php?f=172
  Thema: Wenn Plz nicht vorkommt dann Zeile rot 
Phelan XLPH

Antworten: 20
Aufrufe: 1138

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Mai 2010, 13:55   Titel: AW: Wenn Plz nicht vorkommt dann Zeile rot Version: Office 2007
@Slowboarder

wie würde das aussehen mit bed. Formatierung?
  Thema: Wenn Plz nicht vorkommt dann Zeile rot 
Phelan XLPH

Antworten: 20
Aufrufe: 1138

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Mai 2010, 13:50   Titel: AW: Wenn Plz nicht vorkommt dann Zeile rot Version: Office 2007
VanTheMan Nisteroooooooooy,

hier eine Deluxe-Variante nur für den Suparstar!

Sub phTxt()
Dim wks As Worksheet
Dim arrWL() As String
Dim arrADR() As Variant
Dim arrTmp As Variant
Dim i As Long, m As Long
Dim intFF As Integer
Dim strTxt As String
Dim strPfad As String

strPfad = "d:\test\Test1.txt" 'Anpassen
Set wks = Tabelle1

intFF = FreeFile()
Open strPfad For Input As #intFF
strTxt = Input(LOF(intFF), #intFF)
Close #intFF

arrWL = Split(strTxt, ";")


arrTmp = wks.Range("A1").CurrentRegion.Columns(5)
ReDim arrADR(1 To UBound(arrTmp) - 1)
For i = 2 To UBound(arrTmp)
arrADR(i - 1) = Format(arrTmp(i, 1), "00000")
Next

Erase arrTmp
For i = 1 To UBound(arrADR ...
  Thema: Wenn Plz nicht vorkommt dann Zeile rot 
Phelan XLPH

Antworten: 20
Aufrufe: 1138

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Mai 2010, 12:46   Titel: AW: Wenn Plz nicht vorkommt dann Zeile rot Version: Office 2007
Nochmals:

Hast du 2 Tabellen? In der einen die adressen und in der anderen (Whitelist)
nur die "echten" PLZs?
  Thema: Wenn Plz nicht vorkommt dann Zeile rot 
Phelan XLPH

Antworten: 20
Aufrufe: 1138

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Mai 2010, 12:39   Titel: AW: Wenn Plz nicht vorkommt dann Zeile rot Version: Office 2007
Hallo wie sind die Tabellen aufgebaut?
  Thema: 6 stellige zufallszahl die sich nicht wiederholt? 
Phelan XLPH

Antworten: 15
Aufrufe: 2909

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Mai 2010, 07:29   Titel: AW: 6 stellige zufallszahl die sich nicht wiederholt? Version: Office XP (2002)
ersetz mal den Code:

Option Explicit

Private Sub CommandButton1_Click()
If ActiveCell.Column = 1 Then Eintrag 1
End Sub

Private Sub CommandButton2_Click()
If ActiveCell.Column = 3 Then Eintrag 2
End Sub

Private Sub Eintrag(intSpalte As Integer)
Dim strZZ As String
If ActiveCell <> "" Then
If MsgBox("'" & ActiveCell & "' in [" & ActiveCell.Address(0, 0) & "] überschreiben?", _
vbCritical + vbDefaultButton2 + vbYesNo, "Überschreiben?") = vbNo Then Exit Sub
End If
BlattSchutzAufheben
Application.Cursor = xlWait
strZZ = ZufallsGenerator("123-abc-", intSpalte)
If strZZ <> "" Then
ActiveCell = strZZ
ActiveCell.Offset(, 1) = "text" & intSpalte & "_" & Int(Rnd * 100)
End If
Application.Curso ...
  Thema: Benutzerdef. feld als DropDown 
Phelan XLPH

Antworten: 1
Aufrufe: 408

BeitragForum: Outlook VBA und Formulare   Verfasst am: 14. Mai 2010, 22:16   Titel: Benutzerdef. feld als DropDown Version: Office 2003
Hallo,

ist es möglich ein benutzerdefiniertes Feld als DropDown zu generieren?

Oder bleibt mir da nur der Weg übers Formular?

Danke im Voraus!
  Thema: 6 stellige zufallszahl die sich nicht wiederholt? 
Phelan XLPH

Antworten: 15
Aufrufe: 2909

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Mai 2010, 22:13   Titel: AW: 6 stellige zufallszahl die sich nicht wiederholt? Version: Office XP (2002)
das habe ich bereits berücksichtigt:

Private Sub CommandButton1_Click()
Dim t As Single
If ActiveCell.Column = 1 Then
If ActiveCell <> "" Then
If MsgBox("'" & ActiveCell & "' in If ActiveCell <> "" Then _
ActiveCell.Offset(, 1) = "text1_" & Int(Rnd * 100)
Application.Cursor = xlDefault
BlattSchutzSetzen
End If
End Sub
  Thema: 6 stellige zufallszahl die sich nicht wiederholt? 
Phelan XLPH

Antworten: 15
Aufrufe: 2909

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Mai 2010, 18:56   Titel: AW: 6 stellige zufallszahl die sich nicht wiederholt? Version: Office XP (2002)
Jetzt is gut oder?!
  Thema: Import mehrerer UserForms & Module 
Phelan XLPH

Antworten: 12
Aufrufe: 294

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Mai 2010, 17:48   Titel: AW: Import mehrerer UserForms & Module Version: Office 2003
@ ETO

aus Wiki:
Als Redefigur verwendet, wird die Contradictio in adiecto als Oxymoron bezeichnet.

also: keine Verwechslung sondern Bestandteil

=>Cessante causa cessat effectus

...du sagst es!
  Thema: Text in Zelle trennen 
Phelan XLPH

Antworten: 23
Aufrufe: 2715

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Mai 2010, 17:29   Titel: AW: Text in Zelle trennen Version: Office 2003
Büdde
  Thema: Import mehrerer UserForms & Module 
Phelan XLPH

Antworten: 12
Aufrufe: 294

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Mai 2010, 17:23   Titel: AW: Import mehrerer UserForms & Module Version: Office 2003
Und, ich muss mein Ego nicht im Forum aufpolieren. Ich programmiere schon länger als du alt bist und hab schon in Foren gepostet als du noch in den Windeln lagst.quote]

...hört, hört!

Ehre wem Ehre gebührt! Cool

Aber ist der Absatz nicht ein Widerspruch in sich! Confused

Wieder mal ein tolles Beispiel wie ambivalent die Psyche doch ist! Very Happy

@TzK

ich sowas wie folgt gelöst:
Eine Datei die das Formular enthält, also ein reines Eingabe-Werkzeug und
eine Datei die als Datenbank fungiert. Beide auf einem Netz-LW.
Alle User sollen sich eine Kopie auf ihr LW oder lokal speichern und mit dieser
arbeiten. Beim öffnen der Formular-Datei werden Werte aus der DB in die
Form gelesen sowie beim aktualisieren, und nach Daten-bearbeitung an die
DB-Datei gesandt. Wichtig: Prüfung auf Kollision (ist DB bereits von einem
anderen User geöffnet?). Verringerung der Kollisionwahrscheinlichkeit durch
schnelles öffnen und schließen der DB-Datei bei Lesen und Schreiben von bzw.
in diese, ...
  Thema: 6 stellige zufallszahl die sich nicht wiederholt? 
Phelan XLPH

Antworten: 15
Aufrufe: 2909

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Mai 2010, 17:02   Titel: AW: 6 stellige zufallszahl die sich nicht wiederholt? Version: Office XP (2002)
So?
  Thema: 6 stellige zufallszahl die sich nicht wiederholt? 
Phelan XLPH

Antworten: 15
Aufrufe: 2909

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Mai 2010, 06:46   Titel: AW: 6 stellige zufallszahl die sich nicht wiederholt? Version: Office XP (2002)
Hallo jason,

ersetze beide Click-Ereignisse durch folgende:
Private Sub CommandButton1_Click()
Dim t As Single
If ActiveCell.Column = 1 Then
If ActiveCell <> "" Then
If MsgBox("'" & ActiveCell & "' in [" & ActiveCell.Address(0, 0) & "] überschreiben?", _
vbCritical + vbDefaultButton2 + vbYesNo, "Überschreiben?") = vbNo Then Exit Sub
End If
Application.Cursor = xlWait
ActiveCell = ZufallsGenerator("123-abc-", ActiveCell.Text, 1)
Application.Cursor = xlDefault
End If
End Sub

Private Sub CommandButton2_Click()
Dim t As Single
If ActiveCell.Column = 2 Then
If ActiveCell <> "" Then
If MsgBox("'" & ActiveCell & "' in [" & ActiveCell.Address(0, 0) & "] überschreibe ...
 
Seite 486 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 483, 484, 485, 486, 487, 488, 489 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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