Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Sicherheitshinweis ---> für registrierte Mitglieder <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 230 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 227, 228, 229, 230, 231, 232, 233 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Teler finden 
Phelan XLPH

Antworten: 8
Aufrufe: 310

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 17:29   Titel: AW: Teler finden Version: Office 2007
Function GGT_2(x, y)
Dim tmp
Do
tmp = y
y = x Mod y
x = tmp
Loop Until y < 1
GGT_2 = tmp
End Function
  Thema: Kopieren nach Kriterium 
Phelan XLPH

Antworten: 5
Aufrufe: 120

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 16:44   Titel: AW: Kopieren nach Kriterium Version: Office 2007
Sub FilterCopy()
With Tabelle1.Range("A1").CurrentRegion.EntireColumn
.AutoFilter 3, "G"
With .Parent.AutoFilter.Range
With .Resize(, .Columns.Count - 4).Offset(, 4)
.SpecialCells(xlCellTypeVisible).Copy Tabelle2.Cells(1)
End With
End With
.AutoFilter
End With
End Sub
  Thema: zahlen von x bis y markieren 
Phelan XLPH

Antworten: 2
Aufrufe: 240

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 16:28   Titel: AW: zahlen von x bis y markieren Version: Office 2003
Hallo aika,

=UND(AK1<1000000;AK1<>"")
  Thema: Suchen/Ersetzen Zahl in Kopfzeile aller Blätter einer Datei 
Phelan XLPH

Antworten: 2
Aufrufe: 378

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 15:46   Titel: AW: Suchen/Ersetzen Zahl in Kopfzeile aller Blätter einer Da Version: Office 2010
Sub Kopfzeilen_ersetzen()
Suchtext = InputBox("Suchtext?")
ErsText = InputBox("Ersetzen durch?")
For Each Blatt In ActiveWorkbook.Sheets
With Blatt.PageSetup
.LeftHeader = Replace(.LeftHeader, Suchtext, ErsText)
.CenterHeader = Replace(.CenterHeader, Suchtext, ErsText)
.RightHeader = Replace(.RightHeader, Suchtext, ErsText)
End With
Next Blatt
End Sub
  Thema: Letzte Zeile einer Selektion ermitteln 
Phelan XLPH

Antworten: 2
Aufrufe: 479

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 15:42   Titel: AW: Letzte Zeile einer Selektion ermitteln Version: Office 2007
Sub LetzteZeileSelection()
With Selection
MsgBox .Row + .Rows.Count - 1
End With
End Sub
  Thema: Zellenihnalt mit _ Trennen 
Phelan XLPH

Antworten: 4
Aufrufe: 275

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 15:37   Titel: AW: Zellenihnalt mit _ Trennen Version: Office 2003
Sub Trennen()
Dim w As Variant
Dim rngC As Range
With Tabelle1
For Each rngC In Intersect(.UsedRange, .Range("A:A"))
w = rngC
If Len(w) >= 9 Then
rngC.Offset(, 2) = Left(w, 5) & "_" & Mid(w, 6, Len(w) - 9) & "_" & Right(w, 4)
End If
Next
End With
End Sub
  Thema: Zeichenzusammensetzung verändern 
Phelan XLPH

Antworten: 5
Aufrufe: 147

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 14:59   Titel: AW: Zeichenzusammensetzung verändern Version: Office 2003
Als Formel: =WECHSELN(WECHSELN(LINKS(A1;5)&"_"&TEIL(A1;6;LÄNGE(A1)-9)&"_"&RECHTS(A1;4);"-";"");" ";"")
  Thema: Zellenihnalt mit _ Trennen 
Phelan XLPH

Antworten: 4
Aufrufe: 275

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 14:53   Titel: AW: Zellenihnalt mit _ Trennen Version: Office 2003
Da langt eine Formel:
=LINKS(A1;5)&"_"&TEIL(A1;6;LÄNGE(A1)-9)&"_"&RECHTS(A1;4)
  Thema: Horizontaler Scrollbalken in Listboxen 
Phelan XLPH

Antworten: 5
Aufrufe: 760

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 14:40   Titel: AW: Horizontaler Scrollbalken in Listboxen Version: Office 2010
Private Sub UserForm_Initialize()
ListBox1.ColumnWidths = ListBox1.Width - 10
End Sub
  Thema: 3 Spalten sortieren 
Phelan XLPH

Antworten: 3
Aufrufe: 128

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 14:29   Titel: AW: 3 Spalten sortieren Version: Office 2010
3x Order1:=
  Thema: was ist hier falsch - brauche Hilfe 
Phelan XLPH

Antworten: 8
Aufrufe: 110

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 14:27   Titel: AW: was ist hier falsch - brauche Hilfe Version: Office 2007
...dann hast du in dem Datei-Pfad keine Excel-dateien.
  Thema: MsgBox startet nicht 
Phelan XLPH

Antworten: 14
Aufrufe: 180

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 14:17   Titel: AW: MsgBox startet nicht Version: Office 2007
Ein Register muss ja beim Öffnen der datei immer aktiv sein. Falls es das "Tabelle2" ist dann wird
das Activate-Ereignis nicht ausgelöst.
  Thema: MsgBox startet nicht 
Phelan XLPH

Antworten: 14
Aufrufe: 180

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 14:15   Titel: AW: MsgBox startet nicht Version: Office 2007
dem wird aber nicht so sein, denn das Workbook_Open greift ja!
  Thema: For Schleife (optimieren) 
Phelan XLPH

Antworten: 8
Aufrufe: 207

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 14:12   Titel: AW: For Schleife (optimieren) Version: Office 2003
Sub test()
Dim table As Worksheet, x As Long, y As Long, lngZeilen As Long
Set table = Worksheets("Tabelle1")

With table
lngZeilen = table.Cells(table.Rows.Count, 1).End(xlUp).Row
For y = 3 To lngZeilen
If LCase$(.Cells(y, 5)) Like "frankreich*" Then
.Cells(y, 22) = 1
If .Cells(y, 10) <> "" Then .Cells(y, 23) = 1
.Cells(y, 24) = Empty
.Cells(y, 25) = Empty
If IsDate(.Cells(y, 12)) Then
If .Cells(y, 12) > Date Then
.Cells(y, 24) = 1
Else
.Cells(y, 25) = 1
End If
End If
Else
.Cells(y, 22).Resize(, 4) = Empty
...
  Thema: VBA aktualisieren 
Phelan XLPH

Antworten: 3
Aufrufe: 221

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Nov 2011, 13:59   Titel: AW: VBA aktualisieren Version: Office 2003
Such mal nach: Code per Code manipulieren
 
Seite 230 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 227, 228, 229, 230, 231, 232, 233 ... 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 Forum