Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 506 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 503, 504, 505, 506, 507, 508, 509 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Datum in textbox eingeben dann in Kalenderwoche umwandelt 
Phelan XLPH

Antworten: 20
Aufrufe: 1610

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2009, 16:17   Titel: AW: Datum in textbox eingeben dann in Kalenderwoche umwandel Version: Office 2003
Private Sub TestKW_Click()
Dim chkDate As Date
If IsDate(TextBox1) Then
chkDate = TextBox1
MsgBox DIN_KW(chkDate)
Else
MsgBox "Bitte ein Datum eingeben"
End If
End Sub
  Thema: Datum in textbox eingeben dann in Kalenderwoche umwandelt 
Phelan XLPH

Antworten: 20
Aufrufe: 1610

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2009, 16:09   Titel: AW: Datum in textbox eingeben dann in Kalenderwoche umwandel Version: Office 2003
Was steht denn in DatumPI drin, wo erhält dieser seinen Wert?

Und heisst dein Button wirklich "TestKW_Click"?
  Thema: Mehrdim. Array ausgeben lsg fkt nicht 
Phelan XLPH

Antworten: 9
Aufrufe: 350

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2009, 16:04   Titel: AW: Mehrdim. Array ausgeben lsg fkt nicht Version: Office 2003
...ok????!!! Crying or Very sad
  Thema: Doppelte einträge finden und farblich markieren 
Phelan XLPH

Antworten: 19
Aufrufe: 2957

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2009, 16:03   Titel: AW: Doppelte einträge finden und farblich markieren Version: Office XP (2002)
DITO
  Thema: zellwert mit variable auslesen 
Phelan XLPH

Antworten: 6
Aufrufe: 1320

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2009, 16:03   Titel: AW: zellwert mit variable auslesen Version: Office 2003
Versuche diesen Code zu verstehen... Smile

Sub SpalteA_Auslesen()
Dim lngLZ As Long 'Zeile letzter gefüllten Zelle
Dim lngCount As Long 'Zählvariable
Dim strWerte As String 'Werte in einer Zeichenkette festhalten

lngLZ = Range("A" & Rows.Count).End(xlUp).Row
For lngCount = 1 To lngLZ
strWerte = strWerte & vbLf & Range("A" & lngCount)
Next
MsgBox strWerte, , "Werte in SpalteA"
End Sub
  Thema: Mehrdim. Array ausgeben lsg fkt nicht 
Phelan XLPH

Antworten: 9
Aufrufe: 350

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2009, 15:51   Titel: AW: Mehrdim. Array ausgeben lsg fkt nicht Version: Office 2003
erstmal mit einfachen integern den mehrdim array auslesen.

...also ich sehe kein mehrdim. Array!!!

Du musst schon deinen code posten, sonst wird das nix...
  Thema: Doppelte einträge finden und farblich markieren 
Phelan XLPH

Antworten: 19
Aufrufe: 2957

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2009, 15:45   Titel: AW: Doppelte einträge finden und farblich markieren Version: Office XP (2002)
With .Range("C6:BK" & lngLZ)
  Thema: Häufigkeiten ausgeben lassen 
Phelan XLPH

Antworten: 4
Aufrufe: 343

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2009, 15:31   Titel: AW: Häufigkeiten ausgeben lassen Version: Office 2003
Sub TEST()
FrequencyReverse Range("A1:B1"), Range("D2")
End Sub

Sub FrequencyReverse(QuellBereich As Range, ZielBereich As Range)
Dim arr As Variant, i As Long, k As Integer
Dim m As Long
Dim arrOut() As Variant
If QuellBereich.Columns.Count >= 2 Then
arr = QuellBereich
For i = 1 To UBound(arr)
For k = 1 To Val(arr(i, 2))
m = m + 1
ReDim Preserve arrOut(1 To 1, 1 To m)
arrOut(1, m) = arr(i, 1)
Next
Next
If m > 0 Then
ZielBereich.Cells(1).Resize(UBound(arrOut, 2)) = _
WorksheetFunction.Transpose(arrOut)
End If
Else
MsgBox "Bereich nuss mind. 2 Spalten beinhalten"
End If
End Sub
  Thema: Ident.Nr. 
Phelan XLPH

Antworten: 8
Aufrufe: 286

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2009, 14:55   Titel: AW: Ident.Nr. Version: Office 2003
@ stefan onken

LastRow = ActiveSheet.UsedRange.Rows.Count

UsedRange fängt nicht immer in der 1. Zeile an!
  Thema: Doppelte einträge finden und farblich markieren 
Phelan XLPH

Antworten: 19
Aufrufe: 2957

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2009, 14:52   Titel: AW: Doppelte einträge finden und farblich markieren Version: Office XP (2002)
Müsste funktionieren....

tausch mal folgende Zeile

das
.Cells(arrOut(lngI), 2).Resize(, UBound(arr, 2)).Interior.ColorIndex = 3 'Rot
durch das
.Cells(arrOut(lngI), 2).Resize(, 62)).Interior.ColorIndex = 3 'Rot
  Thema: zellwert mit variable auslesen 
Phelan XLPH

Antworten: 6
Aufrufe: 1320

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2009, 14:46   Titel: AW: zellwert mit variable auslesen Version: Office 2003
Was soll den passieren? Was ist dein Ziel?
  Thema: Doppelte einträge finden und farblich markieren 
Phelan XLPH

Antworten: 19
Aufrufe: 2957

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2009, 14:41   Titel: AW: Doppelte einträge finden und farblich markieren Version: Office XP (2002)
Genau richtig.
ersetzte das
With Tabelle1
durch das
With Worksheets("All_Projects")
  Thema: zellen kopieren 
Phelan XLPH

Antworten: 6
Aufrufe: 252

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2009, 14:38   Titel: AW: zellen kopieren Version: Office 2007
oder so: .Range("S" & zeile)

Wink
  Thema: mehrere ToggleButton aktivieren und addieren 
Phelan XLPH

Antworten: 7
Aufrufe: 1341

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2009, 14:33   Titel: AW: mehrere ToggleButton aktivieren und addieren Version: Office 2007
Also bei mir tuts...
  Thema: Mehrdim. Array ausgeben lsg fkt nicht 
Phelan XLPH

Antworten: 9
Aufrufe: 350

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2009, 13:55   Titel: AW: Mehrdim. Array ausgeben lsg fkt nicht Version: Office 2003
Wozu das ganze? Ich versteh nicht worauf du hinaus willst?
 
Seite 506 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 503, 504, 505, 506, 507, 508, 509 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum