Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 97 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 94, 95, 96, 97, 98, 99, 100 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: .SpecialCells(xlCellTypeVisible was läuft falsch....? :-( 
Phelan XLPH

Antworten: 10
Aufrufe: 334

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Nov 2012, 14:38   Titel: AW: .SpecialCells(xlCellTypeVisible was läuft falsch....? :- Version: Office 2010
Du kannst nur einen zusammenhängenden Bereich einem anderen zuweisen.

Andernfalls über eine schleife die einzelnen Werte abgrasen und zuweisen oder
über copy.

So müsste es jetzt funktionieren:

Sub add_new_alle_gruppen()
With Worksheets("Mapping")
'Autofilter aufheben
If .AutoFilterMode Then .AutoFilterMode = False
'Autofilter setzen
.Range("A1:AJ1").AutoFilter field:=3, Criteria1:=(Blanks)
'zusammenhängenden Bereich ermitteln
With .Range("A1").CurrentRegion
'Überschrift "abschneiden"
With Intersect(.Cells, .Offset(1))
'2. Spalte des Bereichs kopieren
'(es werden generell nur sichtbare Zellen kopiert)
.Columns(2).Copy
'nur Werte in [A2] einfügen
Worksheets("Account( ...
  Thema: Scripting Dictionary, super komplexe Aufgabenstellung. 
Phelan XLPH

Antworten: 23
Aufrufe: 598

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Nov 2012, 14:03   Titel: AW: Scripting Dictionary, super komplexe Aufgabenstellung. Version: Office 2003
test mal...

wie hoch ist der zeitgewinn?
  Thema: Scripting Dictionary, super komplexe Aufgabenstellung. 
Phelan XLPH

Antworten: 23
Aufrufe: 598

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Nov 2012, 13:52   Titel: AW: Scripting Dictionary, super komplexe Aufgabenstellung. Version: Office 2003
Shock tatsächlich! ...ich schau mal
  Thema: .SpecialCells(xlCellTypeVisible was läuft falsch....? :-( 
Phelan XLPH

Antworten: 10
Aufrufe: 334

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Nov 2012, 13:50   Titel: AW: .SpecialCells(xlCellTypeVisible was läuft falsch....? :- Version: Office 2010
hallo,

versuchs hiermit:

Sub add_new_alle_gruppen()
With Worksheets("Mapping")
If .AutoFilterMode Then .AutoFilterMode = False
.Range("A1:AJ1").AutoFilter field:=3, Criteria1:=(Blanks)
.Range("A1:AJ1").AutoFilter
With .Range("A1").CurrentRegion
With Intersect(.Cells, .Offset(1))
.Columns(2).Copy
Worksheets("Account(norm)").Range("A2").PasteSpecial xlPasteValues
.Columns(7).Copy
Worksheets("Account(norm)").Range("C2").PasteSpecial xlPasteValues
End With
End With
Application.CutCopyMode = False
End With
End Sub
  Thema: Scripting Dictionary, super komplexe Aufgabenstellung. 
Phelan XLPH

Antworten: 23
Aufrufe: 598

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Nov 2012, 13:20   Titel: AW: Scripting Dictionary, super komplexe Aufgabenstellung. Version: Office 2003
Hallo,

den Bereich unf ggf die Blätter anpassen.
  Thema: Quicksort 1-dim-array ascending nach LEN(Array(i)) 
Phelan XLPH

Antworten: 6
Aufrufe: 257

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2012, 22:27   Titel: AW: Quicksort 1-dim-array ascending nach LEN(Array(i)) Version: Office 2007
Warum nach Länge des Strings und dann erst alphabetisch.

Übersichtlicher ist es andersherum und entspricht der Reihe der Treffergenauigkeit.
  Thema: Automatische Gruppierung mittels VBA 
Phelan XLPH

Antworten: 9
Aufrufe: 339

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2012, 17:25   Titel: AW: Automatische Gruppierung mittels VBA Version: Office 2003
Yap, da stößt Excel auf seine Grenzen.
  Thema: Like mit Zeichenkette funktioniert nicht? 
Phelan XLPH

Antworten: 7
Aufrufe: 123

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2012, 14:55   Titel: AW: Like mit Zeichenkette funktioniert nicht? Version: Office 2003
Hallo,

in Klammer gesetzte Kriterien beziehen sich nur auf ein Zeichen,
in deinem Fall auf das erste.


Versuchs hiermit:
Function Sonderzeichen(vSuchWort As String) As Boolean
Sonderzeichen = vSuchWort Like WorksheetFunction.Rept("[A-Z]", Len(vSuchWort))
End Function
  Thema: Großen String in Teilstrings zerlegen 
Phelan XLPH

Antworten: 2
Aufrufe: 112

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2012, 14:46   Titel: AW: Großen String in Teilstrings zerlegen Version: Office 2007
Hallo,

versuchs hiermit:

Sub Test_TextZerlegen()
Dim sBsp As String

sBsp = "Ich brauche Hilfe"
MsgBox TextZerlegen(sBsp, 2)
End Sub

Function TextZerlegen(ByVal sTxt, ByVal iLänge, Optional ByVal sTrenner As String = ";")
Dim i As Long
sTxt = Replace(sTxt, " ", "")
For i = 1 To Len(sTxt)
If i Mod iLänge = 1 Then _
TextZerlegen = TextZerlegen & sTrenner
TextZerlegen = TextZerlegen & Mid$(sTxt, i, 1)
Next
TextZerlegen = Mid$(TextZerlegen, 2)
End Function
  Thema: Automatische Gruppierung mittels VBA 
Phelan XLPH

Antworten: 9
Aufrufe: 339

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2012, 14:32   Titel: AW: Automatische Gruppierung mittels VBA Version: Office 2003
Hallo,

versuchs hiermit:

Sub GroupLevel()
Dim rngC As Range
Dim i As Long
Dim anz As Long

Application.ScreenUpdating = False

With Tabelle1
.Rows.ClearOutline
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
.Rows(i).OutlineLevel = .Cells(i, 1).Value
Next
End With
End Sub
  Thema: Excel VBA Makro Schaltjahr abfragen 
Phelan XLPH

Antworten: 8
Aufrufe: 598

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2012, 11:22   Titel: AW: Excel VBA Makro Schaltjahr abfragen Version: Office 2003
Hallo,

in B6 eintragen und bis B35 runterziehen:
=WENN(B5="";"";WENN(MONAT(B5+1)=MONAT(B5);B5+1;""))
  Thema: String aus Liste in Zelle suchen und ersetzen 
Phelan XLPH

Antworten: 4
Aufrufe: 204

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2012, 11:08   Titel: AW: String aus Liste in Zelle suchen und ersetzen Version: Office 2010
Hallo,

eine Lösung mit Regex:

Sub NummernFärben()
Dim arSuchTexte As Variant
Dim sZellText As String

Dim Bereich As Range
Dim C As Range
Dim i As Long
Dim arFarbe As Variant

Dim Regex As Object
Dim Ms As Object
Dim M As Object


arSuchTexte = Array("1.1.070", "1.1.080", "1.1.090") 'usw.
arFarbe = Array(3, 5, 4) 'rot, blau, grün usw.


Set Regex = CreateObject("vbscript.regexp")

Set Bereich = Intersect(Range("H:H"), ActiveSheet.UsedRange)

With Regex
.Global = True
.IgnoreCase = True
For Each C In Bereich
sZellText = Trim$(C.Value)
If Len(sZellText) Then
For i = 0 To UBound(arSuchTexte)
.Pattern = arSuchTexte(i)
Set Ms = .Execu ...
  Thema: nicht gemeinsame Werte aus zwei Arrays 
Phelan XLPH

Antworten: 5
Aufrufe: 162

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2012, 00:50   Titel: AW: nicht gemeinsame Werte aus zwei Arrays Version: Office XP (2002)
...oder so:

Sub x()
Dim i As Long
Dim ar_1 As Variant
Dim ar_2 As Variant
Dim match As Object

Set match = CreateObject("scripting.dictionary")

ar_1 = Array("VW", "BMW", "Ford", "Fiat", "Audi")
ar_2 = Array("VW", "MB", "Ford", "Fiat")

For i = LBound(ar_1) To UBound(ar_1)
match(ar_1(i)) = 0
Next

For i = LBound(ar_2) To UBound(ar_2)
If match.exists(ar_2(i)) Then
match.Remove (ar_2(i))
Else
match(ar_2(i)) = 0
End If
Next

Cells(1).Resize(match.Count) = WorksheetFunction.Transpose(match.keys)

End Sub
  Thema: Globale Variablen vermeiden 
Phelan XLPH

Antworten: 19
Aufrufe: 479

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2012, 17:04   Titel: AW: Globale Variablen vermeiden Version: Office 2010
Dass sich Var1 und Var2 aus der Prozedur Main mit Werten füllen, liegt daran, dass sie "ByRef" an die Prozedur Prozedur1 übergeben wurden, richtig?

Richtig! Denn Standard ist byRef. ByVal muss explicit angegeben werden.
  Thema: Daten Export in mehrer CSV-Dateien 
Phelan XLPH

Antworten: 4
Aufrufe: 117

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2012, 17:00   Titel: AW: Daten Export in mehrer CSV-Dateien Version: Office 2010
Hallo,

eine unkonventionelle Variante:

Sub ExportAsCSV()
Dim i As Long
Dim ar As Variant
Dim uni As Object
Dim ff As Integer
Dim pfad As String
Dim tr As String 'Trennzeichen


pfad = "D:\test" 'Anpassen *******
tr = ";" ' ggf.Anpassen *******

Application.ScreenUpdating = False

Set uni = CreateObject("scripting.dictionary")

With Tabelle1.Range("A1").CurrentRegion
ar = .Columns(2)
For i = 2 To UBound(ar)
uni(ar(i, 1)) = 0
Next

If uni.Count Then
ar = uni.keys
If .Parent.AutoFilterMode Then .Parent.AutoFilterMode = False
For i = 0 To UBound(ar)
.AutoFilter 2, ar(i)
.Copy
ff = FreeFile()
...
 
Seite 97 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 94, 95, 96, 97, 98, 99, 100 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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