Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 373 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 370, 371, 372, 373, 374, 375, 376 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Artikelnummer sortieren 
Phelan XLPH

Antworten: 9
Aufrufe: 520

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2010, 21:09   Titel: AW: Artikelnummer sortieren Version: Office 2007
So, hier das Meisterwerk:

Sub zerlegeArtikelnummer()
Dim Regex As Object
Dim Match As Object
Dim Matches As Object
Dim SubMatches As Object
Dim arr As Variant
Dim i As Long

Range("A1").CurrentRegion.Columns(1).Copy
Set Regex = CreateObject("VbScript.Regexp")
With Regex
.Pattern = "([A-Za-z]+)([0-9]+)([A-Za-z])"
.Global = True
Set Matches = .Execute(ClpLesen)
End With
If Matches.Count Then
ReDim arr(1 To Matches.Count, 1 To 3)
For i = 1 To Matches.Count
arr(i, 1) = Matches(i - 1).SubMatches(0)
arr(i, 2) = Matches(i - 1).SubMatches(1)
arr(i, 3) = Matches(i - 1).SubMatches(2)
Next
Range("B1").Resize(UBound ...
  Thema: Artikelnummer sortieren 
Phelan XLPH

Antworten: 9
Aufrufe: 520

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2010, 20:56   Titel: AW: Artikelnummer sortieren Version: Office 2007
Hallo Axl,

Submatches kannte ich noch gar nicht, tolle Sache.

Dennoch bitte Variablen immer deklarieren, Danke Razz
  Thema: Teillisten ausgeben 
Phelan XLPH

Antworten: 4
Aufrufe: 165

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2010, 20:34   Titel: AW: Teillisten ausgeben Version: Office 2003
@Slowboarder

...du meintsest wohl .Hütten.
  Thema: Daten in mehreren Spalten in eine Spalte kopieren. 
Phelan XLPH

Antworten: 2
Aufrufe: 332

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2010, 19:13   Titel: AW: Daten in mehreren Spalten in eine Spalte kopieren. Version: Office 2007
Sub ph()
Dim rngCol As Range
With Range("A1").CurrentRegion
For Each rngCol In .Columns
If .Cells(1).Address <> rngCol.Cells(1).Address Then _
rngCol.Copy .Cells(Rows.Count, 1).End(xlUp).Offset(1)
Next
End With
End Sub
  Thema: Bedingte Arrays 
Phelan XLPH

Antworten: 6
Aufrufe: 240

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2010, 19:03   Titel: AW: Bedingte Arrays Version: Office 2003
Hallo,

[url=http://de.wikipedia.org/wiki/Quicksort]Quicksort ist eines der schnellsten Sortierverfahren.
Viel Spaß bei der Programmierung.
  Thema: Filtern mit mehreren OR Kriterien 
Phelan XLPH

Antworten: 5
Aufrufe: 236

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2010, 18:59   Titel: AW: Filtern mit mehreren OR Kriterien Version: Office 2007
Hallo hil,

du hast doch XL2007.

Da kannst mehr als nur nach 2 kriterien Filtern.
Einfach mal aufzeichnen.
  Thema: Fehlerprotokoll nach mehreren makros erstellen 
Phelan XLPH

Antworten: 8
Aufrufe: 522

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2010, 13:18   Titel: AW: Fehlerprotokoll nach mehreren makros erstellen Version: Office 2010
Hast du in deinen Unterprozeduren ebenfalls Fehlerbehandlungen?
  Thema: Fehlerprotokoll nach mehreren makros erstellen 
Phelan XLPH

Antworten: 8
Aufrufe: 522

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2010, 12:44   Titel: AW: Fehlerprotokoll nach mehreren makros erstellen Version: Office 2010
Oder so...
(Speicherpfad u. -Name anpassen!)
  Thema: Kann man Makros per Makro schreiben? 
Phelan XLPH

Antworten: 6
Aufrufe: 337

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2010, 11:20   Titel: AW: Kann man Makros per Makro schreiben? Version: Office 2003
@Tacker

unter Tips & Tricks gibts ein Tutorial dazu. Hast du da schon reingeschaut?

>>>[url=http://www.office-loesung.de/ftopic229695_0_0_asc.php]Hier lang
  Thema: Verbundene Zellen umrahmen 
Phelan XLPH

Antworten: 2
Aufrufe: 235

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2010, 11:12   Titel: AW: Verbundene Zellen umrahmen Version: Office 2003
Hallo Julia,

vielleicht reicht auch das hier aus:
With Range("r_Zelle").MergeArea
.BorderAround xlContinuous
End With
  Thema: Import von Daten aus Textdateien mit variabler Länge 
Phelan XLPH

Antworten: 3
Aufrufe: 188

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2010, 10:59   Titel: AW: Import von Daten aus Textdateien mit variabler Länge Version: Office 2007
@ransi

du hast vergessen bei Mehrzeilen den Zeilenindex um die Anzahl d. Mehrzeilen
zu erhöhen.
  Thema: mehrdimensionales Array mit Termin und Kapazität 
Phelan XLPH

Antworten: 3
Aufrufe: 701

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2010, 10:39   Titel: AW: mehrdimensionales Array mit Termin und Kapazität Version: Office 2003
@Axl

Collection läuft in einen Fehler, falls ein Datum doppelt ist, da Key eindeutig sein
muss.

Beim Dictionary wird der Item-Wert bei doppeltem Key-Wert überschrieben.

Das Array ist schon das richtige Mittel und Das Dictionary um die vergleichswerte
zu speichern.

Sub x()
Dim ar as Variant
ar = Range("A1").CurrentRegion
End Sub
  Thema: Makro: vertikale Liste in horizontale Liste konvertieren 
Phelan XLPH

Antworten: 11
Aufrufe: 984

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2010, 21:19   Titel: AW: Makro: vertikale Liste in horizontale Liste konvertieren Version: Office 2003
Ich lass es ab SpalteE ausgeben.

Lasse aber die Quelldaten in SpalteA-C unberührt.
Die kannst du löschen, wenn du magst oder auch nicht.
  Thema: User bestimmten Tabellenblättern zuweisen 
Phelan XLPH

Antworten: 5
Aufrufe: 642

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2010, 14:41   Titel: AW: User bestimmten Tabellenblättern zuweisen Version: Office 2003
Kick auf "Mekros deaktivieren" und dann drück Alt+F11.
Jetzt kannst du im VBA-Editor Ändderungen vornehmen
  Thema: Import von Daten aus Textdateien mit variabler Länge 
Phelan XLPH

Antworten: 3
Aufrufe: 188

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2010, 14:27   Titel: AW: Import von Daten aus Textdateien mit variabler Länge Version: Office 2007
Hallo,

Sub ph()
Dim D As Object
Dim DUe As Object
Dim Pfad As String
Dim Datei As String
Dim z As Integer
Dim arr As Variant
Dim arrUe As Variant
Dim arrOut As Variant
Dim txt As String
Dim i As Long, n As Integer

Set D = CreateObject("Scripting.Dictionary")
Set DUe = CreateObject("Scripting.Dictionary")

Pfad = "d:\test\"
Datei = Dir(Pfad & "*.txt")
Do While Datei <> ""
Open Pfad & Datei For Input As #1
z = z + 1
Do While Not EOF(1)
Line Input #1, txt
D(Format(z, "00000") & "|" & Split(txt, ":")(0)) = _
D(Format(z, "00000") & "|" & Split(txt, ":")(0)) & vbCrLf & _
...
 
Seite 373 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 370, 371, 372, 373, 374, 375, 376 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage