Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 105 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 102, 103, 104, 105, 106, 107, 108 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Bedingte Anweisung im VBA 
Phelan XLPH

Antworten: 2
Aufrufe: 240

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Okt 2012, 15:38   Titel: AW: Bedingte Anweisung im VBA Version: Office 2011 (Mac)
...Range(Columns(1), Cells.Find("*", , , , xlByColumns, xlPrevious).EntireColumn).Offset(0, 1)...
  Thema: Regex Spalte Filtern 
Phelan XLPH

Antworten: 17
Aufrufe: 669

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Okt 2012, 14:51   Titel: Regex Spalte Filtern Version: Office 2010
Hallo,

ich hab ein Anliegen an die Regexp-Experten.

Wie erziele ich den Soll-String-Inhalt?

Wie muss das .Pattern aussehen?

Sub StringAusString()
Dim s As String

'Ist-String-Inhalt
s = _
"abc" & vbTab & "def" & vbTab & "ghi" & vbCrLf & _
"123" & vbTab & "456" & vbTab & "678" & vbCrLf & _
"111" & vbTab & "222" & vbTab & "333"

MsgBox s

With CreateObject("vbscript.regexp")
.Global = True
.ignorecase = False
.Pattern = "" ' <--- ?????????????????
s = .Replace(s, "")
End With

'Soll-String-Inhalt
' s = _
' "def" & vbCrLf & _
' "456" & vbCrLf & _
' "222"

MsgBox s
End Sub
...
  Thema: Unterschiedliche Werte zählen 
Phelan XLPH

Antworten: 5
Aufrufe: 338

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Okt 2012, 14:15   Titel: AW: Unterschiedliche Werte zählen Version: Office 2007
Sub AnzahlBenutzer()
Dim sPfad As String
Dim iFF As Integer
Dim sTxt As String
Dim D As Object
Dim sTrZ As String 'Trennzeichen
Dim iZählSpalte As Integer


Set D = CreateObject("scripting.dictionary")

sPfad = "D:\Test\Test.txt" 'ANPASSEN ****************
sTrZ = ";" 'Trennzeichen ggf. ANPASSEN *************

iZählSpalte = 2

iFF = FreeFile
Open sPfad For Input As iFF
Do While Not EOF(1)
Line Input #iFF, sTxt
sTxt = Split(sTxt, sTrZ)(iZählSpalte - 1)
D(sTxt) = D(sTxt) + 1
Loop
Close iFF

MsgBox "Anzahl untersch. Benutzer: " & D.Count
With Worksheets.Add(Worksheets(1))
.Cells(1).Resize(D.Count) = WorksheetFunction.Transpose(D.Keys)
.Cells(2).Resize(D.Co ...
  Thema: Mehrere gleiche Artikel zu einem zusammenfassen 
Phelan XLPH

Antworten: 3
Aufrufe: 292

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Okt 2012, 07:09   Titel: AW: Mehrere gleiche Artikel zu einem zusammenfassen Version: Office 2003
so?
  Thema: Zyklen erkennen/ nach Zyklen sortieren 
Phelan XLPH

Antworten: 4
Aufrufe: 130

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Okt 2012, 18:07   Titel: AW: Zyklen erkennen/ nach Zyklen sortieren Version: Office 2007
...mögliche Variante:

Sub x()
Dim i As Integer, ws As Worksheet
Dim sWS_Quelle As String

sWS_Quelle = "Tabelle1" 'Anpassen *****

With Worksheets(sWS_Quelle).Range("A1").CurrentRegion
.AutoFilter 3, "<>0"
With .Offset(1).Columns(3).SpecialCells(xlCellTypeVisible).Areas
For i = 1 To .Count
Set ws = Worksheets.Add(After:=Sheets(Sheets.Count))
ws.Name = "Z" & i
.Parent.Parent.Rows(1).Copy ws.Cells(1, 1)
.Item(i).EntireRow.Copy ws.Cells(2, 1)
Next
End With
.AutoFilter 3, "0"
With .Offset(1).Columns(3).SpecialCells(xlCellTypeVisible).Areas
For i = 2 To .Count
Set ws = Worksheets("Z" & i - 1&# ...
  Thema: Anagramm-Generator 
Phelan XLPH

Antworten: 3
Aufrufe: 483

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Okt 2012, 18:01   Titel: AW: Anagramm-Generator Version: Office 2003
oder so:

Function Anagram(sWert)
Dim i As Long, pos As Long
Dim h As Integer
Dim x() As Byte

Randomize Timer
x = StrConv(sWert, vbFromUnicode)
For i = 0 To UBound(x)
pos = Int((UBound(x) + 1) * Rnd)
h = x(i)
x(i) = x(pos)
x(pos) = h
Next
Anagram = StrConv(x, vbUnicode)
End Function
  Thema: Zeilen blinken lassen, wenn der Wert größer als 0 ist? 
Phelan XLPH

Antworten: 22
Aufrufe: 2153

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Okt 2012, 02:45   Titel: AW: Zeilen blinken lassen, wenn der Wert größer als 0 ist? Version: Office XP (2002)
so?
  Thema: Suche in Listbox beschleunigen 
Phelan XLPH

Antworten: 20
Aufrufe: 434

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Sep 2012, 07:48   Titel: AW: Suche in Listbox beschleunigen Version: Office 2003
Hallo,

da die Datensatzelemente einzeln ein- und ausgelesen werden.
  Thema: Suche in Listbox beschleunigen 
Phelan XLPH

Antworten: 20
Aufrufe: 434

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Sep 2012, 13:44   Titel: AW: Suche in Listbox beschleunigen Version: Office 2003
Nein, das kannst du aber mit einer Listview realisieren.

Die wird aber völlig anders und langsamer ein- und ausgelesen.
  Thema: Tabelle erstellen aus > 500 Exceldateien 
Phelan XLPH

Antworten: 17
Aufrufe: 295

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Sep 2012, 13:41   Titel: AW: Tabelle erstellen aus > 500 Exceldateien Version: Office 2010
With wsZ.Cells(i, 2).Resize(, Range(BereichAdr).Columns.Count)
  Thema: Tabelle erstellen aus > 500 Exceldateien 
Phelan XLPH

Antworten: 17
Aufrufe: 295

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Sep 2012, 08:29   Titel: AW: Tabelle erstellen aus > 500 Exceldateien Version: Office 2010
Public Sub Import()
Dim Pfad As String
Dim Dateiname As String
Dim Blatt As String
Dim BereichAdr As String
Dim wsZ As Worksheet
Dim i As Long

'*** Quellangaben Anpassen ***********
Pfad = "D:\Test\"
Blatt = "c"
BereichAdr = "A3:S3"
'*************************************

Set wsZ = Tabelle1 'Zielblatt ggf. Anpassen

Dateiname = Dir(Pfad & "*.xls*")
Do While Dateiname <> ""
i = i + 1
With wsZ.Cells(i, 2).Resize(, Range(BereichAdr).Rows.Count)
.Formula = "='" & Pfad & "[" & Dateiname & "]" & Blatt & "'!" & Range(BereichAdr).Cells(1).Address(0, 0)
.Value = .Value
End With
wsZ.Cells(i, 1) = Dateina ...
  Thema: VBA-Suchanweisung fertig - farbliche Hervorhebung möglich? 
Phelan XLPH

Antworten: 25
Aufrufe: 578

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Sep 2012, 08:26   Titel: AW: VBA-Suchanweisung fertig - farbliche Hervorhebung möglic Version: Office 2003
Public Sub SearchAllTables()
Dim ws As Worksheet
Dim c As Range
Dim firstAddress As String
Dim secAddress
Dim GFound As Boolean
Dim GWeiter As Boolean
Dim SSearch As String
Dim rngMerk As Range
Dim lMerkFarbe As Long
Dim lFarbe As Long

lFarbe = 6 'gelb

GWeiter = False
GFound = False
anf:
SSearch = InputBox("Bitte geben Sie einen Suchbegriff ein" & vbCrLf & "(Name o. Funktion o. Rufnummer):", "automatische Suche Telefonverzeichnis Kronshagen", SSearch)

If SSearch = "" Then
If Not rngMerk Is Nothing Then
rngMerk.Interior.ColorIndex = lMerkFarbe
End If
End
End If
weiter:
For Each ws In Worksheets
'ws.Select
With ws.Cells
Set c = .Find(SSearch, LookIn:=xlValues, MatchCase:=False)
If Not c Is Nothing Then ...
  Thema: Wie bekomme ich meinen Makro schneller 
Phelan XLPH

Antworten: 41
Aufrufe: 1085

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Sep 2012, 08:08   Titel: AW: Wie bekomme ich meinen Makro schneller Version: Office 2007
Hallo,

hier werden nun Tabellenanfang (Such nach der ÜberschriftenZeile 'Datum')
und Tabellenende (Such nach der EndZeile 'CPM gesamt') ermittelt.
  Thema: Wie bekomme ich meinen Makro schneller 
Phelan XLPH

Antworten: 41
Aufrufe: 1085

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Sep 2012, 00:23   Titel: AW: Wie bekomme ich meinen Makro schneller Version: Office 2007
Hallo,

ist auch kein Wunder wenn du die Analyse-Tabellen um 2 Zeilen nach unten
versetzt Rolling Eyes

Set rngZiel = Intersect(ws.Columns("Q:AB"), ws.UsedRange, ws.Range(ws.Rows(8), ws.Rows(ws.Rows.Count)))
  Thema: Wie bekomme ich meinen Makro schneller 
Phelan XLPH

Antworten: 41
Aufrufe: 1085

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Sep 2012, 20:02   Titel: AW: Wie bekomme ich meinen Makro schneller Version: Office 2007
In den Analyse-Blätter fehlen die Überschriften ([E6:AB7])!!!!!!
 
Seite 105 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 102, 103, 104, 105, 106, 107, 108 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web