Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 274 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 271, 272, 273, 274, 275, 276, 277 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Definition einer Variablen 
Phelan XLPH

Antworten: 36
Aufrufe: 1298

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2011, 20:29   Titel: AW: Definition einer Variablen Version: Office 2003
Hahaha, warum löschst du????
  Thema: Dezimalzahlen suchen und dauerhaft farbig markieren 
Phelan XLPH

Antworten: 8
Aufrufe: 678

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2011, 20:07   Titel: AW: Dezimalzahlen suchen und dauerhaft farbig markieren Version: Office 2003
wbExcelDatei.Sheets

Dann hoffen wir mal dass keine Diagramme vorhanden sind
  Thema: Definition einer Variablen 
Phelan XLPH

Antworten: 36
Aufrufe: 1298

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2011, 20:01   Titel: AW: Definition einer Variablen Version: Office 2003
Ha,Ha Laughing Laughing Laughing

Finde ich leserlich als die ewiglangen Texte.

Schadet dem Gerüst der konstruktion, so erkennt man die
Zusammengehörigkeiten.

Ich der Kürze liegt die Würze.

Match ist am schnellsten, was ich so rausgefunden hab.
  Thema: wenn erstes zeichen im string kleinbuchstabe dann löschen 
Phelan XLPH

Antworten: 7
Aufrufe: 989

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2011, 19:55   Titel: AW: wenn erstes zeichen im string kleinbuchstabe dann lösche Version: Office 2003
Wozu LINKS ?
  Thema: Definition einer Variablen 
Phelan XLPH

Antworten: 36
Aufrufe: 1298

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2011, 19:45   Titel: AW: Definition einer Variablen Version: Office 2003
...ist nochmal um den Faktor 8 schneller:

Sub Text_SW()

Dim rngS As Range
Dim lngLZ As Long
Dim arSuch As Variant
Dim i As Long
Dim z As Long
Dim r As Variant
Dim t As Single

t = Timer
With Worksheets("Test")
Set rngS = .Range("G1:G" & .Cells(.Rows.Count, 7).End(xlUp).Row)
End With
With Worksheets("Inaktive Kostenstellen")
arSuch = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
lngLZ = rngS.Rows.Count
For i = 1 To UBound(arSuch)
z = 1
Do
r = Application.Match(arSuch(i, 1), rngS(z, 1).Resize(lngLZ - z + 1), 0)
If Not IsError(r) Then: z = z + r: rngS(z - 1, 1).EntireRow.Interior.ColorIndex = 3
Loop Until ...
  Thema: ANSI Zeichen suche 
Phelan XLPH

Antworten: 21
Aufrufe: 1244

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2011, 18:57   Titel: AW: ANSI Zeichen suche Version: Office 2003
@Hedge

ganz ruhig. Eto ist ohne seine Kugel auch nix.

Irgendwann verübe ich nen Anschlag auf die Kugel, he he Cool

EDIT: Ähm, der Post zuvor war ein Witz, falls es dir nicht aufgefallen ist.
  Thema: ANSI Zeichen suche 
Phelan XLPH

Antworten: 21
Aufrufe: 1244

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2011, 18:54   Titel: AW: ANSI Zeichen suche Version: Office 2003
Wieso? Im Netz hats jede Menge Umwandler. Da wird er sich einen runterladen
können. Also was einfacheres gibts doch nicht. Cool
  Thema: ANSI Zeichen suche 
Phelan XLPH

Antworten: 21
Aufrufe: 1244

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2011, 18:38   Titel: AW: ANSI Zeichen suche Version: Office 2003
ALT+9 bewirkt auch nix!!!!!!

gib mal =Zeichen(9) ein und wandel in festwert um.
  Thema: For-Schleife für Combobox in Userform 
Phelan XLPH

Antworten: 4
Aufrufe: 396

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2011, 18:34   Titel: AW: For-Schleife für Combobox in Userform Version: Office 2007
Combobox2.Listindex=1
  Thema: ANSI Zeichen suche 
Phelan XLPH

Antworten: 21
Aufrufe: 1244

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2011, 18:29   Titel: AW: ANSI Zeichen suche Version: Office 2003
lad ein Beispiel hoch
  Thema: ANSI Zeichen suche 
Phelan XLPH

Antworten: 21
Aufrufe: 1244

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2011, 18:27   Titel: AW: ANSI Zeichen suche Version: Office 2003
?mh
  Thema: ANSI Zeichen suche 
Phelan XLPH

Antworten: 21
Aufrufe: 1244

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2011, 18:13   Titel: AW: ANSI Zeichen suche Version: Office 2003
9 ist Tabulator !!!! Probiers mit 10 und 13
  Thema: For Each Checkbox in UserForm 
Phelan XLPH

Antworten: 18
Aufrufe: 2351

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2011, 18:07   Titel: AW: For Each Checkbox in UserForm Version: Office 2003
Private Sub ListBox1_Change()
Dim i As Long
Dim rngB As Range
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
If rngB Is Nothing Then
Set rngB = Cells(i + 1, 1)
Else
Set rngB = Union(rngB, Cells(i + 1, 1))
End If
End If
Next
If Not rngB Is Nothing Then _
rngB.EntireRow.Select
End With
End Sub


Private Sub UserForm_Initialize()
ListBox1.List = [row(1:10)]
ListBox1.MultiSelect = fmMultiSelectExtended
ListBox1.ListStyle = fmListStyleOption
End Sub

Mehrfachmarkierung: STRG+Klick oder Mauszeiger gedrückt ziehen
  Thema: ANSI Zeichen suche 
Phelan XLPH

Antworten: 21
Aufrufe: 1244

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2011, 17:53   Titel: AW: ANSI Zeichen suche Version: Office 2003
Range("A:A").Replace Chr(9), "Ä"
  Thema: in Spalte drei Veränderungen nach oben abweichen 
Phelan XLPH

Antworten: 5
Aufrufe: 147

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2011, 17:44   Titel: AW: in Spalte drei Veränderungen nach oben abweichen Version: Office XP (2002)
Sub AnzahlAenderungen()
Dim rngTarget3 As Range
Dim rngBeforeGreyCell As Range
Dim rngBeforeEmptyCell As Range
Dim lngStartZeile As Long
Dim lngAnzahlAenderungen As Long
Dim i As Long

Set rngTarget3 = Cells(Rows.Count, 3).End(xlUp)

For i = rngTarget3.Row To 2 Step -1
If Cells(i, 2).Interior.ColorIndex = 15 Then _
Set rngBeforeGreyCell = Cells(i, 2).Offset(1): Exit For
Next

If Not rngBeforeGreyCell Is Nothing Then _
lngStartZeile = rngBeforeGreyCell.Row


Set rngBeforeEmptyCell = rngTarget3.End(xlUp)

If lngStartZeile < rngBeforeEmptyCell.Row Then _
lngStartZeile = rngBeforeEmptyCell.Row

If lngStartZeile = 1 Then
MsgBox "Keine GrauZelle in SpalteB und Keine LeerZelle in SpalteC!", , "!!!"
Exit Sub
End If

With Range(Cells(lngStart ...
 
Seite 274 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 271, 272, 273, 274, 275, 276, 277 ... 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