Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 495 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 492, 493, 494, 495, 496, 497, 498 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: HEIKEL: Suche best. Zellen und füge 5 Leerzeilen ein 
Phelan XLPH

Antworten: 7
Aufrufe: 364

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jan 2010, 23:20   Titel: AW: HEIKEL: Suche best. Zellen und füge 5 Leerzeilen ein Version: Office 2007
Sub InsertRowWithSpeed()
Dim arr As Variant
Dim arrOut() As Variant
Dim i As Long, k As Integer
Dim m As Long

With Tabelle1
With .Range("A1", .Cells(1, .Columns.Count).End(xlToLeft)).EntireColumn
.Sort .Cells(1), xlAscending, .Cells(2), , xlAscending, Header:=xlYes, Orientation:=xlSortColumns
End With
arr = .Range("A1").CurrentRegion
End With

For i = 1 To UBound(arr) - 1
m = m + 1
ReDim Preserve arrOut(1 To UBound(arr, 2), 1 To m)
For k = 1 To UBound(arr, 2)
arrOut(k, m) = arr(i, k)
Next
If arr(i, 1) <> arr(i + 1, 1) Then m = m + 5
Next

Tabelle2.Range("A1").Resize(UBound(arrOut, 2), UBound(arrOut)) = _
WorksheetFunction.Transpose(arrOut)
End Sub
  Thema: Excel: Wenn Autofilter gesetzt erste Spalte farbig 
Phelan XLPH

Antworten: 11
Aufrufe: 3193

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jan 2010, 20:04   Titel: AW: Excel: Wenn Autofilter gesetzt erste Spalte farbig Version: Office 2003
Hab hier auch noch 2 Varianten(die ähnlich sind):
Public Function isFilterOn(rThisRange As Range) As Boolean
Dim rThisCell As Range
For Each rThisCell In rThisRange.Cells
With rThisCell.Parent
If .AutoFilterMode Then
With .AutoFilter
With .Filters(rThisCell.Column - .Range.Column + 1)
If .On Then isFilterOn = True
End With
End With
End If
End With
Next
End Function
Public Function isFilterOn2(rng As Range) As Boolean
Dim f As Filter, i As Integer
With rng.Parent
If .AutoFilterMode Then
If .FilterMode Then
With .AutoFilter
If .Filters(rng.Column - .Range.Column + 1).On Then _
isFilterOn2 = True
End With
End If
End If
End With
End Function
  Thema: Spalteninhalt leeren mit Bedingungen 
Phelan XLPH

Antworten: 3
Aufrufe: 170

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jan 2010, 19:53   Titel: AW: Spalteninhalt leeren mit Bedingungen Version: Office 2007
Sub SuchenLeeren()
Dim i As Long
Dim lz As Long
With ActiveSheet
lz = .Cells(.Rows.Count, 1).End(xlUp).Row
For counter = 2 To lz
If .Cells(i, 1).Value <= 1 Then
.Cells(i, 1).Resize(, 2).Value = ""
End If
If .Cells(i, 1).Value >= 10 Then
.Range(.Cells(i, 1), .Cells(lz, 2)).ClearContents
Exit For
End If
Exit For
End With
End Sub
  Thema: Tabellenblatt Leiste ausblenden 
Phelan XLPH

Antworten: 4
Aufrufe: 3650

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jan 2010, 19:36   Titel: AW: Tabellenblatt Leiste ausblenden Version: Office 2007
ins codefenster "DieseArbeitsmappe":
Private Sub Workbook_Activate()
ActiveWindow.DisplayWorkbookTabs = False
End Sub

Private Sub Workbook_Deactivate()
ActiveWindow.DisplayWorkbookTabs = True
End Sub
  Thema: Mehrfach auftretende Teilenummern umnummerieren 
Phelan XLPH

Antworten: 2
Aufrufe: 239

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jan 2010, 19:29   Titel: AW: Mehrfach auftretende Teilenummern umnummerieren Version: Office 2007
Sub x()
Dim s As Integer
Dim z As Long
s = 1 'ggf. Anpassen (Spalte) ****************
With Worksheets("Tabelle1") 'ggf. Anpassen (Blatt) ****************
For z = .Cells(.Rows.Count, s).End(xlUp).Row To 2 Step -1
.Cells(z, s) = .Cells(z, s) & "#" & _
WorksheetFunction.CountIf(.Range(.Cells(2, s), .Cells(z, s)), .Cells(z, s))
Next
End With
End Sub
  Thema: Bedingte Formatierung über VBA 
Phelan XLPH

Antworten: 6
Aufrufe: 404

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2010, 16:05   Titel: AW: Bedingte Formatierung über VBA Version: Office 2003
Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngCell As Range
Dim intColor As Integer
Dim AktDatum As Date

'Zu überwachender Bereich
If Not Intersect(Target, Range("F4:F343")) Is Nothing Then
AktDatum = Date
Set Target = Intersect(Target, Range("F4:F343"))
For Each rngCell In Target
Select Case rngCell.Value
Case Is = "": intColor = xlColorIndexNone
Case Is < AktDatum: intColor = 3
Case Is > AktDatum: intColor = 4
Case Is = AktDatum: intColor = 6
End Select
rngCell.Interior.ColorIndex = intColor
Next rngCell
End If

End Sub
  Thema: Markierungen in einer Excel Tabelle 
Phelan XLPH

Antworten: 24
Aufrufe: 1324

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2010, 12:20   Titel: AW: Markierungen in einer Excel Tabelle Version: Office 2003
ins Codefenster der Tabelle:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, Bereich As Range
Set Bereich = Range("B2:F7") ' Überwachungs-Bereich Anpassen *************
If Not Intersect(Target, Bereich) Is Nothing Then
For Each r In Bereich.Rows
Cells(r.Row, 1).Interior.ColorIndex = _
IIf(WorksheetFunction.CountA(r) < r.Cells.Count, 3, xlColorIndexNone)
Next
End If
End Sub
  Thema: Wie per VBA letzten Tag im Halbjahr ermitteln 
Phelan XLPH

Antworten: 2
Aufrufe: 1295

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2010, 11:56   Titel: AW: Wie per VBA letzten Tag im Halbjahr ermitteln Version: Office XP (2002)
etwas kürzer als Funktion:
Function LastDayInHalfYear(Datum As Date) As Date
LastDayInHalfYear = DateSerial(Year(Datum), IIf(Month(Datum) < 7, 7, 13), 0)
End Function
  Thema: Datei Laden Dialog - Bei Abbruch --> Absturz 
Phelan XLPH

Antworten: 6
Aufrufe: 1448

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2010, 11:18   Titel: AW: Datei Laden Dialog - Bei Abbruch --> Absturz Version: Office 2003
@Kaulquappe

oft lohnt es in die Hilfe zu schauen und einfach das Beispiel nehmen Very Happy
  Thema: Steuerelement Register in Userform 
Phelan XLPH

Antworten: 5
Aufrufe: 2111

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2010, 11:14   Titel: AW: Steuerelement Register in Userform Version: Office XP (2002)
Nichts, hier der Grund:
http://www.aboutvb.de/khw/artikel/khwtabstrips.htm

oder du benutzt das Steuerelement Multiseiten (Multipage)
das verhält sich wie von der beschrieben.

EDIT:
@kjot259, also bei mir tuts net.
  Thema: Datei Laden Dialog - Bei Abbruch --> Absturz 
Phelan XLPH

Antworten: 6
Aufrufe: 1448

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2010, 11:05   Titel: AW: Datei Laden Dialog - Bei Abbruch --> Absturz Version: Office 2003
Sub x()
Dim vntfile As Variant
Dim wkb As Workbook
Const strPfad As String = "G:\Benutzer\18\Ablage"
Dim AktPfad As String
AktPfad = ActiveWorkbook.Path
ChDir strPfad
vntfile = Application.GetOpenFilename
If vntfile = False Then Exit Sub
Set wkb = Workbooks.Open(Filename:=vntfile)
End Sub
  Thema: fortlaufendes Zählen von zeilen, damit .... 
Phelan XLPH

Antworten: 6
Aufrufe: 222

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2010, 09:25   Titel: AW: fortlaufendes Zählen von zeilen, damit .... Version: Office 2007
Sub x()
Dim lngLetzteZeile As Long
lngLetzteZeile = Range("H" & Rows.Count).End(xlUp).Row
With Range("H" & lngLetzteZeile + 1)
.Formula = "=SUBTOTAL(9,H4:H" & lngLetzteZeile & ")"
.NumberFormat = "#,##0.00 €"
With .Font
.Name = "Arial"
.FontStyle = "standart"
.Size = 10
End With
End With
End Sub
  Thema: Einfaches Makro für suchen und ersetzen 
Phelan XLPH

Antworten: 7
Aufrufe: 457

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2010, 00:10   Titel: AW: Einfaches Makro für suchen und ersetzen Version: Office 2003
Wink
  Thema: [VBA] Array ohne feste Größe initialisieren 
Phelan XLPH

Antworten: 4
Aufrufe: 6292

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Jan 2010, 18:41   Titel: AW: [VBA] Array ohne feste Größe initialisieren Version: Office 2003
sicherlich, aber das langt fürs erste. Das Thema ist zu groß um...
  Thema: Einfaches Makro für suchen und ersetzen 
Phelan XLPH

Antworten: 7
Aufrufe: 457

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Jan 2010, 17:36   Titel: AW: Einfaches Makro für suchen und ersetzen Version: Office 2003
STRG+H (eventuell Optionen)

mehr benötigst du nicht!
 
Seite 495 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 492, 493, 494, 495, 496, 497, 498 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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