Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 386 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 383, 384, 385, 386, 387, 388, 389 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Über die KW den Monat berechnen? 
Phelan XLPH

Antworten: 12
Aufrufe: 3456

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Okt 2010, 14:58   Titel: AW: Über die KW den Monat berechnen? Version: Office 97
Hallo,

dennoch ist die KW monatübergreifend:

Sub Test_DatumErsterTagDerKW()
Dim Datum As Date
Dim meldung As String
Dim i As Long

Datum = DatumErsterTagDerKW(2010, 48)

For i = CLng(Datum) To CLng(Datum) + 4
Debug.Print CDate(i)
meldung = meldung & vbLf & WeekdayName(Weekday(CDate(i), vbMonday), True, vbMonday) _
& " " & CDate(i) & " > " & MonthName(Month(CDate(i)))
Next
MsgBox meldung

End Sub



Function DatumErsterTagDerKW(jahr As Integer, kw As Integer) As Date
Dim dMontagKW As Date
dMontagKW = DateSerial(jahr, 1, 1) + (kw * 7)
dMontagKW = dMontagKW + 1 - Weekday(dMontagKW, vbMonday)
DatumErsterTagDerKW = dMontagKW
End Function
  Thema: Datenabgleich ohne Sverweis - Zuordnung von Zellen mit Links 
Phelan XLPH

Antworten: 7
Aufrufe: 663

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Okt 2010, 10:02   Titel: AW: Datenabgleich ohne Sverweis - Zuordnung von Zellen mit L Version: Office 2007
Hallo,

Sub ph()
Dim wsQ As Worksheet
Dim wsZ As Worksheet
Dim i As Long
Dim arr As Variant
Dim rng As Range
Dim Meldung As String

Dim Vgl As Object

Set wsQ = Worksheets("Blatt B")
Set wsZ = Worksheets("Datenbank")

Set Vgl = CreateObject("Scripting.Dictionary")

With wsQ
arr = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With

For i = 1 To UBound(arr)
Vgl(Left$(arr(i, 1), 17)) = i + 1
Next

With wsZ
arr = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With

For i = 1 To UBound(arr)
If Vgl.Exists(arr(i, 1)) Then
wsQ.Cells(Vgl(arr(i, 1)), 1).Copy _
wsZ.Cells ...
  Thema: String bearbeiten 
Phelan XLPH

Antworten: 1
Aufrufe: 157

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Okt 2010, 09:51   Titel: AW: String bearbeiten Version: Office XP (2002)
Hallo,

bedien dich der Funktion Text in Spalten
  Thema: Kalender mit bedingten Formatierungen & Makros gestallte 
Phelan XLPH

Antworten: 1
Aufrufe: 807

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Okt 2010, 19:28   Titel: AW: Kalender mit bedingten Formatierungen & Makros gesta Version: Office 2007
Hallo,

bedingte Formatierungen werden immer wieder neu berechnet und
somit die Zellen "farblich überstrichen".
  Thema: Einzelnes Tabellenblatt speichern 
Phelan XLPH

Antworten: 13
Aufrufe: 1101

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Okt 2010, 19:24   Titel: AW: Einzelnes Tabellenblatt speichern Version: Office 2003
hallo,

teste das mal:

Sub BlaetterSpeichern()
Dim vFile As Variant
vFile = Application.GetSaveAsFilename(, "Excel Dateien (*.xls), *.xls")
If vFile = False Then Exit Sub
ActiveSheet.Copy
ActiveWorkbook.SaveAs vFile, xlNormal
ActiveWorkbook.Close
End Sub
  Thema: adresse von Zahlen lösen 
Phelan XLPH

Antworten: 10
Aufrufe: 237

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Okt 2010, 19:11   Titel: AW: adresse von Zahlen lösen Version: Office 2003
Hallo,

bediene dich der Funktion Text in Spalten
  Thema: Inputbox mit Wiederholung, wenn leer ist 
Phelan XLPH

Antworten: 8
Aufrufe: 1471

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Okt 2010, 19:07   Titel: AW: Inputbox mit Wiederholung, wenn leer ist Version: Office 2007
Genau, hab mich schon gewundert warum es ein Leerstring ausspuckt...

...das war ja bei Application.InputBox
  Thema: Zellen markieren, die in einer Formel benutzt werden 
Phelan XLPH

Antworten: 3
Aufrufe: 220

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Okt 2010, 19:04   Titel: AW: Zellen markieren, die in einer Formel benutzt werden Version: Office 2003
Sub ph()
Dim rngC As Range
Dim aColor As Variant
Dim i As Integer
aColor = Evaluate("=transpose(row(3:56))")
For Each rngC In Tabelle1.UsedRange.SpecialCells(xlCellTypeFormulas)
If i > 53 Then i = 0
i = i + 1
On Error Resume Next
Debug.Print rngC.Address
rngC.DirectDependents.BorderAround , xlThick, aColor(i)
On Error GoTo 0
rngC.Font.ColorIndex = aColor(i)
Next
End Sub
  Thema: Inputbox mit Wiederholung, wenn leer ist 
Phelan XLPH

Antworten: 8
Aufrufe: 1471

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Okt 2010, 18:40   Titel: AW: Inputbox mit Wiederholung, wenn leer ist Version: Office 2007
Also abbrechen liefert auch einen Leerstring, ich würde das auch so belassen.

Wenn User abbrechen klickt oder nichts einträgt und ok klickt dann wird halt aus
der Prozedur gesprungen. Du kannst ja noch eine Vorbelegung als Parameter
übergeben.
  Thema: Auslesen von Spalten in Pivotabelle 
Phelan XLPH

Antworten: 6
Aufrufe: 184

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Okt 2010, 16:18   Titel: AW: Auslesen von Spalten in Pivotabelle Version: Office 2010
Hallo, Maris

und wie ist jetzt die Frage?

Du schreibst Formeln in eine Pivottabelle?
  Thema: Spalte durchsuchen und kopieren 
Phelan XLPH

Antworten: 2
Aufrufe: 161

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Okt 2010, 16:15   Titel: AW: Spalte durchsuchen und kopieren Version: Office 2007
Hallo,


Tabellen-Namen noch anpassen
Sub ph_KopierenUngleichNull()
On Error Resume Next
With Tabelle1
With .Range("M:M")
.ColumnDifferences(.Find(0)).EntireRow.Copy _
Tabelle2.Range("A1")
End With
End With
On Error GoTo 0
End Sub
  Thema: Scheinbar banaler Fehler 
Phelan XLPH

Antworten: 2
Aufrufe: 212

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Okt 2010, 16:09   Titel: AW: Scheinbar banaler Fehler Version: Office 2003
Es gibt keine 50000 Spalten?

Was soll denn genau gemacht werden?
  Thema: Inputbox mit Wiederholung, wenn leer ist 
Phelan XLPH

Antworten: 8
Aufrufe: 1471

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Okt 2010, 16:06   Titel: AW: Inputbox mit Wiederholung, wenn leer ist Version: Office 2007
Wie willst du dann abbrechen?
  Thema: Kombinationen - Vermischung 
Phelan XLPH

Antworten: 15
Aufrufe: 756

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Okt 2010, 15:45   Titel: AW: Kombinationen - Vermischung Version: Office 2003
Hallo,

ein etwas anderer Weg...
  Thema: Nur Ziffern funktioniert nicht wie gewünscht 
Phelan XLPH

Antworten: 2
Aufrufe: 167

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Okt 2010, 12:16   Titel: AW: Nur Ziffern funktioniert nicht wie gewünscht Version: Office 2007
Hallo,

teste das mal:

Private Sub TextBox9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
If Len(TextBox1) >= 2 Then _
KeyAscii = 0: MsgBox "Nur 2-stellige Zahl erlaubt!"
Case Else:
KeyAscii = 0
MsgBox "Nur Ziffern erlaubt!"
End Select
End Sub
 
Seite 386 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 383, 384, 385, 386, 387, 388, 389 ... 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