Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 594 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 591, 592, 593, 594, 595, 596, 597 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Prozedur immer wieder durchlaufen (endlosschleife)(Profis) 
Phelan XLPH

Antworten: 5
Aufrufe: 427

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Jul 2009, 10:19   Titel: AW: Prozedur immer wieder durchlaufen (endlosschleife)(Profi Version: Office 2003
Wie sieht denn dieser Com1 Port Code aus?

Wenn ein Code eine Endlosschleife benötigt dann vielleicht dieser.

Kenne mich mit dem Com1 Port nicht so aus.

Poste diesen mal.
  Thema: Spezialfilter 
Phelan XLPH

Antworten: 11
Aufrufe: 548

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Jul 2009, 10:12   Titel: AW: Spezialfilter Version: Office 2007
Dann gib mal folgendes ein:

>=10.01.2009

Es werden auf 10Zeichen geprüft


oder ersetze überall wo ein 10 steht durch eine 8
  Thema: VBA Code soll Zellen kopieren die nicht in einer Zeile liege 
Phelan XLPH

Antworten: 1
Aufrufe: 174

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Jul 2009, 10:05   Titel: AW: VBA Code soll Zellen kopieren die nicht in einer Zeile l Version: Office 2003
teste das mal:

Sub Makro1()
Dim zell As Range
Dim i As Integer, lz As Long
With Sheets("Data")
lz = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
For Each zell In Sheets("Eingabe").Range("A3,B4,G8")
i = i + 1
Sheets("Data").Cells(lz + 1, i) = zell.Value
Next
End Sub
  Thema: Prozedur immer wieder durchlaufen (endlosschleife)(Profis) 
Phelan XLPH

Antworten: 5
Aufrufe: 427

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Jul 2009, 09:49   Titel: AW: Prozedur immer wieder durchlaufen (endlosschleife)(Profi Version: Office 2003
Wäre es nicht besser, wenn ein Ereigniss darauf reagieren würde?

Hab mir den Code jetzt nicht ganuer angeschaut, aber du könntest doch
über das Change-Ereigniss einen Wert in einer Zelle abfragen.
  Thema: Button zu Makro erstellen! 
Phelan XLPH

Antworten: 11
Aufrufe: 791

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Jul 2009, 09:41   Titel: AW: Button zu Makro erstellen! Version: Office 2003
hier ein Bsp
  Thema: Spezialfilter 
Phelan XLPH

Antworten: 11
Aufrufe: 548

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Jul 2009, 09:16   Titel: AW: Spezialfilter Version: Office 2007
Hallo,

teste das mal:

Sub DatumSpezialfiltern()
Dim rngB As Range
Dim rngK As Range
Dim datDatum As Date
Dim Vgl As String

Set rngB = Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Set rngK = Range("A1:A2")

If IsDate(Right(rngK(2), 10)) Then
datDatum = DateValue(Right(rngK(2), 10))
Vgl = Left(rngK(2), Len(rngK(2)) - Len(Right(rngK(2), 10)))
rngK(2) = Vgl & CLng(datDatum)
Filtern rngB, rngK, Range("F1")
rngK(2) = IIf(Vgl = "", datDatum, Vgl & datDatum)
Else
Filtern rngB, rngK, Range("F1")
End If
End Sub

Sub Filtern(FilterBereich As Range, KriteriumBereich As Range, KpierBereich As Range)
Filte ...
  Thema: Änderung der Druckeinstellung in Abhängigkeit einer Zelle 
Phelan XLPH

Antworten: 5
Aufrufe: 505

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jul 2009, 23:34   Titel: AW: Änderung der Druckeinstellung in Abhängigkeit einer Zell Version: Office 2003
Hi, hier ein bsp
  Thema: Liste sortieren mit lösch bzw. verschieb Funktion 
Phelan XLPH

Antworten: 4
Aufrufe: 264

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jul 2009, 19:41   Titel: AW: Liste sortieren mit lösch bzw. verschieb Funktion Version: Office 97
servus Hartmut,

Liste benötigt ne Überschriftenzeilen,

Sub Holla()
Dim rngB As Range
On Error Resume Next
With Tabelle1 'anpassen
Set rngB = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
With Tabelle2 'anpassen
.UsedRange.Clear
rngB.ColumnDifferences(rngB.Find(Date)).EntireRow.Copy .Cells(2, 1)
Tabelle1.Rows(1).Copy .Cells(1)
rngB.ColumnDifferences(rngB.Find(Date)).EntireRow.Delete
.Range("A:A").Sort .Cells(1), Header:=xlYes
End With
End Sub
  Thema: Zellinhalt als Tabellenname 
Phelan XLPH

Antworten: 1
Aufrufe: 1717

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jul 2009, 16:44   Titel: AW: Zellinhalt als Tabellenname Version: Office 2003
M.E. geht das nicht. Bei der Eingabe befindest du dich im EingabeModus.
  Thema: ListBox Eigenschaften 
Phelan XLPH

Antworten: 2
Aufrufe: 1974

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jul 2009, 16:40   Titel: AW: ListBox Eigenschaften Version: Office 2007
oder so:

ungetestet...
Sub Umsätze_suchen()

Dim conn As New Connection, rec As New Recordset
Dim sql As String, arr() As Variant

Me.lsb_Umsatzübersicht.Enabled = True

Modul_Datenbank.Datenbank_verbinden
conn.Open "Provider=microsoft.jet.oledb.4.0;Data Source=" + Datenbank

sql = "TRANSFORM Sum(UmsatzAuswahl.[UmsatzEinheiten]) AS SummevonUmsatzEinheiten " & _
"SELECT YEAR(UmsatzEingangsDatum) AS Jahr, Sum(UmsatzAuswahl.[UmsatzEinheiten]) AS [GesamtEinheiten] " & _
"FROM UmsatzAuswahl " & _
"WHERE BeraterID = 3 " & _
"GROUP BY YEAR(UmsatzEingangsDatum) " & _
"ORDER BY YEAR(UmsatzEingangsDatum) DESC " & _
"PIVOT Format([UmsatzEingangsDatum],'mmm') In ('Jan ...
  Thema: Excel Sheet als Eingabeformular nutzen? 
Phelan XLPH

Antworten: 5
Aufrufe: 2049

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Jul 2009, 13:37   Titel: AW: Excel Sheet als Eingabeformular nutzen? Version: Office 2007
Hoi,
  Thema: Autofilter über Listbox 
Phelan XLPH

Antworten: 3
Aufrufe: 1624

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2009, 22:08   Titel: AW: Autofilter über Listbox Version: Office 2007
Hab da 2 Beispiele

einmal mit Spezialfilter (mit extra KriterienBlatt)
einmal Zeilenablauf und Ausblenden
  Thema: Autofilter über Listbox 
Phelan XLPH

Antworten: 3
Aufrufe: 1624

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2009, 20:13   Titel: AW: Autofilter über Listbox Version: Office 2007
Es sind weiterhin nur 2 Kriterien möglich, daran hat sich nix geändert.
Du kannst aber den Spezialfilter zur Hilfe nehmen.
  Thema: Brauche hilfe bei einer Lottosuchmaschine 
Phelan XLPH

Antworten: 1
Aufrufe: 335

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2009, 20:03   Titel: AW: Brauche hilfe bei einer Lottosuchmaschine Version: Office 2007
Sub Kombi()
Dim arr As Variant, zell As Range
Dim rngBereich As Range
Dim i As Long, anz As Byte
Dim dummy As Variant
Dim s As String, anzSuch As Integer

arr = Array(1, 2, 3, 4, 5, 6) 'Anpassen
anzSuch = 3 'Anpassen

On Error Resume Next
With Tabelle1 'Anpassen
Set rngBereich = .UsedRange.SpecialCells(xlCellTypeConstants, 1)
Set rngBereich = Union(rngBereich, .UsedRange.SpecialCells(xlCellTypeFormulas, 1))
End With
Err.Clear
On Error GoTo 0
For Each zell In rngBereich
s = zell.Text
If InStr(s, ",") = 0 And _
InStr(s, ".") = 0 And _
InStr(s, ":") = 0 Then
anz = 0
For i = 1 To Len(s)
dummy = Filter(arr, Mid(s, i, 1), True, vbTextCompare)
If UBound(dummy) >= 0 Then
anz = anz + 1
If anz >= anzSuch Then
zell.In ...
  Thema: Musseintrag in Zelle X wenn linksstehende ebenfalls befüllt 
Phelan XLPH

Antworten: 2
Aufrufe: 324

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2009, 18:41   Titel: AW: Musseintrag in Zelle X wenn linksstehende ebenfalls befü Version: Office 2003
Da hab ich was passendes...
 
Seite 594 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 591, 592, 593, 594, 595, 596, 597 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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