Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 32 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 29, 30, 31, 32, 33, 34, 35 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Filtern / Gruppieren 
Phelan XLPH

Antworten: 18
Aufrufe: 204

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Nov 2013, 01:15   Titel: AW: Filtern / Gruppieren Version: Office 2010
Hallo,

versuch es hiermit:

Sub xlph()
Dim lngZeile As Long
Dim lngLetzteZeile As Long

Dim colGruppe As Collection
Dim lngIndex As Long

Dim avarBlock As Variant
Dim iavarBlock As Long

Dim strSuffix As String

Set colGruppe = New Collection

Application.ScreenUpdating = False


With Tabelle1 ' ggf. Anpassen **********

lngLetzteZeile = .Cells(.Rows.Count, 2).End(xlUp).Row

On Error Resume Next
For lngZeile = 2 To lngLetzteZeile
With .Cells(lngZeile, 1).MergeArea
colGruppe.Add Item:=.Address, Key:=.Address
End With
Next
On Error GoTo 0


For lngIndex = colGruppe.Count To 1 Step -1
With Intersect(.Range(colGruppe(lngIndex)).EntireRow, .Columns(2))
.Select
If .Rows.Count > 1 Then
avarBlock = ...
  Thema: Listbox mit verschiedenen Wertebereichen füllen 
Phelan XLPH

Antworten: 12
Aufrufe: 333

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Nov 2013, 13:17   Titel: AW: Listbox mit verschiedenen Wertebereichen füllen Version: Office 2013
Hallo,

in der letzten Version hat sich ein Fehler eingeschlichen, hier die Korrektur.
  Thema: Combobox, Listindex verschiebt sich 
Phelan XLPH

Antworten: 9
Aufrufe: 144

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Nov 2013, 21:31   Titel: AW: Combobox, Listindex verschiebt sich Version: Office 2010
Hallo,

hier ein Beispiel:

Option Explicit

Private Sub ComboBox1_Click()
With ComboBox1
MsgBox "Text:" & vbTab & .Text & vbLf & _
"Value:" & vbTab & .Value
Tabelle1.Cells(CLng(.Value), 1).Activate
End With
End Sub

Private Sub UserForm_Initialize()

Dim rngC As Range

With ComboBox1
' Diese Eigenschaften können im Eigenschaften-Fenster
' voreingestellt werden und müssen nicht per Code gesetzt werden
.BoundColumn = 2
.TextColumn = 1
.ColumnCount = 2
.ColumnWidths = "60;0"
End With

For Each rngC In Tabelle1.UsedRange.Columns(1).Offset(1).Cells
If Not IsEmpty(rngC.Value) Then
ComboBox1.AddItem rngC.Value
ComboBox1.List(ComboBox1.ListCount - 1, 1) = rngC.Row
End If
Next
End Sub
  Thema: Listbox mit verschiedenen Wertebereichen füllen 
Phelan XLPH

Antworten: 12
Aufrufe: 333

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Nov 2013, 17:10   Titel: AW: Listbox mit verschiedenen Wertebereichen füllen Version: Office 2013
Hallo,

hier die Erweiterung.
  Thema: Worksheet.CustomProperties 
Phelan XLPH

Antworten: 5
Aufrufe: 161

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Nov 2013, 17:08   Titel: AW: Worksheet.CustomProperties Version: Office 2010
Danke Storax, das hatte ich mir schon gedacht.
  Thema: Worksheet.CustomProperties 
Phelan XLPH

Antworten: 5
Aufrufe: 161

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Nov 2013, 09:34   Titel: AW: Worksheet.CustomProperties Version: Office 2010
Hallo,

ja das weiß ich.

Aber wie komme ich an die über die Excel-Oberfläche ran?
  Thema: Worksheet.CustomProperties 
Phelan XLPH

Antworten: 5
Aufrufe: 161

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Nov 2013, 09:18   Titel: Worksheet.CustomProperties Version: Office 2010
Hallo,

wie komme ich über Excel an die CustomProperties eines Arbeitsblattes ran.


Bsp. per VBA-Code
Sub xlph()
MsgBox Tabelle1.CustomProperties.Count
End Sub


Aber wo sehe ich die in Excel?
  Thema: Daten mit VBA aktualisieren doppelte Schleife? 
Phelan XLPH

Antworten: 9
Aufrufe: 277

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Nov 2013, 20:27   Titel: AW: Daten mit VBA aktualisieren doppelte Schleife? Version: Office 2010
Ganz einfach:

Sub xlph()

Dim lngIndex As Long
Dim strID As String
Dim lngUniqueIndex As Long

Dim objUnique As Object
Dim cvarUnique As Variant
Dim lngIndexSource As Long

Dim wksSource As Worksheet
Dim wksTarget As Worksheet

' Objektvariablen füllen
Set wksSource = Tabelle4
Set wksTarget = Tabelle2

' Das Dictionary-Objekt speichert Elementen-Paare
' Ein Paar besteht aus einem Schlüssel (Key) und einem,
' dem Schlüssel zugewiesenen Wert (Item)
' Syntax allgemein: Dictionary(Schlüssel) = Wert
' Syntax hier: objUnique('ID') = Zeilennummer
Set objUnique = CreateObject("scripting.dictionary")

' Quell-Arbeitsblatt
With wksSource

' Spalte D durchlaufen ab Zeile 4 bis letzte ermittelte Zeile in Spalte D
For lngIndex = 4 To .Cells(.Rows.Count, 4).End(xlUp) ...
  Thema: Excel VBA Fehler 52 wenn Zeile den wert >=513 annimmt 
Phelan XLPH

Antworten: 7
Aufrufe: 109

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Nov 2013, 19:16   Titel: AW: Excel VBA Fehler 52 wenn Zeile den wert >=513 annimmt Version: Office 2010
Sub getcd()
Dim strText As String, strTemp As String, reset As String
Dim I As Long, FF As Integer

For I = 7 To 150000

FF = FreeFile()
Open Cells(I + 1, 3) For Binary Access Read As #FF '<---Hier tritt immer der Fehler auf
Do Until EOF(I)
Line Input #FF, strTemp
strText = strText & strTemp
Loop
Close #FF
Cells(I + 1, 4).Value = Replace(strText, vbLf, vbNullString)

strTemp = reset

strText = reset


Next

End Sub
  Thema: Excel VBA Fehler 52 wenn Zeile den wert >=513 annimmt 
Phelan XLPH

Antworten: 7
Aufrufe: 109

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Nov 2013, 19:09   Titel: AW: Excel VBA Fehler 52 wenn Zeile den wert >=513 annimmt Version: Office 2010
was für Dateien?
was für Codes?
  Thema: Excel VBA Fehler 52 wenn Zeile den wert >=513 annimmt 
Phelan XLPH

Antworten: 7
Aufrufe: 109

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Nov 2013, 18:55   Titel: AW: Excel VBA Fehler 52 wenn Zeile den wert >=513 annimmt Version: Office 2010
Oh je, da ißt jemand mit einer Gabel die Suppe.

Was hast du eigentlich vor?
  Thema: Listbox mit verschiedenen Wertebereichen füllen 
Phelan XLPH

Antworten: 12
Aufrufe: 333

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Nov 2013, 17:43   Titel: AW: Listbox mit verschiedenen Wertebereichen füllen Version: Office 2013
Hallo,

hab mich auch versucht, da kam dann eins zu anderen....

...ich denk mir war langweilig Confused Cool Rolling Eyes .
  Thema: Gültigkeitsliste aus Tabellenobjekt erstellen 
Phelan XLPH

Antworten: 1
Aufrufe: 69

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Okt 2013, 21:27   Titel: AW: Gültigkeitsliste aus Tabellenobjekt erstellen Version: Office 2010
Hallo,

so vielleicht:

Sub Test_DropDownSortedUnique()
Call DropDownSortedUnique(Tabelle1.ListObjects(1).ListColumns(1), Tabelle1.Range("G1:G5"))
End Sub

Sub DropDownSortedUnique(ByRef lscListColumn As ListColumn, ByRef rngTarget As Range)
Dim rngRow As Range
Dim objSL As Object
Dim varValue As Variant

Dim avarFilterdSortedUnique() As Variant
Dim lngFSU As Long

Set objSL = CreateObject("System.Collections.SortedList")

With lscListColumn.DataBodyRange
For Each rngRow In .Rows
If Not rngRow.Hidden Then
varValue = rngRow.Value
If Not IsEmpty(varValue) Then objSL(varValue) = 0
End If
Next
End With

If objSL.Count > 0 Then
ReDim avarFilterdSortedUnique(objSL.Count - 1)
For lngFSU = 0 To objSL.Count - 1
avarFilterdSortedUnique&# ...
  Thema: UBound-Wert eines Verzweigten Arrays 
Phelan XLPH

Antworten: 49
Aufrufe: 738

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Okt 2013, 13:52   Titel: AW: UBound-Wert eines Verzweigten Arrays Version: Office 2003
nur eines sollte klar sein:
ein eindimensionales Array in einem ebenfalls eindimensionalen Array ergibt immer ein zweidimensionales Array.


Wie kommst du bloß darauf?

Teste mal:

Sub x()
MsgBox UBound(WorksheetFunction.Transpose(Array(Array(1, 2), Array(3, 4))), 2)
MsgBox UBound(Array(Array(1, 2), Array(3, 4)), 2)
End Sub
  Thema: UBound-Wert eines Verzweigten Arrays 
Phelan XLPH

Antworten: 49
Aufrufe: 738

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Okt 2013, 13:38   Titel: AW: UBound-Wert eines Verzweigten Arrays Version: Office 2003
...wo führt das alles bloß hin?
 
Seite 32 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 29, 30, 31, 32, 33, 34, 35 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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