Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 501 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 498, 499, 500, 501, 502, 503, 504 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Array zu langsam 
Phelan XLPH

Antworten: 11
Aufrufe: 414

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Dez 2009, 09:37   Titel: AW: Array zu langsam Version: Office 2k (2000)
Auch ne Variante:

Ausgabe erfolgt in TABELLE2
Sub Einfügen3()
Dim Dic As Object
Dim i As Long
Dim k As Integer
Dim m As Long
Dim arr As Variant
Dim arrOut() As Variant
Dim t As Double

t = Timer
Set Dic = CreateObject("Scripting.Dictionary")
arr = Range("A7:L" & Cells(Rows.Count, 6).End(xlUp).Row)
For i = 1 To UBound(arr)
If Not Dic.Exists(arr(i, 6)) Then
m = m + 1
ReDim Preserve arrOut(1 To UBound(arr, 2), 1 To m)
For k = 1 To UBound(arr, 2)
arrOut(k, m) = arr(i, k)
Next
End If
Dic(arr(i, 6)) = Dic(arr(i, 6)) + arr(i, 12)
Next
If m = 0 Then Exit Sub
For i = 1 To UBound(arrOut, 2)
arrOut(12, i) = Dic(arrOut& ...
  Thema: Letzter Wert soll beim öffnen wieder in Textbox stehen 
Phelan XLPH

Antworten: 8
Aufrufe: 797

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2009, 21:31   Titel: AW: Letzter Wert soll beim öffnen wieder in Textbox stehen Version: Office 2007
Option Explicit
Dim wks As Worksheet

Private Sub UserForm_Initialize()
Set wks = ThisWorkbook.Worksheets("Tabelle1")
TB23.Text = wks.Range("Z20").Value
End Sub

Private Sub UserForm_Terminate()
wks.Range("Z20").Value = TB23.Text
ThisWorkbook.Save
Set wks = Nothing
End Sub
  Thema: ComboBox auswählen 
Phelan XLPH

Antworten: 1
Aufrufe: 297

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2009, 20:52   Titel: AW: ComboBox auswählen Version: Office 2003
Hai Jems, hab hier was....
  Thema: Fehler im Makro 
Phelan XLPH

Antworten: 14
Aufrufe: 253

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2009, 20:01   Titel: AW: Fehler im Makro Version: Office 2003
lad mal die Datei hoch, oder einen auszug davon
  Thema: Fehler im Makro 
Phelan XLPH

Antworten: 14
Aufrufe: 253

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2009, 15:36   Titel: AW: Fehler im Makro Version: Office 2003
...ersetz mal folgenden Teil:

For i = 2 To UBound(arrHGB)
If Trim$(arrHGB(i, 1)) <> "" Then _
Dic(Trim$(arrHGB(i, 1))) = Dic(Trim$(arrHGB(i, 1))) + _
Val(Replace(arrHGB(i, 2), ",", "."))
Next
  Thema: 3 Dropdownfelder - ein weiterer verzweifelter Versuch 
Phelan XLPH

Antworten: 16
Aufrufe: 1206

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2009, 15:30   Titel: AW: 3 Dropdownfelder - ein weiterer verzweifelter Versuch Version: Office 2003
Nichts ist unmöglich... Razz
  Thema: Datum in textbox eingeben dann in Kalenderwoche umwandelt 
Phelan XLPH

Antworten: 20
Aufrufe: 1610

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2009, 15:21   Titel: AW: Datum in textbox eingeben dann in Kalenderwoche umwandel Version: Office 2003
AACH NEEEEEE!!!!!!!!!!!!!!

Muss das sein, mit Errorhandler ist doofy Crying or Very sad
  Thema: Name von verbundenen Zellen ausgeben - über SelectionChange 
Phelan XLPH

Antworten: 11
Aufrufe: 614

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2009, 15:19   Titel: AW: Name von verbundenen Zellen ausgeben - über SelectionCha Version: Office 2003
S. letzter Beitrag
  Thema: Name von verbundenen Zellen ausgeben - über SelectionChange 
Phelan XLPH

Antworten: 11
Aufrufe: 614

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2009, 14:51   Titel: AW: Name von verbundenen Zellen ausgeben - über SelectionCha Version: Office 2003
Hallo Henrik,

da haben sich wohl andere auch schon gedanken gemacht.

Ich müsste da jetzt auch rumprubieren und herausfinden welches System dahinter
steckt.

Vielleicht kannst du hiermit was anfangen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Name, strName As String
On Error Resume Next
For Each n In ThisWorkbook.Names
If InStr(n.RefersToLocal, Target.Parent.Name) Then _
If Not Intersect(n.RefersToRange, Target) Is Nothing Then _
If Err = 0 Then strName = strName & vbLf & n.Name & " " & n.RefersTo
Err.Clear
Next
If strName <> "" Then MsgBox strName
End Sub
  Thema: Datum in textbox eingeben dann in Kalenderwoche umwandelt 
Phelan XLPH

Antworten: 20
Aufrufe: 1610

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Dez 2009, 14:32   Titel: AW: Datum in textbox eingeben dann in Kalenderwoche umwandel Version: Office 2003
Da hat Thomas die wichtigste Abfrage vergessen: Ist es ein Datum???

Private Sub TestKW_Click()
Dim chkDate As Date, blnNoDate As Boolean
If IsDate(TextBox1) Then
If TextBox1 = Format(CDate(TextBox1), "dd.mm.yyyy") Then
chkDate = CDate(TextBox1)
MsgBox DIN_KW(chkDate)
Else
blnNoDate = True
End If
Else
blnNoDate = True
End If
If blnNoDate Then
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(TextBox1)
End With
MsgBox "Bitte ein Datum im Format 'TT.MM.JJJJ' eingeben"
End If
End Sub

Private Function DIN_KW(DasDatum As Date) As Byte
Dim KW As Date
KW = 4 + DasDatum - Weekday(DasDatum, 2)
DIN_KW = (KW - DateSerial(Year(KW), 1, -6)) \ 7
End Function
  Thema: 3 Dropdownfelder - ein weiterer verzweifelter Versuch 
Phelan XLPH

Antworten: 16
Aufrufe: 1206

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Dez 2009, 19:51   Titel: AW: 3 Dropdownfelder - ein weiterer verzweifelter Versuch Version: Office 2003
@Zero

nicht schlecht, und wie machst du es wenns mehr als 3 Dimensionen sind?

...dann wirds schwierig,oder??!! Very Happy
  Thema: 3 Dropdownfelder - ein weiterer verzweifelter Versuch 
Phelan XLPH

Antworten: 16
Aufrufe: 1206

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Dez 2009, 19:20   Titel: AW: 3 Dropdownfelder - ein weiterer verzweifelter Versuch Version: Office 2003
http://www.office-loesung.de/ftopic126638
  Thema: Autofilter - nur Datensätze kopieren 
Phelan XLPH

Antworten: 6
Aufrufe: 514

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Dez 2009, 18:36   Titel: AW: Autofilter - nur Datensätze kopieren Version: Office 2003
Poste mal deinen "Filter"-Code.
  Thema: Name von verbundenen Zellen ausgeben - über SelectionChange 
Phelan XLPH

Antworten: 11
Aufrufe: 614

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Dez 2009, 18:35   Titel: AW: Name von verbundenen Zellen ausgeben - über SelectionCha Version: Office 2003
Manuell sicherlich nicht. Wink
  Thema: 3 Dropdownfelder - ein weiterer verzweifelter Versuch 
Phelan XLPH

Antworten: 16
Aufrufe: 1206

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Dez 2009, 18:25   Titel: AW: 3 Dropdownfelder - ein weiterer verzweifelter Versuch Version: Office 2003
Hallo Alexander,

folgende Datei hatte ich für ComboBoxen entwickelt, hab jetzt die DropDowns
hinzugenommen.

Siehe Tabellenreitter "Auswahlliste"

EDIT: OOOOPs du wolltest OHNE VBA!!
 
Seite 501 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 498, 499, 500, 501, 502, 503, 504 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web