Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 204 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 201, 202, 203, 204, 205, 206, 207 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Liste mit Dateinamen filtern 
Phelan XLPH

Antworten: 11
Aufrufe: 236

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 16:23   Titel: AW: Liste mit Dateinamen filtern Version: Office 2007
Dann hast du die Werte auch nicht in spalte A.
  Thema: Teile eines String auslesen u. mit SVERWEIS suchen 
Phelan XLPH

Antworten: 14
Aufrufe: 436

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 15:13   Titel: AW: Teile eines String auslesen u. mit SVERWEIS suchen Version: Office 2003
Hier falls doppelte Arbeitsschritte auftreten:

Function Vergleich_X(SuchKriterium, Matrix)
Dim i As Long
Dim k As Long
Dim ar As Variant
Dim sKonst As String
Dim vgl1 As Object
Dim vgl2 As Object
Dim sOut As String
Dim arPos As Variant

Set vgl1 = CreateObject("scripting.dictionary")
Set vgl2 = CreateObject("scripting.dictionary")

ar = Intersect(Matrix, Matrix.Parent.UsedRange)

sOut = String(Len(SuchKriterium), "-")
sKonst = Left(SuchKriterium, 6)

For i = 7 To Len(SuchKriterium) Step 2
vgl1(sKonst) = Mid(SuchKriterium, i, 2)
vgl2(vgl1(sKonst)) = vgl2(vgl1(sKonst)) & ";" & i
Next

For i = 1 To UBound(ar)
If vgl1.Exists(ar(i, 1)) Then
If ...
  Thema: Teile eines String auslesen u. mit SVERWEIS suchen 
Phelan XLPH

Antworten: 14
Aufrufe: 436

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 14:52   Titel: AW: Teile eines String auslesen u. mit SVERWEIS suchen Version: Office 2003
Wie wärs mit einer UDF:

Function Vergleich_X(SuchKriterium, Matrix)
Dim i As Long
Dim ar As Variant
Dim sKonst As String
Dim vgl1 As Object
Dim vgl2 As Object
Dim sOut As String

Set vgl1 = CreateObject("scripting.dictionary")
Set vgl2 = CreateObject("scripting.dictionary")

ar = Intersect(Matrix, Matrix.Parent.UsedRange)

sOut = String(Len(SuchKriterium), "-")
sKonst = Left(SuchKriterium, 6)

For i = 7 To Len(SuchKriterium) Step 2
vgl1(sKonst) = Mid(SuchKriterium, i, 2)
vgl2(vgl1(sKonst)) = i
Next

For i = 1 To UBound(ar)
If vgl1.Exists(ar(i, 1)) Then
If InStr(sOut, sKonst) = 0 Then sOut = sKonst & Mid(sOut, Len(sKonst) + 1)
If vgl2.Exists(ar ...
  Thema: Spalte auslesen, die ausgelesene Werte in txtDatei speichern 
Phelan XLPH

Antworten: 3
Aufrufe: 122

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 13:17   Titel: AW: Spalte auslesen, die ausgelesene Werte in txtDatei speic Version: Office 2003
Hallo,

Sub x()
Dim ar As Variant
Dim sPfad As String

sPfad = "D:\Test\htpino.txt" 'ANPASSEN ***************

With Cells(Rows.Count, 7).End(xlUp)
ar = Evaluate("=Transpose(""'""&F2:F" & .Row & "&G2:G" & .Row & "&""'"")")
End With

Open sPfad For Output As #1
Print #1, Join(ar, vbCrLf)
Close #1
End Sub
  Thema: Liste mit Dateinamen filtern 
Phelan XLPH

Antworten: 11
Aufrufe: 236

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 12:55   Titel: AW: Liste mit Dateinamen filtern Version: Office 2007
Dann halt die hier:

=WENN(LÄNGE(A1)-LÄNGE(WECHSELN(A1;"_";""))<=2;A1;"")
  Thema: Liste mit Dateinamen filtern 
Phelan XLPH

Antworten: 11
Aufrufe: 236

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 12:52   Titel: AW: Liste mit Dateinamen filtern Version: Office 2007
@ETO

gibt es eine Excel-Formel die dem "InstrRev" in VBA entspricht?
  Thema: Liste mit Dateinamen filtern 
Phelan XLPH

Antworten: 11
Aufrufe: 236

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 12:44   Titel: AW: Liste mit Dateinamen filtern Version: Office 2007
Pack die Formel in B1 und ziehe sie runter.
=WENN(RECHTS(A1;1)="I";A1;"")
Formelwerte in Festwerte umwandeln.
Spalte B sortieren
Fertig!
  Thema: Daten aus anderer Tabelle anhand von Überschrift kopieren 
Phelan XLPH

Antworten: 6
Aufrufe: 571

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jan 2012, 12:37   Titel: AW: Daten aus anderer Tabelle anhand von Überschrift kopiere Version: Office 2007
Sub x()
Dim sPfad As String
Dim sDatei As String
Dim sTabTeilName As String
Dim ws As Worksheet
Dim wsZ As Worksheet
Dim i As Long
Dim lLZ As Long
Dim dictÜberschrift As Object

' erste 5 Zeichen des Blattnamens der
' zu lesenden Blätter. Bitte ANPASSEN!!! ********************
sTabTeilName = "Blatt"

' Pfad der hinterlegten Dateien. ANPASSEN!!! *****************
sPfad = "C:\Users\Boss\Desktop\RadonHD\"

If Right(sPfad, 1) <> "\" Then sPfad = sPfad & "\"

'SammelBlatt heißt "Übersicht" evtl. ANPASSEN!? ************
'ÜberschriftenZeile in Blatt "Übersicht" MUSS vorhanden sein!!! *****
Set wsZ = ThisWorkbook.Worksheets("Übersicht")
Set dictÜberschrift = CreateObject("scripting.dictiona ...
  Thema: Suchen und Markieren 
Phelan XLPH

Antworten: 9
Aufrufe: 153

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Jan 2012, 22:05   Titel: AW: Suchen und Markieren Version: Office 2k (2000)
Noch ne Korrektur war nötig.
  Thema: Suchen und Markieren 
Phelan XLPH

Antworten: 9
Aufrufe: 153

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Jan 2012, 21:46   Titel: AW: Suchen und Markieren Version: Office 2k (2000)
Oder doch wie gewünscht...
  Thema: Suchen und Markieren 
Phelan XLPH

Antworten: 9
Aufrufe: 153

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Jan 2012, 20:40   Titel: AW: Suchen und Markieren Version: Office 2k (2000)
Sagt dir sowas zu?

...eine Lösung mit Pivot.
  Thema: Artikel Kategorie Zuordnung 
Phelan XLPH

Antworten: 10
Aufrufe: 359

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Jan 2012, 20:20   Titel: AW: Artikel Kategorie Zuordnung Version: Office 2007
DAAAA! Gibsch jetz RUH! Very Happy Laughing

Sub Kat_Zuordnen()
Dim i As Long
Dim k As Integer
Dim lngLZ As Long
Dim rngF As Range
Dim sFirstAddress As String

lngLZ = Cells(Rows.Count, 6).End(xlUp).Row

For i = 2 To lngLZ
With Columns(4)
Set rngF = .Find("'" & Cells(i, 6) & "'", , xlValues, xlPart)
If Not rngF Is Nothing Then
sFirstAddress = rngF.Address
Do
k = k + 1
Cells(i, 6 + k) = Cells(rngF.Row, 1)
Set rngF = .FindNext(rngF)
If rngF Is Nothing Then Exit Do
Loop While rngF.Address <> sFirstAddress
k = 0
End If
End With
Next
End Sub
  Thema: Artikel Kategorie Zuordnung 
Phelan XLPH

Antworten: 10
Aufrufe: 359

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Jan 2012, 20:11   Titel: AW: Artikel Kategorie Zuordnung Version: Office 2007
AAAAAAAAAAAHHHHHHHHH!!!!!!!!!!!!! Very Happy isch gugge mol...
  Thema: Artikel Kategorie Zuordnung 
Phelan XLPH

Antworten: 10
Aufrufe: 359

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Jan 2012, 20:02   Titel: AW: Artikel Kategorie Zuordnung Version: Office 2007
Nein. Crying or Very sad
  Thema: Artikel Kategorie Zuordnung 
Phelan XLPH

Antworten: 10
Aufrufe: 359

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Jan 2012, 19:48   Titel: AW: Artikel Kategorie Zuordnung Version: Office 2007
Versteh ich nicht, wo ist da eine 17? Sad Confused
 
Seite 204 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 201, 202, 203, 204, 205, 206, 207 ... 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 Excel-Formeln