Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 555 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 552, 553, 554, 555, 556, 557, 558 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Programmablauf beschleunigen 
Phelan XLPH

Antworten: 2
Aufrufe: 440

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Aug 2009, 14:39   Titel: AW: Programmablauf beschleunigen Version: Office 2003
Hallo,

schau mal ob du einen Geschwindigkeitsunterschied merkst.

Sub Oberbayern()
Dim wkb As Workbook
Dim wksStandorte As Worksheet
Dim wksStandorteObb As Worksheet
Dim arrIn As Variant, arrOut() As Variant
Dim i As Long, k As Long, m As Long

Set wkb = ActiveWorkbook
Set wksStandorte = wkb.Sheets("Standorte")
Set wksStandorteObb = wkb.Sheets("Standorte Obb")

With wksStandorte
arrIn = .Range("A2:S" & .Range("A" & .Rows.Count).End(xlUp).Row).Value
End With

wksStandorteObb.Columns.Clear

For i = 1 To UBound(arrIn)
If arrIn(i, 3) = "Oberbayern" Then
k = k + 1
ReDim Preserve arrOut(1 To UBound(arrIn, 2) + 1, 1 To k)
Select Case arrIn(i, 1)
Case 83000 To 84999
arrOut(1, k) = "Südostbayern"
Case 85000 To 85199, 8528 ...
  Thema: Datum von-bis in Tabelle wiedergeben 
Phelan XLPH

Antworten: 11
Aufrufe: 272

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Aug 2009, 13:57   Titel: AW: Datum von-bis in Tabelle wiedergeben Version: Office 2003
Und jetzt wohin damit? In welchen Ordner gehören die Dateien?
  Thema: Zelle mit bestimmtem Datum suchen 
Phelan XLPH

Antworten: 1
Aufrufe: 666

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Aug 2009, 13:51   Titel: AW: Zelle mit bestimmtem Datum suchen Version: Office 2007
Cells.Find(What:=DateValue("01.01.2009"), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
  Thema: zelle farbig markieren 
Phelan XLPH

Antworten: 3
Aufrufe: 279

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Aug 2009, 13:48   Titel: AW: zelle farbig markieren Version: Office XP (2002)
Ist das dei ganzer code?
  Thema: Zeile nach einem Wert in einer Spalte einfärben 
Phelan XLPH

Antworten: 2
Aufrufe: 288

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Aug 2009, 13:47   Titel: AW: Zeile nach einem Wert in einer Spalte einfärben Version: Office 2003
ins codefenster der tabelle

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngBereich As Range, zell As Range, intFarbe As Integer
Set rngBereich = Range("D:D") 'Anpassen SpalteD
If Not Intersect(Target, rngBereich) Is Nothing Then
For Each zell In Intersect(Target, rngBereich)
Select Case zell.Value
Case "L": intFarbe = 41 'blau
Case "A": intFarbe = 4 'grün
Case "I": intFarbe = 6 'gelb
Case "M": intFarbe = 44 'orange
Case "E": intFarbe = 3 'rot
Case Else: intFarbe = xlColorIndexNone
End Select
zell.Interior.ColorIndex = intFarbe
Next
End If
End Sub
  Thema: Datum von-bis in Tabelle wiedergeben 
Phelan XLPH

Antworten: 11
Aufrufe: 272

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Aug 2009, 13:20   Titel: AW: Datum von-bis in Tabelle wiedergeben Version: Office 2003
hab i net.

Wo kann ich mir das runterladen?
  Thema: Checkbox?? 
Phelan XLPH

Antworten: 7
Aufrufe: 253

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Aug 2009, 13:15   Titel: AW: Checkbox?? Version: Office 2003
s. oben
  Thema: Big Problems beim Zeitformat 
Phelan XLPH

Antworten: 7
Aufrufe: 377

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Aug 2009, 13:01   Titel: AW: Big Problems beim Zeitformat Version: Office 2003
Sub ZeitenErstellen()
Dim strBeginn As String
Dim strEnde As String
Dim i As Long, anz As Long
Dim t As Long, k As Long


Do
strBeginn = InputBox("Beginn-Datum eingeben:", "Beginn", Date)
If (Not strBeginn Like "##.##.####" Or Not IsDate(strBeginn)) And strBeginn <> "" Then _
MsgBox "Bitte ein DATUM im Format [##.##.####] eingeben!", , "Hinweis"
Loop Until strBeginn Like "##.##.####" And IsDate(strBeginn) Or strBeginn = ""
If strBeginn = "" Then Exit Sub

Do
strEnde = InputBox("Ende-Datum eingeben:", "Ende", Date)
If (Not strEnde Like "##.##.####" Or Not IsDate(strEnde)) And strEnde <> "" Then _
MsgBox "Bitte ein DATUM im Format [##.##.####] eingeben!", , "Hinweis"
Loop Until strEnde Like "##.##.####" And IsDate ...
  Thema: Checkbox?? 
Phelan XLPH

Antworten: 7
Aufrufe: 253

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Aug 2009, 12:11   Titel: AW: Checkbox?? Version: Office 2003
Private Sub CheckBox1_Click()
With Range("H1")
.Value = IIf(CheckBox1, 0.07, 0.19)
.NumberFormat = """inkl. ""0%"" MwSt"""
End With
End Sub

Private Sub CommandButton1_Click()
Dim rngQuelle As Range
Dim rngZiel As Range

Set rngQuelle = Range("A3:C4") 'Quelle anpassen
Set rngZiel = Tabelle3.Range("B1") 'Ziel Anpassen

rngQuelle.Copy rngZiel
With rngZiel.Resize(rngQuelle.Rows.Count, rngQuelle.Columns.Count).Cells(rngQuelle.Count)
.Value = .Value * Range("H1").Value
End With
End Sub

Korrektur
  Thema: VBA von 2003 zu 2007 
Phelan XLPH

Antworten: 4
Aufrufe: 421

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Aug 2009, 11:49   Titel: AW: VBA von 2003 zu 2007 Version: Office 2007
Die Funktion möchte ja auch eine Jahreszahl und kein Datum.

=bewFeiert(Jahr('Kalender (AFW)'!$C$3))
  Thema: Big Problems beim Zeitformat 
Phelan XLPH

Antworten: 7
Aufrufe: 377

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Aug 2009, 11:44   Titel: AW: Big Problems beim Zeitformat Version: Office 2003
Wozu 100? Es sind immer nur 96!
  Thema: Checkbox?? 
Phelan XLPH

Antworten: 7
Aufrufe: 253

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Aug 2009, 11:36   Titel: AW: Checkbox?? Version: Office 2003
ein bsp.

ins codefenster der Tabelle:
Private Sub CommandButton1_Click()
Dim dblFaktor As Double
dblFaktor = IIf(CheckBox1, 0.07, 0.19)
MsgBox "Faktor: " & dblFaktor
End Sub
  Thema: Datum von-bis in Tabelle wiedergeben 
Phelan XLPH

Antworten: 11
Aufrufe: 272

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Aug 2009, 11:31   Titel: AW: Datum von-bis in Tabelle wiedergeben Version: Office 2003
Wie sieht sowas aus?
Kannst du einen screenshot psten?
ist das die genaue Bezeichnung Date and Time Picker Control6 ?
Hats das auch in 2007?
  Thema: Big Problems beim Zeitformat 
Phelan XLPH

Antworten: 7
Aufrufe: 377

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Aug 2009, 11:26   Titel: AW: Big Problems beim Zeitformat Version: Office 2003
Meine telepathischen Kräfte signalisieren mir dass du Chrissie76 bist.

http://www.office-loesung.de/ftopic331867_0_0_asc.php&sid=b44d49af8c7f30ccc729950e76ce53a2
  Thema: Union-Auswahl und formatieren 
Phelan XLPH

Antworten: 2
Aufrufe: 213

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Aug 2009, 10:58   Titel: AW: Union-Auswahl und formatieren Version: Office XP (2002)
Sub Variante1()
With Sheets("Ranking")
With .Union(.Range("E13:E15"), _
.Range("F13:F15"), _
.Range("G10:G15"), _
.Range("H10:H15"), _
.Range("I10:I15"), _
.Range("J12:J15"))
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
End With
End Sub

Sub Variante2()
With Sheets("Ranking").Range("E13:E15,F13:F15,G10:G15,H10:H15,I10:I15,J12:J15")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
End Sub
 
Seite 555 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 552, 553, 554, 555, 556, 557, 558 ... 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 Tricks