Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 484 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 481, 482, 483, 484, 485, 486, 487 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: ComboBox mit hilfe von VBA zwei Textfelder aktivieren/deakt 
Phelan XLPH

Antworten: 6
Aufrufe: 1390

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Mai 2010, 23:55   Titel: AW: ComboBox mit hilfe von VBA zwei Textfelder aktivieren/de Version: Office 2003
@ETO

Laughing ... ja das kam mir selber komisch vor.

dann halt so....

TextBox1.Enabled = IIf(.ListIndex = 0, IIf(True, Not False, Not True), False)

(...übe grad SelbstIronie)

Confused Very Happy Laughing Laughing Laughing Laughing Laughing
  Thema: ComboBox mit hilfe von VBA zwei Textfelder aktivieren/deakt 
Phelan XLPH

Antworten: 6
Aufrufe: 1390

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Mai 2010, 22:29   Titel: AW: ComboBox mit hilfe von VBA zwei Textfelder aktivieren/de Version: Office 2003
Bsp:

ComboBox1.ControlTipText = "Bitte wählen..."
  Thema: Doppelte Zeilen individuell befüllen 
Phelan XLPH

Antworten: 16
Aufrufe: 842

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Mai 2010, 22:24   Titel: AW: Doppelte Zeilen individuell befüllen Version: Office 2003
Hallo,

lad mal die Datei hoch!
  Thema: Ich hasse SAP! Bitte Hilfe bei Umformatierung in Excel!!! 
Phelan XLPH

Antworten: 10
Aufrufe: 1054

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Mai 2010, 21:40   Titel: AW: Ich hasse SAP! Bitte Hilfe bei Umformatierung in Excel!! Version: Office 2007
Hallo ,

60 000 Zeilen in 1,84 sec.

Sub ph_Speed()
Dim arr As Variant
Dim i As Long
Dim strBeschr As String
Dim lngArtNr As Long
Dim t As Single

t = Timer
With Tabelle1 'anpassen
arr = .Range("A1:E" & .Cells(.Rows.Count, 5).End(xlUp).Row)
End With
For i = 1 To UBound(arr)
If IsNumeric(arr(i, 5)) And arr(i, 5) <> "" Then
If strBeschr = "" Then
strBeschr = arr(i - 1, 5)
arr(i - 1, 5) = Empty
lngArtNr = arr(i - 1, 2)
arr(i - 1, 2) = Empty
End If
arr(i, 1) = strBeschr
arr(i, 2) = lngArtNr
Else
strBeschr = ""
lngArtNr = 0
End If
Next

With Worksheets.Add
.Range(&quo ...
  Thema: Alternativen zu Application.FileSearch 
Phelan XLPH

Antworten: 2
Aufrufe: 2779

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Mai 2010, 20:39   Titel: AW: Alternativen zu Application.FileSearch Version: Office 2003
teste das mal:

Sub Daten_Import_AC()

Dim Mappe As String
Dim Mappe2 As String
Dim Datei As String
Dim Pfad As String

Pfad = "C:\Exelauswertung\AC\"

Mappe = ActiveWorkbook.Name
Range("B2").Select

Datei = Dir(Pfad & "*.xls*", vbDirectory)

Do While Datei <> ""
Workbooks.Open Pfad & Datei
Mappe2 = ActiveWorkbook.Name
Sheets("Schrott").Select

Range("B2:I2").Copy
Workbooks(Mappe).Activate
Range("B2").Select
ActiveSheet.PasteSpecial , xlPasteSpecialOperationAdd
Range("B2").Select

Workbooks(Mappe2).Close
Datei = Dir()
Loop
End Sub
  Thema: Doppelte Zeilen individuell befüllen 
Phelan XLPH

Antworten: 16
Aufrufe: 842

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Mai 2010, 20:32   Titel: AW: Doppelte Zeilen individuell befüllen Version: Office 2003
Sub ph()
Dim Dic As Object
Dim DicZ As Object
Dim arr As Variant
Dim arrOut() As Variant
Dim i As Long

Set Dic = CreateObject("scripting.Dictionary")
Set DicZ = CreateObject("scripting.Dictionary")
arr = Range("A1:C" & Cells(Rows.Count, 1).End(xlUp).Row)

For i = 1 To UBound(arr)
Dic(arr(i, 1) & arr(i, 2)) = _
Dic(arr(i, 1) & arr(i, 2)) & "|" & arr(i, 3)
DicZ(arr(i, 1) & arr(i, 2)) = _
DicZ(arr(i, 1) & arr(i, 2)) & "|" & i
Next

ReDim arrOut(1 To UBound(arr), 1 To 1)
arr = Dic.Keys
For i = LBound(arr) To UBound(arr)
If InStr(Dic(arr(i)), "531") ...
  Thema: Doppelte Zeilen individuell befüllen 
Phelan XLPH

Antworten: 16
Aufrufe: 842

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Mai 2010, 19:47   Titel: AW: Doppelte Zeilen individuell befüllen Version: Office 2003
vielleicht triffts...

Sub ph()
Dim rngRow As Range
For Each rngRow In Range("A1:C" & Cells(Rows.Count, 1).End(xlUp).Row).Rows
If rngRow.Cells(3) = 531 Then
If rngRow.Cells(1) = rngRow.Cells(1).Offset(1) And _
rngRow.Cells(2) = rngRow.Cells(2).Offset(1) Then
rngRow.Cells(3).Offset(, 1) = "x"
End If
End If
Next
End Sub
  Thema: Doppelte Zeilen individuell befüllen 
Phelan XLPH

Antworten: 16
Aufrufe: 842

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Mai 2010, 19:23   Titel: AW: Doppelte Zeilen individuell befüllen Version: Office 2003
nix verschten.

Oben schreibst du bei "531" soll das x gesetzt werden und unten bei ";" ?

Wie jetzt?
  Thema: ComboBox mit hilfe von VBA zwei Textfelder aktivieren/deakt 
Phelan XLPH

Antworten: 6
Aufrufe: 1390

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Mai 2010, 19:12   Titel: AW: ComboBox mit hilfe von VBA zwei Textfelder aktivieren/de Version: Office 2003
oder so:

Private Sub ComboBox1_Change()
With ComboBox1
TextBox1.Enabled = IIf(.ListIndex = 0, True, False)
TextBox2.Enabled = IIf(.ListIndex = 0, True, False)
TextBox3.Enabled = IIf(.ListIndex = 1, True, False)
TextBox4.Enabled = IIf(.ListIndex = 1, True, False)

TextBox1.BackStyle = IIf(.ListIndex = 1, 0, 1)
TextBox2.BackStyle = IIf(.ListIndex = 1, 0, 1)
TextBox3.BackStyle = IIf(.ListIndex = 0, 0, 1)
TextBox4.BackStyle = IIf(.ListIndex = 0, 0, 1)
End With
End Sub

Private Sub UserForm_Initialize()
With ComboBox1
.Style = fmStyleDropDownList
.AddItem 1
.AddItem 2
.ListIndex = 0
End With
End Sub
  Thema: Textbox auf Datum beschränken. 
Phelan XLPH

Antworten: 19
Aufrufe: 4488

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Mai 2010, 18:47   Titel: AW: Textbox auf Datum beschränken. Version: Office XP (2002)
Cool ...so isser nun mal unser Nepumuk

Ich finds gut, mit ihm kann ich mich gut zoffen Wink
  Thema: Progressbar 
Phelan XLPH

Antworten: 3
Aufrufe: 1350

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Mai 2010, 20:53   Titel: AW: Progressbar Version: Office 2007
hier mal ein Bsp:
  Thema: Autofilter zeigt nichts an 
Phelan XLPH

Antworten: 4
Aufrufe: 957

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Mai 2010, 18:42   Titel: AW: Autofilter zeigt nichts an Version: Office XP (2002)
Datum-Filter Deluxe
  Thema: Textbox auf Datum beschränken. 
Phelan XLPH

Antworten: 19
Aufrufe: 4488

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Mai 2010, 18:16   Titel: AW: Textbox auf Datum beschränken. Version: Office XP (2002)
warum so kompliziert

wieso nicht den DTPicker wählen oder den Kalender?
  Thema: Autofilter zeigt nichts an 
Phelan XLPH

Antworten: 4
Aufrufe: 957

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Mai 2010, 11:48   Titel: AW: Autofilter zeigt nichts an Version: Office XP (2002)
hab da ein Bsp:
  Thema: excel in neu erstellte txt auslesen 
Phelan XLPH

Antworten: 3
Aufrufe: 221

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Mai 2010, 10:49   Titel: AW: excel in neu erstellte txt auslesen Version: Office 2004 (Mac)
Hallo Mark,

ich hab mal angenommen dass sich alles in einet Tabelle abspielt:
Sub Digitalisierungtest()
Dim i As Long
Dim xx As Long
Dim fs As Object
Dim a As Object
Dim Pfad As String

Pfad = "d:\test\1\" 'Anpassen
With Worksheets("Tabelle2") 'Anpassen
xx = .Cells(.Rows.Count, 2).End(xlUp).Row
If xx < 2 Then MsgBox "Keine Daten": Exit Sub

For i = 2 To xx
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Pfad & .Cells(i, 3) & ".txt", True)
a.WriteLine ("#")
a.WriteLine ("Programm 2.1")
a.WriteLine ("ResName," & .Cells(i, 3))
a.WriteLine ("# No., P, pD, T1, T, not used")
a.WriteLine ("#")
...
 
Seite 484 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 481, 482, 483, 484, 485, 486, 487 ... 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