Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 411 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 408, 409, 410, 411, 412, 413, 414 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Kombinatorik mit Einzelergebnisausgabe 
Phelan XLPH

Antworten: 12
Aufrufe: 1100

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Sep 2010, 08:58   Titel: AW: Kombinatorik mit Einzelergebnisausgabe Version: Office 2007
Hallo,
  Thema: Array ohne Leerstellen - Filter() geht nicht 
Phelan XLPH

Antworten: 11
Aufrufe: 598

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Sep 2010, 23:03   Titel: AW: Array ohne Leerstellen - Filter() geht nicht Version: Office 2003
Hallo,

oder unkonventionell:

Private Sub ArrayFilter()
Dim x As Variant
Dim s As String
Dim Regex As Object

ReDim x(4)
x(0) = "a"
x(1) = "2"
x(4) = "ab"

With CreateObject("VBscript.Regexp")
.Pattern = ";+"
.Global = True
.IgnoreCase = True
s = .Replace(Join(x, ";"), ";")
End With

x = Split(s, ";")
MsgBox Join(x, "/")

End Sub
  Thema: txt-Datei öffnen>Daten auswerten>Abspeichern 
Phelan XLPH

Antworten: 3
Aufrufe: 294

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Sep 2010, 20:40   Titel: AW: txt-Datei öffnen>Daten auswerten>Abspeichern Version: Office 2003
Hallo,

google mal, ich hab schon zig dieser Dinger geschrieben.
  Thema: doppelte Namen einer spalte löschen 
Phelan XLPH

Antworten: 2
Aufrufe: 297

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Sep 2010, 20:29   Titel: AW: doppelte Namen einer spalte löschen Version: Office 2003
Spezialfilter >> Unikate=True
  Thema: Tabellenblätter ansprechen 
Phelan XLPH

Antworten: 12
Aufrufe: 1131

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Sep 2010, 17:15   Titel: AW: Tabellenblätter ansprechen Version: Office 2007
@Hansueli

Wie war das?:
Fehlerbehandlung nur wenns unumgäglich ist!
  Thema: Kombinatorik mit Einzelergebnisausgabe 
Phelan XLPH

Antworten: 12
Aufrufe: 1100

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Sep 2010, 17:03   Titel: AW: Kombinatorik mit Einzelergebnisausgabe Version: Office 2007
'Kombination (Ohne Beachtung der Reihenfolge u. ohne Zurücklegen)
'zB Lotto 6aus49
Sub Kombination()

Dim i As Long, j As Long
Dim n As Long, k As Long
Dim springen As Long
Dim zaehler As Long
Dim anzahl As Long

k = 3
n = 10

If n < k Then Exit Sub
anzahl = Application.WorksheetFunction.Combin(n, k)

If anzahl > 2 ^ 16 Then Exit Sub ' Excel 2003
'If anzahl > 2 ^ 20 Then Exit Sub ' Excel 2007

For j = 1 To k
i = 1
zaehler = j
While (i <= anzahl)
springen = Application.WorksheetFunction.Combin(n - zaehler, k - j)
Sheets("Tabelle3").Cells(i, j).Resize(springen).Value = zaehler
i = i + springen
zaehler = zaehler + 1
If n - zaehler < k - j Then
If j = 1 Then
zaehler = n - k + 1
...
  Thema: amerikanische Zahlen in Deutsches Excel kopieren 
Phelan XLPH

Antworten: 5
Aufrufe: 1542

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Sep 2010, 12:35   Titel: AW: amerikanische Zahlen in Deutsches Excel kopieren Version: Office 2010
Sind die Werte als Text oder als Zahl vor (linksbündig oder rechtsbündig)?
  Thema: Daten aus Textdatei einlesen und in Excel formatieren 
Phelan XLPH

Antworten: 10
Aufrufe: 835

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Sep 2010, 12:18   Titel: AW: Daten aus Textdatei einlesen und in Excel formatieren Version: Office 2007
Nicht schlecht! Very Happy Cool
  Thema: Kombinatorik mit Einzelergebnisausgabe 
Phelan XLPH

Antworten: 12
Aufrufe: 1100

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Sep 2010, 12:15   Titel: AW: Kombinatorik mit Einzelergebnisausgabe Version: Office 2007
Vielleicht hilft das weiter: [url=http://www.office-loesung.de/ftopic322434_0_0_asc.php]>>>>
  Thema: Kombinatorik mit Einzelergebnisausgabe 
Phelan XLPH

Antworten: 12
Aufrufe: 1100

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Sep 2010, 10:39   Titel: AW: Kombinatorik mit Einzelergebnisausgabe Version: Office 2007
hallo,

du benötigst die Auflistung aller möglichen Kombinationen?
  Thema: Textdatei erzeugen und Speicherort auswählen 
Phelan XLPH

Antworten: 6
Aufrufe: 810

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Sep 2010, 10:30   Titel: AW: Textdatei erzeugen und Speicherort auswählen Version: Office 2003
Den Tabellennamen musst du schon anpassen.

Im Projektexplorer den Codenamen der Tabelle hier Tabelle1 ist hier
im Bild gleich dem TabellenBlattName (in Klammern) (Tabelle1).

Diesen im Code anpassen.
  Thema: Mit VBA Zellen Addieren die mehreren Kriterien ensprechen 
Phelan XLPH

Antworten: 6
Aufrufe: 784

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Sep 2010, 10:24   Titel: AW: Mit VBA Zellen Addieren die mehreren Kriterien enspreche Version: Office 2003
Geht auch noch komplizierter:

Sub ph()
Dim Dic As Object
Dim arr As Variant
Dim arrOut As Variant
Dim i As Long, n As Long

Set Dic = CreateObject("Scripting.Dictionary")
arr = Tabelle1.Range("A1").CurrentRegion
For i = 2 To UBound(arr)
Dic(arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3)) = _
Dic(arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3)) + arr(i, 4)
Next
arr = Dic.Keys
ReDim arrOut(1 To UBound(arr) + 1, 1 To 4)
For i = 0 To UBound(arr)
arrOut(i + 1, 1) = CDate(Split(arr(i), "|")(0))
arrOut(i + 1, 2) = Split(arr(i), "|")(1)
arrOut(i + 1, 3) = Split(arr(i& ...
  Thema: Textdatei erzeugen und Speicherort auswählen 
Phelan XLPH

Antworten: 6
Aufrufe: 810

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Sep 2010, 09:41   Titel: AW: Textdatei erzeugen und Speicherort auswählen Version: Office 2003
Hallo,

Sub AlsTxtSpeichern()
Dim Pfad As Variant
Pfad = Application.GetSaveAsFilename(, "Text Files (*.txt), *.txt")
If TypeName(Pfad) = "Boolean" Then Exit Sub

With Tabelle1 'Anpassen *******************
.UsedRange.Copy
End With

Open Pfad For Output As #1
Print #1, ZwischenablageAuslesen
Close #1

Application.CutCopyMode = False
End Sub


Public Function ZwischenablageAuslesen() As String
Dim IE As Object
On Error Resume Next
Set IE = CreateObject("HTMLfile")
ZwischenablageAuslesen = IE.ParentWindow.ClipboardData.GetData("text")
Set IE = Nothing
End Function
  Thema: Berechnung der Stunden in einem Zeitintervall 
Phelan XLPH

Antworten: 9
Aufrufe: 1093

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Sep 2010, 21:52   Titel: AW: Berechnung der Stunden in einem Zeitintervall Version: Office 2007
Um den Stromverbrauch zu ermitteln

Das wollt ich hören.
  Thema: Warten bis Access-Datenbank aktualisiert ist 
Phelan XLPH

Antworten: 4
Aufrufe: 1202

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Sep 2010, 17:22   Titel: AW: Warten bis Access-Datenbank aktualisiert ist Version: Office 2003
dann kannst aber auch filgendes nehmen:

Application.Wait
 
Seite 411 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 408, 409, 410, 411, 412, 413, 414 ... 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 Word Serienbriefe