Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 178 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 175, 176, 177, 178, 179, 180, 181 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Einzelne Daten aus MS Project in Excel nach Abgleich 
Phelan XLPH

Antworten: 17
Aufrufe: 707

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Feb 2012, 16:38   Titel: AW: Einzelne Daten aus MS Project in Excel nach Abgleich Version: Office 2003
Mit MS Project kenn ich mich auch nicht aus, aber wie kommen denn die Daten
ins Excel?
  Thema: letzte Zeile in csv-Datei 
Phelan XLPH

Antworten: 3
Aufrufe: 286

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Feb 2012, 16:33   Titel: AW: letzte Zeile in csv-Datei Version: Office 2007
Wie kommst du an die Daten der CSV?
  Thema: wertevergleich ergibt falsches Ergebnis 
Phelan XLPH

Antworten: 4
Aufrufe: 137

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Feb 2012, 15:36   Titel: AW: wertevergleich ergibt falsches Ergebnis Version: Office 2007
Hallo,

wenn du mit Val() arbeitest dann mußt du das Komma durch einen Punkt
ersetzen.

If Val(Replace(textbox1.Value, ",", ".")) = ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value Then
  Thema: Verschiedene Formate in eine Zelle einfügen 
Phelan XLPH

Antworten: 2
Aufrufe: 119

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Feb 2012, 15:31   Titel: AW: Verschiedene Formate in eine Zelle einfügen Version: Office 2010
FC.Cells(x, 18).Value = _
"1 employee at " & Format(CR.Cells(w, 24), "yyyy-mm-dd") & _
" from " & Format(CR.Cells(w, 29), "hh:mm") & _
" to " & Format(CR.Cells(w, 30), "hh:mm") & _
" in the " & CR.Cells(w, 25) & "."
  Thema: Excel Zahlenreihe 
Phelan XLPH

Antworten: 4
Aufrufe: 1193

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Feb 2012, 13:23   Titel: AW: Excel Zahlenreihe Version: Office 2003
Sub Bsp()
With Range("A1").CurrentRegion
.AutoFill Intersect(.EntireColumn, ActiveSheet.UsedRange), xlFillValues
End With
End Sub
  Thema: UsedRange Fehler 
Phelan XLPH

Antworten: 12
Aufrufe: 523

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Feb 2012, 00:19   Titel: AW: UsedRange Fehler Version: Office 2k (2000)
Hab ich schon oben angegeben:
Nachteil: maximale zusammenhangloser Bereiche = 2^13 (8192)

Stell dir vor du hast von zeile 1 bis 20.000 nur in jeder geraden Zeilennummer
einen Wert, somit fällt SpecialCells aus, denn mehr als 2*8192 ist nicht drin.
Außerdem wird das ganze ziemlich langsam oder stürzt sogar ab.

Diese Grenze ließe sich wieder programmiertechnisch aufheben, aber
mit wesentlichem Aufwand.
  Thema: UsedRange <> Strg-A 
Phelan XLPH

Antworten: 16
Aufrufe: 1525

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Feb 2012, 19:26   Titel: AW: UsedRange <> Strg-A Version: Office 2003
Markiert in SpalteA die 1. freie Zelle von unten:
Cells(Rows.count,1).End(xlup).Offset(1).Select
  Thema: Laufzeitfehler 1004, Array, Zufallszahlen 
Phelan XLPH

Antworten: 7
Aufrufe: 523

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Feb 2012, 19:12   Titel: AW: Laufzeitfehler 1004, Array, Zufallszahlen Version: Office 2003
Sub Zufallszahlen()

Dim Zeilen As Long
Dim Spalten As Long

Dim i As Long 'Variable der Zeile
Dim j As Long 'Variable der Spalte
Dim arr() As Double 'Speichern der Zufallszahlen in array


' Zeilen = Sheets("MCS").Range("I1").Value 'Anzahl der Zeilen
' Spalten = Sheets("Tabelle1").Range("F2").Value 'Anzahl der Spalten
Zeilen = 10
Spalten = 6

ReDim arr(1 To Zeilen, 1 To Spalten) As Double
With Application.WorksheetFunction
For i = 1 To Zeilen
For j = 1 To Spalten
arr(i, j) = .NormInv(Rnd(), 0, 1)
Next j
Next i
End With
End Sub
  Thema: Multiselekt-Listbox in Userform auswerten 
Phelan XLPH

Antworten: 2
Aufrufe: 291

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Feb 2012, 19:02   Titel: AW: Multiselekt-Listbox in Userform auswerten Version: Office 2003
1. logischer Grund? vielleicht ein interner Konflikt, so denk ich.
2. per Schleife.
  Thema: UsedRange Fehler 
Phelan XLPH

Antworten: 12
Aufrufe: 523

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Feb 2012, 18:55   Titel: AW: UsedRange Fehler Version: Office 2k (2000)
Wieviele Filter kennst du denn?

Den Autofilter.

Mach eine Tabelle, setze den Filter, filter nach irgendwelchen Werten
(Sinn=Ausblenden der Zeilen), und führe deinen Code aus.

Kommt jetzt das große AHAAAA, och nö?!

Wie gesagt, Allzweckwaffe gibts nett.
  Thema: Suchfeld !dringend! 
Phelan XLPH

Antworten: 14
Aufrufe: 196

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Feb 2012, 14:28   Titel: AW: Suchfeld !dringend! Version: Office 2010
Zum obigen Code:

Rechtsklick auf den Tabellenreiter -> Code anzeigen ...
Da hienien kopieren.
  Thema: Zellen aussortieren - Makro 
Phelan XLPH

Antworten: 2
Aufrufe: 191

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Feb 2012, 14:26   Titel: AW: Zellen aussortieren - Makro Version: Office 2010
Sub x()
Dim rngC As Range
Dim lZeile As Long

lZeile = 47

With Tabelle1
For Each rngC In .Range("A15:AK45").SpecialCells(xlCellTypeConstants)
.Cells(lZeile, 3) = rngC.Value
lZeile = lZeile + 1
Next
.Cells(47, 3).Sort .Cells(47, 3), xlAscending, Header:=xlNo
End With
End Sub
  Thema: Suchfeld !dringend! 
Phelan XLPH

Antworten: 14
Aufrufe: 196

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Feb 2012, 14:18   Titel: AW: Suchfeld !dringend! Version: Office 2010
Sollte da ein Zusammenhang sein?!
  Thema: die ersten Buchstaben einer Zelle kopieren 
Phelan XLPH

Antworten: 2
Aufrufe: 427

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Feb 2012, 14:13   Titel: AW: die ersten Buchstaben einer Zelle kopieren Version: Office 2007
Range("A2") = Left(Range("A1"), 2)
  Thema: Zeilen ein-/ausblenden in Abhängigkeit eines Listenfeldes 
Phelan XLPH

Antworten: 10
Aufrufe: 335

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Feb 2012, 14:10   Titel: AW: Zeilen ein-/ausblenden in Abhängigkeit eines Listenfelde Version: Office 2003
Falls du ein Passwort vergeben hast dann musst du dieses mit angeben.

Bsp:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

Me.Unprotect "DeinPasswort"
If Target.Address = "$D$18" Then
If Target.Value = "Ja" Then
Rows("39:41").EntireRow.Hidden = False
Else
Rows("39:41").EntireRow.Hidden = True
End If
ElseIf Target.Address = "$D$22" Then
If Target.Value = "Ja" Then
Rows("23:28").EntireRow.Hidden = False
Rows("42:44").EntireRow.Hidden = False
Else
Rows("23:28").EntireRow.Hidden = True
Rows("42:44").EntireRow.Hidden = True
End If
End If
Me.Protect "DeinPasswort"
End Sub
 
Seite 178 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 175, 176, 177, 178, 179, 180, 181 ... 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 Project