Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 618 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 615, 616, 617, 618, 619, 620, 621 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Autofilter Zeilen lesen 
Phelan XLPH

Antworten: 6
Aufrufe: 731

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jul 2009, 15:07   Titel: AW: Autofilter Zeilen lesen Version: Office 2007
SpalteA=1
SpalteB=2
usw.

Wert=Cells(ZeilenIndex,SpaltenIndex)
  Thema: Automatisch Kommentare einfügen 
Phelan XLPH

Antworten: 11
Aufrufe: 891

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jul 2009, 14:50   Titel: AW: Automatisch Kommentare einfügen Version: Office 2003
Hoi,

Rechnung folgt Very Happy :
  Thema: Daten aus Tabelle in Combobox ubd Textbox einfügen 
Phelan XLPH

Antworten: 2
Aufrufe: 1177

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jul 2009, 13:49   Titel: AW: Daten aus Tabelle in Combobox ubd Textbox einfügen Version: Office 2003
Machs mit der Find-Methode:
Dim rngF As Range
Set rngF = Sheets("MStdSatz").Columns(1).Find(cbMaschine.Value, , xlValues)
If Not rngF Is Nothing Then
lngRow = rngF.Row
End If
  Thema: Autofilter Zeilen lesen 
Phelan XLPH

Antworten: 6
Aufrufe: 731

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jul 2009, 13:43   Titel: AW: Autofilter Zeilen lesen Version: Office 2007
so:

Sub GefilterteZeilenLesen()
Dim rngZeile As Range
Dim wert As Variant
If Not ActiveSheet.AutoFilterMode Then Exit Sub
For Each rngZeile In ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows
If rngZeile.Row <> 1 Then
Cells(rngZeile.Row, 2).Font.ColorIndex = 3
wert = Cells(rngZeile.Row, 2).Value
End If
Next
MsgBox wert
End Sub
  Thema: wie oft kommen werte aus Spalte A in Spalte B vor? 
Phelan XLPH

Antworten: 8
Aufrufe: 600

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jul 2009, 13:22   Titel: AW: wie oft kommen werte aus Spalte A in Spalte B vor? Version: Office 2003
Mit Dictionary:

Sub Haeufigkeit()
Dim arr As Variant
Dim Dic As Object
Dim i As Long

Set Dic = CreateObject("Scripting.Dictionary")
With Tabelle2 'Anpassen
arr = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then _
Dic(arr(i, 1)) = Dic(arr(i, 1)) + 1
Next
With Tabelle3 'Anpassen
.UsedRange.ClearContents
.Range("A1").Resize(UBound(Dic.Keys) + 1) = _
WorksheetFunction.Transpose(Dic.Keys)
.Range("B1").Resize(UBound(Dic.Items) + 1) = _
WorksheetFunction.Transpose(Dic.Items)
.Range("A1").Sort .Range("A1")
End With
End Sub
  Thema: Autofilter Zeilen lesen 
Phelan XLPH

Antworten: 6
Aufrufe: 731

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jul 2009, 13:07   Titel: AW: Autofilter Zeilen lesen Version: Office 2007
Hallo,

ich hoffe es ist nicht zu komplex.

Sub GefilterteZeilenLesen()
Dim rngZeile As Range
Dim s As String
If Not ActiveSheet.AutoFilterMode Then Exit Sub
For Each rngZeile In ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows
s = s & Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(rngZeile)), ";") & vbLf
Next
MsgBox s
End Sub
  Thema: automatischer tab-schritt? 
Phelan XLPH

Antworten: 9
Aufrufe: 636

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jul 2009, 12:55   Titel: AW: automatischer tab-schritt? Version: Office XP (2002)
Hallo, hier mal ein Beispiel:
  Thema: "find" in gruppierten Zellen 
Phelan XLPH

Antworten: 14
Aufrufe: 355

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jul 2009, 12:17   Titel: AW: "find" in gruppierten Zellen Version: Office 2007
@bst

Fehler: er findet den wert nicht.

Die find-Methode wird sehr oft eingesetzt, dass er nur die sichtbaren
findet... Question Exclamation
  Thema: "find" in gruppierten Zellen 
Phelan XLPH

Antworten: 14
Aufrufe: 355

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jul 2009, 12:12   Titel: AW: "find" in gruppierten Zellen Version: Office 2007
@Tom

so gehts bei mir wenn Zeilen und Spalten ausgeblendet sind.

über die Match-Funktion

Public Function GetBetterFuncName(ByVal FuncID As String)

Dim FuncName As String
Dim i As Long

With Tabelle1
On Error Resume Next
i = WorksheetFunction.Match(FuncID, .Columns(2), 0)
On Error GoTo 0
FuncName = .Range(.Cells(i, 3), .Cells(i, 3)).Value
FuncID = Right(FuncID, Len(FuncID) - InStr(FuncID, "_"))
End With

GetBetterFuncName = FuncID & " " & FuncName

End Function
  Thema: Auswerten einer Comboboxauswahl 
Phelan XLPH

Antworten: 4
Aufrufe: 209

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jul 2009, 11:40   Titel: AW: Auswerten einer Comboboxauswahl Version: Office 2003
oh, natürlich Shock Confused 8) Very Happy

dann machs über ne globale Variable:
zB

Private blnInit as Boolean

Private Sub cbx_select_device_Change()
If Not blnInit Then
'dein Code
End If
end Sub

Private Sub UserForm_Activate()
Dim i As Integer
blnInit = True
cbx_select_device.AddItem
cbx_select_device.List(0, 0) = "x"
cbx_select_device.List(0, 1) = "-----------------Gerät auswählen-----------------"
cbx_select_device.ListIndex = 0

With Sheets("Tabelle2")
For i = 0 To .Cells.SpecialCells(xlCellTypeLastCell).Row
If InStr(1, .Range("A1").Offset(i, 0).Value, "START") Then
cbx_select_device.AddItem
cbx_select_device.List(cbx_select_device.ListCount - 1, 0) = i + 1
cbx_select_device.List(cbx_select_device.ListCount - 1, 1) = .Range("A ...
  Thema: Springen zum nächsten Buchstaben 
Phelan XLPH

Antworten: 1
Aufrufe: 1054

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jul 2009, 11:33   Titel: AW: Springen zum nächsten Buchstaben Version: Office 2003
hoi,

hiermit:
Sub Bsp()
Dim s As String
Dim arr As Variant
s = "unbestimmte Anzahl von Leerzeichen"

arr = Split(s, " ")
MsgBox Trim(arr(0) & "---" & Trim(arr(UBound(arr))))
End Sub
  Thema: "find" in gruppierten Zellen 
Phelan XLPH

Antworten: 14
Aufrufe: 355

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jul 2009, 11:26   Titel: AW: "find" in gruppierten Zellen Version: Office 2007
@bst

Der Zellinhalt wird nur "entgegesetzt" gefunden.
Die Zeile (.Row) /Spalte(.Column) immer!
  Thema: "find" in gruppierten Zellen 
Phelan XLPH

Antworten: 14
Aufrufe: 355

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jul 2009, 11:19   Titel: AW: "find" in gruppierten Zellen Version: Office 2007
Hab des Rätsels Lösung, denke ich zumindest.

ersetze das:
i = .Columns(2).Find(FuncID, LookAt:=xlWhole).Row

durch das:
i = Columns(2).Find(FuncID, , , xlWhole, , xlPrevious).Row

teste mal und gib Rückmeldung
  Thema: Auswerten einer Comboboxauswahl 
Phelan XLPH

Antworten: 4
Aufrufe: 209

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jul 2009, 11:01   Titel: AW: Auswerten einer Comboboxauswahl Version: Office 2003
Hallo,

zu 1.
hiermit: cbx_select_device.ListIndex

zu 2.
statt cbx_select_device.ListIndex = 0
so: cbx_select_device.Value="x"
  Thema: "find" in gruppierten Zellen 
Phelan XLPH

Antworten: 14
Aufrufe: 355

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jul 2009, 10:56   Titel: AW: "find" in gruppierten Zellen Version: Office 2007
Nochmals, hab deinen Code getestet und in Sheet1 die Spalten zugeklappt,
es funktioniert trotzdem.

Was tut denn bei dir nicht, bekommst du ne Fehlermeldung?
 
Seite 618 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 615, 616, 617, 618, 619, 620, 621 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme