Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 93 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 90, 91, 92, 93, 94, 95, 96 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Marko schreiben, dass nur Zeilen mit total anzeigt 
Phelan XLPH

Antworten: 8
Aufrufe: 112

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Dez 2012, 12:51   Titel: AW: Marko schreiben, dass nur Zeilen mit total anzeigt Version: Office 2007
Hallo,

wie wäre es mit Gruppieren:

Sub Gruppieren()
Dim ez As Long 'ersteZeile
Dim lz As Long 'letzteZeile
Dim sp As Integer 'spalte
Dim rng As Range
Dim rngC As Range
Dim StartGroup As Long


Application.ScreenUpdating = False

With Tabelle1
.Cells.ClearOutline

sp = 5 'Spalte der Referenzwerte << ggf. Anpassen *****
ez = 14 'StartZeile des Referenzbereichs << ggf. Anpassen *****
lz = .Cells(.Rows.Count, sp).End(xlUp).Row

Set rng = .Cells(ez, sp).Resize(lz - ez + 1)

For Each rngC In rng
If rngC = "Total" Then
If StartGroup <> 0 Then
If rngC.Row - 1 - StartGroup >= 0 Then
rng.Parent.Rows(StartGroup & ":" & rngC.Row - 1).Group
...
  Thema: 20000 grössten Wert in Liste? 
Phelan XLPH

Antworten: 9
Aufrufe: 165

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Dez 2012, 11:49   Titel: AW: 20000 grössten Wert in Liste? Version: Office 2010
@frankieman

WorksheetFunction.Large entspricht der Formel =KGRÖSSTE().

Und =KGRÖSSTE() hat der Fragesteller bemängelt.

Function KGrössteSpecial(Bereich, k)
Dim v As Variant, uni As Object
Set uni = CreateObject("scripting.dictionary")
For Each v In Intersect(Bereich.Parent.UsedRange, Bereich).Value
uni(v) = 0
Next
KGrössteSpecial = WorksheetFunction.Large(uni.keys, k)
End Function
  Thema: txt-Daten in Excel Tabelle importieren 
Phelan XLPH

Antworten: 5
Aufrufe: 117

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Dez 2012, 12:26   Titel: AW: txt-Daten in Excel Tabelle importieren Version: Office 2010
Sub Datei_importieren()
Dim Datei As String, Text As String
Dim Zeile As Long, arDatenSatz As Variant

Datei = ThisWorkbook.Path & "\test001.txt"
Open Datei For Input As #1

Zeile = 4

Do While Not EOF(1)
Line Input #1, Text
h = Split(Text, "|")
With WorksheetFunction
ActiveSheet.Cells(Zeile, 2).Resize(UBound(h) + 1) = .Transpose(.Transpose(h))
End With
Zeile = Zeile + 1
Loop
Close #1
End Sub
  Thema: Zeilen eines Datums zusammen rechnen. 
Phelan XLPH

Antworten: 3
Aufrufe: 76

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Dez 2012, 11:09   Titel: AW: Zeilen eines Datums zusammen rechnen. Version: Office 2003
...eine etwas andere Variante.
  Thema: Zeichenzähler 
Phelan XLPH

Antworten: 2
Aufrufe: 263

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Dez 2012, 16:23   Titel: AW: Zeichenzähler Version: Office 2007
Private Sub CommandButton1_Click()
MsgBox "Anzahl Zeichen: " & Len(TextBox1.Text)
End Sub

Private Sub CommandButton2_Click()
MsgBox "Anzahl 'a'-Zeichen: " & Len(TextBox1.Text) - Len(Replace(TextBox1.Text, "a", ""))
End Sub

...aber Kerle so lernst du nix!!! Rolling Eyes
  Thema: ListObject Schleife mit Autofilter möglich? 
Phelan XLPH

Antworten: 4
Aufrufe: 90

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Dez 2012, 16:16   Titel: AW: ListObject Schleife mit Autofilter möglich? Version: Office 2010
Sub x()
Dim i As Long
With Tabelle1.ListObjects("Test").DataBodyRange
On Error Resume Next
MsgBox .SpecialCells(xlCellTypeVisible).Address
On Error GoTo 0
End With
End Sub
  Thema: ListObject Schleife mit Autofilter möglich? 
Phelan XLPH

Antworten: 4
Aufrufe: 90

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Dez 2012, 14:26   Titel: AW: ListObject Schleife mit Autofilter möglich? Version: Office 2010
Sub x()
Dim i As Long
With Tabelle2.ListObjects("Test").DataBodyRange
For i = 1 To .Rows.Count
If Not .Rows(i).Hidden Then
MsgBox .Cells(i, 1)
End If
Next
End With
End Sub
  Thema: Listen von Dateinamen vergleichen 
Phelan XLPH

Antworten: 2
Aufrufe: 67

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Dez 2012, 14:07   Titel: AW: Listen von Dateinamen vergleichen Version: Office 2010
Sub x()
Dim rngC As Range

With ThisWorkbook.Worksheets("A_Plaene")
For Each rngC In .Range("G6:G25")
If IsNumeric(Application.Match(rngC.Value, .Range("H6:H25"), 0)) Then
rngC = Empty
End If
Next
End With
End Sub
  Thema: ListBox befüllen 
Phelan XLPH

Antworten: 6
Aufrufe: 142

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Dez 2012, 13:53   Titel: AW: ListBox befüllen Version: Office 2010
1. Fehler:

Private Sub UserForm1_Initialize()
Entferne die 1!

2. Fehler:

Bestandsliste ist kein Codename der Tabelle

statt:
With Bestandsliste
so:
With Worksheets("Bestandsliste")

3. Fehler:

Leerzeichen!
statt:
Me.ListBox1.AddItem.Cells(Zeile, 1).Value
so:
Me.ListBox1.AddItem .Cells(Zeile, 1).Value
  Thema: Stunde filtern 
Phelan XLPH

Antworten: 11
Aufrufe: 106

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Dez 2012, 13:28   Titel: AW: Stunde filtern Version: Office 2010
willst du nur das FORMAT haben oder den Stunden-WERT?
  Thema: Suche Wert in Bereich und übergebe Zeilennummer in Array 
Phelan XLPH

Antworten: 3
Aufrufe: 83

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Dez 2012, 18:55   Titel: AW: Suche Wert in Bereich und übergebe Zeilennummer in Array Version: Office 2010
...besser ist so:

Sub x()

Dim arD As Variant
Dim arE As Variant
Dim vSuch As Variant
Dim i As Long
Dim n As Long

vSuch = "Test"

With Tabelle1 ' oder ws
arD = .Range("D1:D" & .Cells(.Rows.Count, 4).End(xlUp).Row)
End With

ReDim arE(1 To UBound(arD))

For i = 1 To UBound(arD)
If arD(i, 1) Like vSuch Then
n = n + 1
arE(n) = i
End If
Next

If n Then
ReDim Preserve arE(1 To n)
MsgBox Join(arE, vbLf), , "Fund in Zeile:"
Else
MsgBox "Kein Fund!"
End If

End Sub
  Thema: Suche Wert in Bereich und übergebe Zeilennummer in Array 
Phelan XLPH

Antworten: 3
Aufrufe: 83

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Dez 2012, 18:48   Titel: AW: Suche Wert in Bereich und übergebe Zeilennummer in Array Version: Office 2010
Sub x()

Dim arD As Variant
Dim arE As Variant
Dim sAdr As String
Dim vSuch As Variant
Dim i As Long
Dim n As Long

vSuch = "Test"

With Tabelle1 ' oder ws
sAdr = .Range("D1:D" & .Cells(.Rows.Count, 4).End(xlUp).Row).Address(, , , 1)
End With

arD = Evaluate("=IF(" & sAdr & "=" & vSuch & ",ROW(" & sAdr & "),"""")")

ReDim arE(WorksheetFunction.Count(arD))

For i = 1 To UBound(arD)
If IsNumeric(arD(i, 1)) Then _
arE(n) = arD(i, 1): n = n + 1
Next

MsgBox Join(arE, vbLf), , "Fund in Zeile:"

End Sub
  Thema: Auf einem Auge blind: Problem mit Makros :( 
Phelan XLPH

Antworten: 4
Aufrufe: 129

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Dez 2012, 18:30   Titel: AW: Auf einem Auge blind: Problem mit Makros :( Version: Office 2010
...so vielleicht...(s. Datei).

Ich würde den dynamischen Spezialfilter dafür nehmen.
  Thema: Mehrere QR Codes erzeugen 
Phelan XLPH

Antworten: 33
Aufrufe: 1568

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Dez 2012, 16:56   Titel: AW: Mehrere QR Codes erzeugen Version: Office 2010
Und wenn du den QR-Code eines Bereich oder einer Tabelle hast, was willst
du damit machen?
  Thema: selbstaufbauendes Labyrinth 
Phelan XLPH

Antworten: 14
Aufrufe: 601

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Dez 2012, 16:50   Titel: AW: selbstaufbauendes Labyrinth Version: Office 2010
Habs nochmal optimiert; im Grunde langt folgender Code
für deine Aufgabenstellung:

Sub Variante_1()
Dim rngStart As Range
Dim rngZiel As Range
Dim rngWeg As Range
Dim intWegFarbe As Integer
Dim intRichtung As Integer
Dim intVertikal As Integer
Dim intHorizontal As Integer

'Aufruf der Säubern-Funktion
Call Säubern

'ZellFarbe des Wegs setzen
intWegFarbe = 5 'blau

'Prüfen ob Zellfarbe gleich Schwarz (= 1) (= Rahmenfarbe)
If intWegFarbe = 1 Then
'Meldung
MsgBox "Wegfarbe darf nicht Schwarz sein!", , "Abbruch"
'Prozedur verlassen
Exit Sub
End If

'Setze die StartZelle
Set rngStart = Tabelle1.Range("B2")
'Setze die ZielZelle
Set rngZiel = Tabelle1.Range("AY29")

'Setze die 'bewegliche bzw. laufende' (Weg)Zelle
Set rngWeg = rngStart

...
 
Seite 93 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 90, 91, 92, 93, 94, 95, 96 ... 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 Editoren Forum