Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 545 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 542, 543, 544, 545, 546, 547, 548 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Textbox mit Enter verlassen 
Phelan XLPH

Antworten: 10
Aufrufe: 1823

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2009, 21:49   Titel: AW: Textbox mit Enter verlassen Version: Office 2003
Wie werden Unbekannte FlugObjekte geschlossen?
Laughing Laughing Laughing Laughing Laughing


EDIT: habs grad getestet, demnach stimmt deine Behauptung nicht.

Beim Verlassen der Textbox greift Exit immer und AfterUpdate nur wenn der
Text geändert wurde.
  Thema: Tabellenblätter global definieren 
Phelan XLPH

Antworten: 6
Aufrufe: 397

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2009, 21:37   Titel: AW: Tabellenblätter global definieren Version: Office 2003
... ne Blondine????
Laughing Laughing Laughing


Was ist der unterschied zw. Global und Public?
  Thema: Textbox mit Enter verlassen 
Phelan XLPH

Antworten: 10
Aufrufe: 1823

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2009, 21:35   Titel: AW: Textbox mit Enter verlassen Version: Office 2003
oder ins Exit-Ereignis.
  Thema: Textbox mit Enter verlassen 
Phelan XLPH

Antworten: 10
Aufrufe: 1823

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2009, 21:31   Titel: AW: Textbox mit Enter verlassen Version: Office 2003
zeig mal den restlichen code
  Thema: txt-Datei 
Phelan XLPH

Antworten: 15
Aufrufe: 426

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2009, 21:25   Titel: AW: txt-Datei Version: Office 2003
Dann zeig mal deinen aufgezeichneten code.
  Thema: Zeitformat 
Phelan XLPH

Antworten: 2
Aufrufe: 325

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2009, 21:24   Titel: AW: Zeitformat Version: Office 2003
Für mal folgenden Code aus:

Sub TextToTime()
With Range("A:A")
.TextToColumns Destination:=.Cells(1), FieldInfo:=Array(1, 1)
.NumberFormat = "hh:mm:ss"
End With
End Sub
  Thema: txt-Datei 
Phelan XLPH

Antworten: 15
Aufrufe: 426

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2009, 20:59   Titel: AW: txt-Datei Version: Office 2003
Dateipfad anpassen.
  Thema: Daten sortieren mit mehr als 3 Kriterien ??? 
Phelan XLPH

Antworten: 26
Aufrufe: 2665

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2009, 20:51   Titel: AW: Daten sortieren mit mehr als 3 Kriterien ??? Version: Office XP (2002)
Ein Beispiel:

Sub SortUDGanzEinfach()
Dim rng As Range
Dim SpaltenNr As Variant
Dim AufAbSteigend As Variant
Dim k As Integer

Set rng = Range("A1").CurrentRegion

SpaltenNr = Array(1, 2, 3, 4) 'Reihenfolge der Spaltensort.
AufAbSteigend = Array(1, 2, 1, 1) '1=Auf; 2=Ab

For k = UBound(SpaltenNr) To 0 Step -1
With rng
.Sort Key1:=.Cells(SpaltenNr(k)), _
Order1:=AufAbSteigend(k), _
Header:=xlYes
End With
Next
End Sub

Weiterentwickelt in der Datei.
(Doppelklick in ListBox löscht markierten Eintrag)
  Thema: Wie krieg' ich Zahlen der Größe nach angeordnet ? 
Phelan XLPH

Antworten: 14
Aufrufe: 632

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2009, 20:35   Titel: AW: Wie krieg' ich Zahlen der Größe nach angeordnet ? Version: Office XP (2002)
Warum verwendest du nicht die Range.Find-Methode, wenn
du schon Zellen sortierst?
  Thema: Typen unverträglich 
Phelan XLPH

Antworten: 2
Aufrufe: 1240

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2009, 20:07   Titel: AW: Typen unverträglich Version: Office 2007
Private Sub Worksheet_Calculate()
Static A1Value
If IsError(Range("R19")) Then MsgBox "Fehler in:
If Range("R19").Value <> R19Value Then
lr = Cells(Rows.Count, "Z").End(xlUp).Row
If Range("R19") <> Range("Z" & lr) Then
Range("Z" & lr + 1) = Range("R19")
Range("Y" & lr + 1) = Range("J23")
A1Value = Range("R19")
End If
End If
End Sub
  Thema: txt-Datei 
Phelan XLPH

Antworten: 15
Aufrufe: 426

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2009, 19:16   Titel: AW: txt-Datei Version: Office 2003
Hab hier 2 Varianten:

Sub TextImportWkbOpen() '3,44sec. (nur Tab)
Dim wkb As Workbook
Dim t As Double
t = Timer
Set wkb = Workbooks.Open("D:\test\a100.txt", Local:=True)
ThisWorkbook.Sheets(2).Cells.Clear
Range("A1").CurrentRegion.Copy ThisWorkbook.Sheets(2).Range("A1")
wkb.Close
MsgBox Timer - t
End Sub

Sub TextImportWkbOpenText() '3,44sec.
Dim wkb As Workbook
Dim t As Double
t = Timer
Workbooks.OpenText "D:\test\a100.txt", DataType:=xlDelimited, Semicolon:=True, Tab:=True, Local:=True
Set wkb = ActiveWorkbook
ThisWorkbook.Sheets(2).Cells.Clear
Range("A1").CurrentRegion.Copy ThisWorkbook.Sheets(2).Range("A1")
wkb.Close
MsgBox Timer - t
End Sub
  Thema: Anzahl gefüllter Zellen trotz Leerzeile 
Phelan XLPH

Antworten: 1
Aufrufe: 1980

BeitragForum: Excel Formeln   Verfasst am: 11. Sep 2009, 23:00   Titel: AW: Anzahl gefüllter Zellen trotz Leerzeile Version: Office 2003
was ist mit =Anzahl2(A3:A10) oder =SUMMENPRODUKT((A3:A10<>"")*1)

Unterschied:
Anzahl2 zählt Formel mit Leerstring mit die andere Formel nicht.
  Thema: Multipliziern Makro funktioniert nur beim aufzeichnen 
Phelan XLPH

Antworten: 8
Aufrufe: 280

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2009, 21:42   Titel: AW: Multipliziern Makro funktioniert nur beim aufzeichnen Version: Office 2003
Hallo Gerd,

Das Apostroph verschwindet, aber das Datum steht immer noch
(linksbündig) als Text
  Thema: Autofill und dann löschen von #NV? 
Phelan XLPH

Antworten: 10
Aufrufe: 315

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2009, 21:20   Titel: AW: Autofill und dann löschen von #NV? Version: Office XP (2002)
Due meinst vielleicht das:

Range("L3:P3").AutoFill Destination:=Range("L3:P" & Range("L65535").End(xlUp).Row)
  Thema: Multipliziern Makro funktioniert nur beim aufzeichnen 
Phelan XLPH

Antworten: 8
Aufrufe: 280

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2009, 21:01   Titel: AW: Multipliziern Makro funktioniert nur beim aufzeichnen Version: Office 2003
Hallo Gerd,

also bei mir funzt dein Code net?!
 
Seite 545 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 542, 543, 544, 545, 546, 547, 548 ... 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