Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 55 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 52, 53, 54, 55, 56, 57, 58 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Wörter in Klammer löschen 
Phelan XLPH

Antworten: 13
Aufrufe: 172

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Apr 2013, 10:41   Titel: AW: Wörter in Klammer löschen Version: Office 2003
Sub x()
Dim av As Variant
Dim i As Long
Dim k As Integer

With ActiveSheet
av = .Cells().CurrentRegion
For i = 1 To UBound(av)
For k = 1 To UBound(av, 2)
av(i, k) = ExtractString(av(i, k))
Next
Next
.Cells().CurrentRegion = av
End With

End Sub
Function ExtractString(ByVal varText As Variant) As Variant
Dim lngZ As Long, strChar As String
Dim blnExtract As Boolean

blnExtract = True

If varText Like "*(*)*" Then
For lngZ = 1 To Len(varText)
strChar = Mid$(varText, lngZ, 1)
If strChar = "(" Then blnExtract = False
If blnExtract Then
If strChar = " " Then ExtractString = Trim$(ExtractString)
ExtractString = ExtractString & strChar
End If
If strChar = ") ...
  Thema: value = value +1 läuft nicht 
Phelan XLPH

Antworten: 8
Aufrufe: 147

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Apr 2013, 09:21   Titel: AW: value = value +1 läuft nicht Version: Office 2010
Sub AnzahlX()
With Sheets("Erfassung")
.Range("N7").Value = WorksheetFunction.CountIf(Sheets("filimport").Range("E9:E707"), .Range("A100").Value)
End With
End Sub
  Thema: Dropdown in Abhängigkeit von Filter 
Phelan XLPH

Antworten: 9
Aufrufe: 244

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Apr 2013, 20:46   Titel: AW: Dropdown in Abhängigkeit von Filter Version: Office 2010
Hallo,

die entsprechenden Blätter mit den CodeNamen müssen vorhanden sein.

Du musst sie natürlich anpassen.

Hast du die betreffenden Blätter vielleicht versteckt?
  Thema: Spezialfilter per VBA 
Phelan XLPH

Antworten: 4
Aufrufe: 329

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Apr 2013, 16:50   Titel: AW: Spezialfilter per VBA Version: Office 2003
So funktionierts:

Sub Spezialfilter()

Tabelle2.Range("B7:E1207").ClearContents

Tabelle1.Range("B5").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Tabelle2.Range("L3:M4"), _
CopyToRange:=Tabelle2.Range("B7:E1207"), _
Unique:=True

End Sub
  Thema: Dropdown in Abhängigkeit von Filter 
Phelan XLPH

Antworten: 9
Aufrufe: 244

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Apr 2013, 16:39   Titel: AW: Dropdown in Abhängigkeit von Filter Version: Office 2010
Hallo,

du kannst mit Blatt-Namen oder mit Blatt-CodeNamen arbeiten.

Der CodeName ist der interne von VBA vergebene Name.

Siehe Bild - in Klammern steht der BlattName, davor der Blatt-Codename.
Wenn du den BlattNamen in Excel änderst, ändert sich nicht der BlattCodeNamen.

HIer nochmal ein Beispiel ohne 'Städte' und ohne Extrablatt 'frm-Ebenen'.
  Thema: Dropdown in Abhängigkeit von Filter 
Phelan XLPH

Antworten: 9
Aufrufe: 244

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Apr 2013, 09:15   Titel: AW: Dropdown in Abhängigkeit von Filter Version: Office 2010
Hallo,

das würde auch mit DropDowns (Datengültigkeit) funktionieren,
wäre etwas komplizierter.

ComboBoxen tuens auch.

Bei Eingabe einer nicht gefundenen PLZ wird die Schrift kursiv & rot formatiert.
  Thema: Extrempunkte ermitteln - Performance 
Phelan XLPH

Antworten: 3
Aufrufe: 198

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Apr 2013, 00:12   Titel: AW: Extrempunkte ermitteln - Performance Version: Office 2010
Nimm stat Collection ein Array:

Sub Test()
Dim av As Variant
av = Array(1, 3, 8, 6, 9, -1, 5, 8)

MsgBox Join(av, vbLf) & vbLf & String(20, "-") & vbLf & _
Join(extremwerte_ermitteln(av), vbLf)
End Sub
Public Function extremwerte_ermitteln(ByVal avData As Variant) As Variant
Dim avErg As Variant
Dim i As Long
Dim n As Long
Dim a As Double
Dim b As Double
Dim c As Double

ReDim avErg(LBound(avData) To UBound(avData))

n = LBound(avData)
avErg(n) = avData(LBound(avData))
For i = LBound(avData) + 1 To UBound(avData) - 1
a = avData(i - 1)
b = avData(i)
c = avData(i + 1)

If ((b <= a) * (c >= b)) + ((b >= a) * (c <= b)) Then
n = n + ...
  Thema: bestimmtes Zeichen in Gesamttextstring finden 
Phelan XLPH

Antworten: 5
Aufrufe: 79

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Apr 2013, 08:52   Titel: AW: bestimmtes Zeichen in Gesamttextstring finden Version: Office 2010
txt2 = Mid(txt1, InStrRev(txt1, ".")+1)
  Thema: "Filter" in Zelle 
Phelan XLPH

Antworten: 2
Aufrufe: 115

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Apr 2013, 20:03   Titel: AW: "Filter" in Zelle Version: Office 2010
Hallo Gast,

ins Codefenster der Tabelle:
Option Explicit

Private m_dicRows As Object

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "A2" Then
Cancel = True
With Target
.Interior.ColorIndex = 3
With .Validation
.Delete
.Add xlValidateList, , , "Alle," & ListUniqueSort()
End With
.Interior.ColorIndex = 6
End With
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A2" Then
If m_dicRows Is Nothing Then
MsgBox "Filtern nicht möglich." & vbLf & vbLf & _
"Bitte Liste aktualisieren.", vbInformation, "Info"
Exit Sub
End If
Application.ScreenUpdating = False
Range("J16:J" & Rows.Cou ...
  Thema: Kopiervorgang alle 23 Zellen 
Phelan XLPH

Antworten: 7
Aufrufe: 102

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Apr 2013, 07:19   Titel: AW: Kopiervorgang alle 23 Zellen Version: Office 2010
Yap,

vba mag keine verbundenen Zellen, wie auch der Filter und die Sortierung.

Sub x()
Dim lngRow As Long
Dim wksQuelle As Worksheet
Dim wksZiel As Worksheet

Dim lngStartRowZielVonR As Long
Dim lngStartRowZielVonX As Long
Dim lngStartRowZielVonZ As Long

Set wksQuelle = ThisWorkbook.Worksheets("Import")
Set wksZiel = ThisWorkbook.Worksheets("PR")

Application.ScreenUpdating = False

lngStartRowZielVonR = 9
lngStartRowZielVonX = 12
lngStartRowZielVonZ = 18

With wksQuelle
For lngRow = 7 To .Cells(.Rows.Count, 18).End(xlUp).Row
If (lngRow Mod 2) = 0 Then
.Cells(lngRow, 18).MergeArea.Copy wksZiel.Cells(lngStartRowZielVonR + ((lngRow - 8) / 2 * 23), 8) ' R -> H
.Cells(lngRow, 24).MergeArea.Copy wksZiel.Cells(lngStartRowZielVo ...
  Thema: Combobox Dropdown Sortierung - Filter 
Phelan XLPH

Antworten: 1
Aufrufe: 111

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Apr 2013, 18:03   Titel: AW: Combobox Dropdown Sortierung - Filter Version: Office 2010
Hallo Thomas,

lad deine dateien in Zukunft hier hoch!
  Thema: Daten dynamisch tranponieren 
Phelan XLPH

Antworten: 17
Aufrufe: 208

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Apr 2013, 17:55   Titel: AW: Daten dynamisch tranponieren Version: Office 2007
Hier noch slowboarders Variante:

Sub test()
Dim arr, arrK, arrI, arr2
Dim erg
Dim i As Long

arr = Cells(1, 1).CurrentRegion.Value
Set erg = CreateObject("scripting.dictionary")

For i = 2 To UBound(arr)
erg(arr(i, 1)) = erg(arr(i, 1)) & arr(i, 2) & ";"
Next

arrK = erg.Keys
arrI = erg.Items

ReDim arr2(1 To UBound(arrK) + 1, 1 To 2)
For i = 0 To UBound(arrK)
arr2(i + 1, 1) = arrK(i)
arr2(i + 1, 2) = arrI(i)
Next

With Cells(2, 4).Resize(UBound(arr2, 1), UBound(arr2, 2))
.Value = arr2
.Columns(2).TextToColumns Destination:=.Cells(1, 2), _
DataType:=xlDelimited, _
Semicolon:=True, _
FieldInfo:=Array ...
  Thema: Daten dynamisch tranponieren 
Phelan XLPH

Antworten: 17
Aufrufe: 208

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Apr 2013, 17:23   Titel: AW: Daten dynamisch tranponieren Version: Office 2007
Hier eine weitere variante:

Sub x()
Dim av As Variant
Dim aErg As Variant
Dim i As Long
Dim z As Long
Dim s As Long
Dim dic As Object
Dim col As Collection
Dim c As Variant
Dim v As Variant
Dim maxCol As Integer

Set dic = CreateObject("scripting.dictionary")

av = Cells().CurrentRegion

For i = 2 To UBound(av)
If dic.Exists(av(i, 1)) Then
dic(av(i, 1)).Add av(i, 2)
Else
Set col = New Collection
Set dic(av(i, 1)) = col
End If
Next

For Each v In dic.keys
If maxCol < dic(v).Count Then maxCol = dic(v).Count
Next

ReDim aErg(1 To dic.Count, 1 To maxCol + 1)
For Each v In dic.keys
s = 0: s = s + 1: z = z + 1
aErg(z, s) = v
For Each c In dic(v)
...
  Thema: Komplette Matrix in eine Spalte umwandeln 
Phelan XLPH

Antworten: 7
Aufrufe: 2579

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Apr 2013, 14:23   Titel: AW: Komplette Matrix in eine Spalte umwandeln Version: Office 2007
=INDEX($B$9:$F$11;AUFRUNDEN(ZEILE(J1)/5;0);REST(ZEILE(J1)-1;5)+1)
  Thema: Werte in großer Tabelle suchen und auflisten/ausgeben 
Phelan XLPH

Antworten: 10
Aufrufe: 182

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Apr 2013, 14:15   Titel: AW: Werte in großer Tabelle suchen und auflisten/ausgeben Version: Office 2010
wie soll die ausgabetabelle dann aussehen?

Lad am besten eine Datei hich mit IST- und SOLL-Zustand!
 
Seite 55 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 52, 53, 54, 55, 56, 57, 58 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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