Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 181 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 178, 179, 180, 181, 182, 183, 184 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Mehrfach Suchen und Ersetzen 
Phelan XLPH

Antworten: 20
Aufrufe: 845

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Feb 2012, 12:27   Titel: AW: Mehrfach Suchen und Ersetzen Version: Office 2003
Bei 100 Werten?!

Willst du die 100 werte in den Code schreiben?
  Thema: Wert in mehrdimensionalem Array vorhanden? 
Phelan XLPH

Antworten: 6
Aufrufe: 683

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Feb 2012, 12:25   Titel: AW: Wert in mehrdimensionalem Array vorhanden? Version: Office 2007
Sub x()
Dim ar()
Dim v

ar = Range("A1").CurrentRegion

v = IsIn2DArray(ar, 9)

If v <> "" Then MsgBox v
End Sub


Public Function IsIn2DArray(ByRef sArray() As Variant, ByVal sItem As Variant) As String

' Prüfen, ob das Element "sItem" im Array "sArray" enthalten ist
Dim i As Long
Dim k As Integer

For i = LBound(sArray) To UBound(sArray)
For k = LBound(sArray, 2) To UBound(sArray, 2)
If sArray(i, k) Like sItem Then
IsIn2DArray = IsIn2DArray & vbLf & i & vbTab & k
End If
Next
Next
If IsIn2DArray <> "" Then IsIn2DArray = Mid(IsIn2DArray, 2)
End Function
  Thema: Mehrfach Suchen und Ersetzen 
Phelan XLPH

Antworten: 20
Aufrufe: 845

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Feb 2012, 12:05   Titel: AW: Mehrfach Suchen und Ersetzen Version: Office 2003
Ersetzungsliste ist in Tabelle2
  Thema: Mehrfach Suchen und Ersetzen 
Phelan XLPH

Antworten: 20
Aufrufe: 845

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Feb 2012, 11:49   Titel: AW: Mehrfach Suchen und Ersetzen Version: Office 2003
Wo ist die Liste [Vorher-Nachher]?
  Thema: Zellenadresse des Maximalwerts eines Bereichs auslesen 
Phelan XLPH

Antworten: 2
Aufrufe: 390

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Feb 2012, 11:34   Titel: AW: Zellenadresse des Maximalwerts eines Bereichs auslesen Version: Office 2007
Sub maximal()
Dim sAdr1 As String
Dim sAdr2 As String
Dim erg As Variant

sAdr1 = "C6:V6"
sAdr2 = "C9:V9"

erg = Evaluate("=MAX(IF((" & sAdr2 & "=MAX(" & sAdr2 & "))," & sAdr1 & "))")

MsgBox erg
End Sub
  Thema: Filtern mit Eingabemaske über mehrere Spalten 
Phelan XLPH

Antworten: 9
Aufrufe: 1398

BeitragForum: Excel Auswertungen   Verfasst am: 19. Feb 2012, 02:41   Titel: AW: Filtern mit Eingabemaske über mehrere Spalten Version: Office 2010
Es müssen alle die gleiche Überschrift haben sonst funktionierts nicht.

SG GU NR <> GU Nr <> TMO GU NR ???!!!!
  Thema: Aufsummieren einer Spalte 
Phelan XLPH

Antworten: 1
Aufrufe: 144

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Feb 2012, 11:24   Titel: AW: Aufsummieren einer Spalte Version: Office 2010
Ansatz:
=SUMMEWENN(A:A;">="&DATUM(2012;2;1);B:B)-SUMMEWENN(A:A;">="&DATUM(2012;3;1);B:B)
  Thema: Daten Übertragen 
Phelan XLPH

Antworten: 3
Aufrufe: 175

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Feb 2012, 22:31   Titel: AW: Daten Übertragen Version: Office 2003
Sub Std()
With Tabelle1
.Rows(1).AutoFilter Field:=12, Criteria1:="<>*"
Intersect(.UsedRange.Offset(1), .Range("A:C,G:H,J:J")).Copy
Tabelle2.Range("A2").PasteSpecial xlPasteValues
.Rows(1).AutoFilter

.Rows(1).AutoFilter Field:=13, Criteria1:="<>*"
Intersect(.UsedRange.Offset(1), .Range("A:C,G:H,J:J")).Copy
Tabelle3.Range("A2").PasteSpecial xlPasteValues
.Rows(1).AutoFilter
End With
End Sub
  Thema: Kombinationen aus 3er Zeichenfolgen generieren 
Phelan XLPH

Antworten: 7
Aufrufe: 488

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Feb 2012, 19:20   Titel: AW: Kombinationen aus 3er Zeichenfolgen generieren Version: Office 2007
@Daniel

Erklär bitte deinen Code.

Ich weiß was Rekursion ist, leider bilden sich Knoten in meine Gehirn-Stränge.
  Thema: Kombinationen aus 3er Zeichenfolgen generieren 
Phelan XLPH

Antworten: 7
Aufrufe: 488

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Feb 2012, 18:37   Titel: AW: Kombinationen aus 3er Zeichenfolgen generieren Version: Office 2007
Sind es immer 4 Ebenen? Oder können diese variieren?
  Thema: Filtern mit Eingabemaske über mehrere Spalten 
Phelan XLPH

Antworten: 9
Aufrufe: 1398

BeitragForum: Excel Auswertungen   Verfasst am: 17. Feb 2012, 18:11   Titel: AW: Filtern mit Eingabemaske über mehrere Spalten Version: Office 2010
Cool
  Thema: Filtern mit Eingabemaske über mehrere Spalten 
Phelan XLPH

Antworten: 9
Aufrufe: 1398

BeitragForum: Excel Auswertungen   Verfasst am: 17. Feb 2012, 17:00   Titel: AW: Filtern mit Eingabemaske über mehrere Spalten Version: Office 2010
Meinst du so?
  Thema: 120 MB Textfile mit Makro auf das Wesentliche verkürzen 
Phelan XLPH

Antworten: 5
Aufrufe: 340

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Feb 2012, 15:58   Titel: AW: 120 MB Textfile mit Makro auf das Wesentliche verkürzen Version: Office 2010
Sub x()
Dim i As Long
Dim n As Long
Dim m As Long
Dim Pfad As String
Dim sText As String
Dim ar As Variant
Dim arTxt() As String
Dim t As Single

t = Timer

Pfad = "D:\Test\TEST.txt"

Open Pfad For Input As #1
sText = Input(LOF(1), 1)
Close #1

For i = Len(sText) To 1 Step -1
If Mid(sText, i, 11) Like " ##.##.####" Then Mid(sText, i, 1) = "|"
Next

ar = Split(sText, "|")

For n = 0 To UBound(ar) Step (Rows.Count - 2)
m = n
ReDim arTxt(1 To WorksheetFunction.Min(Rows.Count - 2, UBound(ar) - n), 1 To 1)
For i = 1 To UBound(arTxt)
arTxt(i, 1) = ar(m)
m = m + 1
Next
With Worksheets.Add.Range("A1").Resize ...
  Thema: Beim Seitenansicht stürzt Excel ab 
Phelan XLPH

Antworten: 17
Aufrufe: 1877

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Feb 2012, 13:21   Titel: AW: Beim Seitenansicht stürzt Excel ab Version: Office 2003
Ich denke das wird dir auch nicht helfen.

Die 2 Sachen beißen sich eben.

Einen Tod musst du sterben.
  Thema: WENN WENN BEDINGUNGEN ERFÜLLT DANN...? 
Phelan XLPH

Antworten: 1
Aufrufe: 126

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Feb 2012, 14:15   Titel: AW: WENN WENN BEDINGUNGEN ERFÜLLT DANN...? Version: Office 2010
Benutze die UND-Formel.
 
Seite 181 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 178, 179, 180, 181, 182, 183, 184 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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