Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 144 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 141, 142, 143, 144, 145, 146, 147 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Hilfe bei Combobox und Listfeld 
Phelan XLPH

Antworten: 5
Aufrufe: 147

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Mai 2012, 13:03   Titel: AW: Hilfe bei Combobox und Listfeld Version: Office 2007
Bitte Smile
  Thema: Hilfe bei Combobox und Listfeld 
Phelan XLPH

Antworten: 5
Aufrufe: 147

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Mai 2012, 13:00   Titel: AW: Hilfe bei Combobox und Listfeld Version: Office 2007
...so vielleicht?
  Thema: Speicherstruktur: array in array in array 
Phelan XLPH

Antworten: 7
Aufrufe: 178

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Mai 2012, 12:13   Titel: AW: Speicherstruktur: array in array in array Version: Office 2003
Nimm den Code:

Sub x()
Dim ar As Variant
Dim arB As Variant
Dim arZ As Variant
Dim arErg As Variant
Dim D As Object
Dim i As Long
Dim n As Long
Dim m As Long
Dim k As Integer

ar = Tabelle1.Range("A1").CurrentRegion

Set D = CreateObject("Scripting.Dictionary")

For i = 2 To UBound(ar)
If ar(i, 1) <> "" Then _
D(Left(ar(i, 1), 2)) = D(Left(ar(i, 1), 2)) & ";" & i
Next

arB = D.Keys

For i = 0 To UBound(arB)
arZ = Split(Mid(D(arB(i)), 2), ";")

ReDim arErg(1 To UBound(arZ) + 1, 1 To UBound(ar, 2))

For n = 1 To UBound(arErg)
For k = 1 To UBound(arErg, 2)
arErg( ...
  Thema: Speicherstruktur: array in array in array 
Phelan XLPH

Antworten: 7
Aufrufe: 178

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Mai 2012, 19:40   Titel: AW: Speicherstruktur: array in array in array Version: Office 2003
...eine Möglichkeit.
  Thema: Makro für Report Monat - how to do? 
Phelan XLPH

Antworten: 3
Aufrufe: 229

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Apr 2012, 07:38   Titel: AW: Makro für Report Monat - how to do? Version: Office 2010
Sub x()
Dim i As Long
Dim dat As Date

Columns("A:B").Insert

For i = Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
If IsDate(Cells(i, 3)) Then
dat = Cells(i, 3)
Rows(i).Delete
Else
Cells(i, 1) = MonthName(Month(dat))
Cells(i, 2) = Year(dat)
End If
Next

End Sub
  Thema: Werte auf unterschiedlichen Blättern & Spalten vergleich 
Phelan XLPH

Antworten: 5
Aufrufe: 318

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Apr 2012, 13:17   Titel: AW: Werte auf unterschiedlichen Blättern & Spalten vergl Version: Office 2007
Sub doppelte_Daten_behalten()
Dim i As Long
Dim n As Long
Dim wsNeu As Worksheet
With Sheets("Tab1")
For i = .Cells(Rows.Count, "K").End(xlUp).Row To 2 Step -1
If Not Application.IsNumber(Application.Match(.Cells(i, "K"), Sheets("Tab2").Columns(1), 0)) Then
.Rows(i).Interior.ColorIndex = 3 'rot
If wsNeu Is Nothing Then Set wsNeu = ThisWorkbook.Worksheets.Add
n = n + 1
.Rows(i).Copy wsNeu.Cells(n, 1)
End If
Next
End With
End Sub
  Thema: Agilent Oszi und Excel 
Phelan XLPH

Antworten: 4
Aufrufe: 357

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Apr 2012, 09:16   Titel: AW: Agilent Oszi und Excel Version: Office 2007
Benutzt du das IntuLink-AddIn?

>>[url=http://www.home.agilent.com/agilent/editorial.jspx?cc=DE&lc=ger&ckey=805529&nid=-536902257.0.00&id=805529]Intuilink
  Thema: Zahl in Date umwandeln 
Phelan XLPH

Antworten: 3
Aufrufe: 325

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Apr 2012, 16:00   Titel: AW: Zahl in Date umwandeln Version: Office 2010
MsgBox iZahl/24/60
  Thema: Makro um mehrere Spalten zu einer Spalte zusammenzufügen 
Phelan XLPH

Antworten: 5
Aufrufe: 283

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Apr 2012, 15:49   Titel: AW: Makro um mehrere Spalten zu einer Spalte zusammenzufügen Version: Office 2010
Schreib zb. in D1 folgende Formel und ziehe sie runter:
=INDEX(A:C;ABRUNDEN((ZEILE()+2)/3;0);REST(ZEILE()-1;3)+1)
  Thema: Den höchsten Wert in einem Array mit zwei Variablen finden? 
Phelan XLPH

Antworten: 10
Aufrufe: 255

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Apr 2012, 15:38   Titel: AW: Den höchsten Wert in einem Array mit zwei Variablen find Version: Office 2010
Sub ListeErstellen()
Dim arr
Dim ze As Long
Dim ID As String
Set dictListe = CreateObject("scripting.dictionary")
arr = Tabelle1.Cells(1, 1).CurrentRegion.Value
For ze = 3 To UBound(arr, 1) 'Startet bei Zeile 3
ID = arr(ze, 4) & ";" & Year(arr(ze, 2)) & ";" & arr(ze, 6)
dictListe(ID) = dictListe(ID) + 1
Next
End Sub
  Thema: Geburtstage per Makro als Kommentar eintragen 
Phelan XLPH

Antworten: 6
Aufrufe: 515

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Apr 2012, 18:37   Titel: AW: Geburtstage per Makro als Kommentar eintragen Version: Office 2010
Sub GeburtstageSetzen()
Dim i As Long
Dim vS As Variant
Dim vZ As Variant
Dim dat As Date

With Tabelle4

For i = 2 To Tabelle6.Cells(Tabelle6.Rows.Count, 1).End(xlUp).Row
vS = Application.Match(Tabelle6.Cells(i, 1), .Rows(1), 0)
If IsNumeric(vS) Then
dat = DateAdd("yyyy", Year(.Cells(10, 2)) - Year(Tabelle6.Cells(i, 4)), Tabelle6.Cells(i, 4))
vZ = Application.Match(CLng(dat), .Columns(2), 0)
If IsNumeric(vZ) Then
If Not .Cells(vZ, vS).Comment Is Nothing Then .Cells(vZ, vS).Comment.Delete
.Cells(vZ, vS).AddComment "Geburtstag: " & Tabelle6.Cells(i, 3) & vbLf & _
"(" & Ta ...
  Thema: volatile Funktionen ersetzen 
Phelan XLPH

Antworten: 24
Aufrufe: 1839

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Apr 2012, 16:53   Titel: AW: volatile Funktionen ersetzen Version: Office 2010
...lassen wir es dabei.

Dennoch: Ziel ist der Einsatz von non-Volatile Formeln.
  Thema: volatile Funktionen ersetzen 
Phelan XLPH

Antworten: 24
Aufrufe: 1839

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Apr 2012, 16:39   Titel: AW: volatile Funktionen ersetzen Version: Office 2010
Was war denn an meiner Aussage jetzt unqualifiziert? Confused
  Thema: volatile Funktionen ersetzen 
Phelan XLPH

Antworten: 24
Aufrufe: 1839

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Apr 2012, 16:33   Titel: AW: volatile Funktionen ersetzen Version: Office 2010
@jodox,

lies mal die Überschrift, was sagt dir die?
  Thema: 12 Spalten Verketten 
Phelan XLPH

Antworten: 10
Aufrufe: 280

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Apr 2012, 13:01   Titel: AW: 12 Spalten Verketten Version: Office 2007
With Tabelle2
.Range("G" & .Rows.Count).End(xlUp).Offset(1).Resize(UBound(ar), UBound(ar, 2)) = ar
End With
 
Seite 144 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 141, 142, 143, 144, 145, 146, 147 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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