Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 586 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 583, 584, 585, 586, 587, 588, 589 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: inhalt eines arbeitsblattes löschen ohne select 
Phelan XLPH

Antworten: 4
Aufrufe: 1088

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Aug 2009, 13:11   Titel: AW: inhalt eines arbeitsblattes löschen ohne select Version: Office 2007
Worksheets("Taballe2").Usedrange.ClearContents
  Thema: Bitte um Hilfe... 
Phelan XLPH

Antworten: 7
Aufrufe: 210

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Aug 2009, 12:03   Titel: AW: Bitte um Hilfe... Version: Office 2003
probiers doch aus.

einfach in die nächste Tabelle klicken und und dort den SuchBereich wählen.
  Thema: Eintrag in nächste freie Zeile 
Phelan XLPH

Antworten: 5
Aufrufe: 539

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Aug 2009, 11:06   Titel: AW: Eintrag in nächste freie Zeile Version: Office 2007
hi,

Private Sub CommandButton1_Click()
Dim loLetzte As Long
With Sheets("Beispiel")
loLetzte = .Cells(Rows.Count, 2).End(xlUp).Row
.Range(.Cells(loLetzte + 1, 2), .Cells(loLetzte + 1, 4)) = .Range("A1")
End With
End Sub
  Thema: 256 CommandButtons benennen 
Phelan XLPH

Antworten: 4
Aufrufe: 560

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Aug 2009, 00:07   Titel: AW: 256 CommandButtons benennen Version: Office XP (2002)
Sub UserForm_initialize()
Dim Zaehler As Integer
For Zaehler = 1 To 256
With Controls("CommandButton" & Zaehler)
.Caption = Sheets("Einstellungen").Cells(Zaehler, 3).Value
.BackColor = IIf(Sheets("Einstellungen").Cells(Zaehler, 6), vbGreen, vbRed)
End With
Next
End Sub
  Thema: Makro Gültigkeit 
Phelan XLPH

Antworten: 9
Aufrufe: 461

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 23:52   Titel: AW: Makro Gültigkeit Version: Office 2003
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zeile As Long, spalte As Integer
Dim i As Long, k As Long
Dim arr As Variant, rng As Variant
Set rng = Range("D10:Z1000") 'Anpassen************* ÜberwachungsBereich setzen
If Not Intersect(Target, rng) Is Nothing Then 'Schnittemenge beider Bereiche ermitteln ermitteln
Set rng = Intersect(Target, rng) 'Zuweisung der Schnittmenge
If rng.Count = 1 Then 'Abfrage besteht SchnittmengenBereich aus einer Zelle
If rng.Value > 50000 Then 'Abfrage ZellInhalt >500000
rng.ClearContents 'Zelle leeren
rng.Interior.ColorIndex = 3 'Zelle färben
End If
Else 'Schnittmengenbereich mehr als eine Zelle
zeile = rng.Row ...
  Thema: Combobox dynamisch mit Spaltendatenfüllen 
Phelan XLPH

Antworten: 5
Aufrufe: 2484

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 23:22   Titel: AW: Combobox dynamisch mit Spaltendatenfüllen Version: Office 2003
Das geht noch einfacher:
UserForm1.ComboBox1.Column = Tabelle1.Range("A1:D1").Value
  Thema: Makro Gültigkeit 
Phelan XLPH

Antworten: 9
Aufrufe: 461

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 23:12   Titel: AW: Makro Gültigkeit Version: Office 2003
Das mit der einzelnen zelle müsste jetzt tun siehe oben.

Was soll denn ausser Faerbeb noch passieren, etwa die zelle leeren??
  Thema: Auswahl einer bestimmten Woche eines Monats 
Phelan XLPH

Antworten: 18
Aufrufe: 1125

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 22:49   Titel: AW: Auswahl einer bestimmten Woche eines Monats Version: Office 2003
@losgehts

ich glaub der Code von DPXone erfüllt ebenso die Kriterien eines DIN-KW:
Function KW(Datum As Date) As Byte
KW = Format(Datum, "ww", vbMonday, vbFirstFourDays)
End Function

Demnach wäre das die kürzeste und schnellste Version.
  Thema: Makro Gültigkeit 
Phelan XLPH

Antworten: 9
Aufrufe: 461

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 22:34   Titel: AW: Makro Gültigkeit Version: Office 2003
hab die einzelne Zelle nicht berücksichtigt 8)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zeile As Long, spalte As Integer
Dim i As Long, k As Long
Dim arr As Variant, rng As Variant
Set rng = Range("D10:Z1000") 'Anpassen*************
If Not Intersect(Target, rng) Is Nothing Then
Set rng = Intersect(Target, rng)
If rng.Count = 1 Then
If rng.Value > 50000 Then _
rng.Interior.ColorIndex = 3
Else
zeile = rng.Row
spalte = rng.Column
arr = rng.Value
For i = 1 To UBound(arr)
For k = 1 To UBound(arr, 2)
If arr(i, k) > 50000 Then
Cells(i + zeile - 1, k + spalte - 1).Interior.ColorIndex = 3
End If
Next
Next
End If
End If
End Sub

Korrekt ...
  Thema: Combobox dynamisch mit Spaltendatenfüllen 
Phelan XLPH

Antworten: 5
Aufrufe: 2484

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 21:46   Titel: AW: Combobox dynamisch mit Spaltendatenfüllen Version: Office 2003
bsp:

UserForm1.ComboBox1.List = WorksheetFunction.Transpose(Tabelle1.Range("A1:D1"))
  Thema: Excel CSV Dateien zusammenführen 
Phelan XLPH

Antworten: 15
Aufrufe: 3073

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 20:36   Titel: AW: Excel CSV Dateien zusammenführen Version: Office 2003
hab nicht auf leere Dateien geprüft, aber hiermit gehts:

Sub test()
DateiListeAnzeigen "D:\test\", "Konsolidierung.txt" 'anpassen
End Sub

Sub DateiListeAnzeigen(Ordnerangabe, Datei)
Dim fso, o, d, da, s, fq, fz, txt
Set fso = CreateObject("Scripting.FileSystemObject")
Set o = fso.GetFolder(Ordnerangabe)
Set da = o.Files
For Each d In da
'Debug.Print d.Name
If d.Name Like "*.txt" Then
Set fq = fso.OpenTextFile(Ordnerangabe & d.Name, 1)
If fq.AtEndOfLine = True Then
fq.Close
Else
txt = fq.ReadAll
fq.Close
Set fz = fso.OpenTextFile(Ordnerangabe & Datei, 8, True)
fz.Write txt & vbCrLf
fz.Close
End If
End If
Next
End Sub
  Thema: Programmlaufzeiten darstellen 
Phelan XLPH

Antworten: 13
Aufrufe: 435

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 20:29   Titel: AW: Programmlaufzeiten darstellen Version: Office 2003
Sub x()
Dim arrIn As Variant
Dim arrVgl As Variant
Dim v As Long
Dim Dic As Object
Dim i As Long, k As Long
Application.ScreenUpdating = False

Set Dic = CreateObject("Scripting.Dictionary")

With Tabelle3 'anpassen ****************
arrIn = .Range("A2:D" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With

For i = 1 To UBound(arrIn)
Dic(arrIn(i, 2)) = Dic(arrIn(i, 2)) & ";" & arrIn(i, 3) & ";" & arrIn(i, 4)
Next


With Tabelle4 'anpassen ****************
arrVgl = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)

arrIn = Dic.Keys
For i = 0 To UBound(arrIn)
For k = 0 To UBound(Split(Mid(Dic(arrIn(i)), 2), ";")) Step 2
For v = 1 To UBound(arrVgl)
...
  Thema: Excel CSV Dateien zusammenführen 
Phelan XLPH

Antworten: 15
Aufrufe: 3073

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 18:59   Titel: AW: Excel CSV Dateien zusammenführen Version: Office 2003
Sub test()
Konsol "D:\test\", "Konsolidierung.txt" 'anpassen
End Sub

Sub Konsol(Ordnerangabe, Datei)
Dim fso, o, d, da, s, fq, fz, txt
Set fso = CreateObject("Scripting.FileSystemObject")
Set o = fso.GetFolder(Ordnerangabe)
Set da = o.Files
For Each d In da
Debug.Print d.Name
If d.Name Like "*.txt" Then
Set fq = fso.OpenTextFile(Ordnerangabe & d.Name, 1)
txt = fq.ReadAll
fq.Close
Set fz = fso.OpenTextFile(Ordnerangabe & Datei, 8, True)
fz.Write txt & vbCrLf
fz.Close
End If
Next
End Sub
  Thema: Programmlaufzeiten darstellen 
Phelan XLPH

Antworten: 13
Aufrufe: 435

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 18:31   Titel: AW: Programmlaufzeiten darstellen Version: Office 2k (2000)
Da kann es aber zu überschneidungen kommen wenn 2 Personen am
selben Ort waren. Ist das gewollt?
  Thema: Makro Gültigkeit 
Phelan XLPH

Antworten: 9
Aufrufe: 461

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2009, 18:10   Titel: AW: Makro Gültigkeit Version: Office 2003
Hi,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zeile As Long, spalte As Integer
Dim i As Long, k As Long
Dim arr As Variant, rng As Variant
Set rng = Range("D10:Z1000") 'Anpassen*************
If Not Intersect(Target, rng) Is Nothing Then
Set rng = Intersect(Target, rng)
zeile = rng.Row
spalte = rng.Column
arr = rng.Value
For i = 1 To UBound(arr)
For k = 1 To UBound(arr, 2)
If arr(i, k) > 50000 Then
Cells(i + zeile - 1, k + spalte - 1).Interior.ColorIndex = 3
End If
Next
Next
End If
End Sub
 
Seite 586 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 583, 584, 585, 586, 587, 588, 589 ... 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