Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 133 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 130, 131, 132, 133, 134, 135, 136 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Autofilter funktioniert nur im ersten Lauf einer Schleife 
Phelan XLPH

Antworten: 5
Aufrufe: 134

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Aug 2012, 14:00   Titel: AW: Autofilter funktioniert nur im ersten Lauf einer Schleif Version: Office 2003
Hallo,

Die Variable STR_WKN wird während der Schleife an anderer Stelle immer neu eingelesen (was funktioniert)

...zeige mehr vom Code, das sind zu wenig Informationen.
  Thema: Zellbereich kopieren und in alle Worksheets einfügen 
Phelan XLPH

Antworten: 7
Aufrufe: 166

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Aug 2012, 13:59   Titel: AW: Zellbereich kopieren und in alle Worksheets einfügen Version: Office 2010
Meinst du mit workbooks Dateien oder Arbeitsblätter?
  Thema: Pärchenzuordnung per VBA 
Phelan XLPH

Antworten: 25
Aufrufe: 712

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Aug 2012, 09:36   Titel: AW: Pärchenzuordnung per VBA Version: Office 2010
Dazu musst du die Datei öffnen und den Blattnamen auslesen.
Dann könntest du nach der Position des Blattes den Namen auslesen.
z.B:

'Quelldaten ermitteln ************
sDatei = Dir(vVolllerPfad)
sPfad = Replace(vVolllerPfad, sDatei, "")
With GetObject(vVolllerPfad)
sBlatt = .Worksheets(1).Name
.Close False
End With
sBereich = "A:C"
'*********************************

aber sollte die Position des Blattes verändert werden,dann müsste nach dem
bestimmten Blatt mit den Bestimmten Daten gesucht werden. Zur Identifikation
könnte die Übeschriftenzeile genommen werden. Aber was wenn die nicht wie gewöhnlich in Zeile 1 steht.....?

Du siehst Narrensicher ist Excel nicht.

Mit GetObject wird im Hintergrund geöffnet.


EDIT:

Wenn die Dati schon geöffnet wird, dann lassen wir die Formel doch
bei geöffneter Datei eintragen - ist schneller.

Sub ExternerSVERWEIS()
Dim ...
  Thema: Zahlenreihen 
Phelan XLPH

Antworten: 2
Aufrufe: 123

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Aug 2012, 09:22   Titel: AW: Zahlenreihen Version: Office 97
Function SummeN(Bereich)
Dim v As Variant
Dim a As Variant
Dim b As Variant
Dim sSum As Single

v = Intersect(Bereich, Bereich.Parent.UsedRange)

For Each a In v
For Each b In v
sSum = a + b
If Not SummeN & ";" Like "*;" & sSum & ";*" Then
SummeN = SummeN & ";" & sSum
End If
Next
Next
SummeN = Mid$(SummeN, 2)
End Function

Bsp.-Aufruf in einer Zelle: =SummeN(B2:D2)
  Thema: CSV Dateien auslesen, trennen und transponieren mit vba 
Phelan XLPH

Antworten: 7
Aufrufe: 2783

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Aug 2012, 08:59   Titel: AW: CSV Dateien auslesen, trennen und transponieren mit vba Version: Office 2007
Hallo Sam,

hier eine etwas einfachere Variante.

Du musst den OrdnerPfad natürlich anpassen!

...und vergiss den Backslash "\" am Pfadende nicht!


Daten werden im aktiven Arbeisblatt ausgegeben.

Sub Daten_aus_CSV_Lesen_1()
Dim sPfad As String
Dim sDatei As String
Dim iFF As Integer
Dim sTmp As String
Dim i As Long
Dim k As Integer

sPfad = "D:\Test\" 'PFAD Anpassen

sDatei = Dir(sPfad & "*.csv")

Do While sDatei <> ""

iFF = FreeFile()
Open sPfad & sDatei For Input As iFF
i = i + 1: k = 0
Do While Not EOF(1)
Line Input #1, sTmp
k = k + 1
If i = 1 Then Cells(i, k) = Trim$(Split(sTmp, "=")(0))
If sTmp Like "*=*" Then Cells(i + 1, k) = T ...
  Thema: Pärchenzuordnung per VBA 
Phelan XLPH

Antworten: 25
Aufrufe: 712

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Aug 2012, 08:08   Titel: AW: Pärchenzuordnung per VBA Version: Office 2010
Hallo,

jetzt hab ich begriffen!

Steigst du hier durch?

Sub ExternerSVERWEIS()
Dim vVolllerPfad As Variant
Dim sPfad As String
Dim sDatei As String
Dim sBlatt As String
Dim sBereich As String
Dim sFormel As String


vVolllerPfad = Application.GetOpenFilename("Excel Dateien (*.xls*), *.xls*", , _
"Bitte Datei auswählen " & Environ("Username"))

If vVolllerPfad = False Then Exit Sub

'Quelldaten ermitteln ************
sDatei = Dir(vVolllerPfad)
sPfad = Replace(vVolllerPfad, sDatei, "")
sBlatt = "Tabelle1"
sBereich = "A:C"
'*********************************

With ActiveSheet.UsedRange 'ZielBlatt ANPASSEN ***********

'Formel für Spalte A ....
sFormel = "IF(ISNUMBER(MATCH(""*""&" & ...
  Thema: CSV Dateien auslesen, trennen und transponieren mit vba 
Phelan XLPH

Antworten: 7
Aufrufe: 2783

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Aug 2012, 21:27   Titel: AW: CSV Dateien auslesen, trennen und transponieren mit vba Version: Office 2007
Sub Daten_aus_CSV_Lesen()
Dim sPfad As String
Dim sDatei As String
Dim iFF As Integer
Dim lLZ As Long
Dim sTmp As String
Dim vntTmp As Variant

sPfad = "D:\Test\" 'Anpassen

sDatei = Dir(sPfad & "*.csv")

Do While sDatei <> ""
lLZ = lLZ + 1
iFF = FreeFile()
Open sPfad & sDatei For Input As iFF
sTmp = Input(LOF(iFF), iFF)
Close iFF
With WorksheetFunction
If lLZ = 1 Then
vntTmp = TextSplitten(sTmp, True)
Tabelle1.Cells(lLZ, 1).Resize(, UBound(vntTmp) + 1) = .Transpose(.Transpose(vntTmp))
lLZ = lLZ + 1
End If
vntTmp = TextSplitten(sTmp)
Tabelle1.Cells(lLZ, 1).Resize(, UBound(vntTmp) + 1) = .Transpose&# ...
  Thema: Pärchenzuordnung per VBA 
Phelan XLPH

Antworten: 25
Aufrufe: 712

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Aug 2012, 18:31   Titel: AW: Pärchenzuordnung per VBA Version: Office 2010
lad mal beispiel-datein hoch....
  Thema: Pärchenzuordnung per VBA 
Phelan XLPH

Antworten: 25
Aufrufe: 712

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Aug 2012, 18:03   Titel: AW: Pärchenzuordnung per VBA Version: Office 2010
So?

Sub ExternerSVERWEIS()
Dim vVolllerPfad As Variant
Dim sPfad As String
Dim sDatei As String
Dim sBlatt As String
Dim sBereich As String
Dim sFormel As String


vVolllerPfad = Application.GetOpenFilename("Excel Dateien (*.xls*), *.xls*", , _
"Bitte Datei auswählen " & Environ("Username"))

If vVolllerPfad = False Then Exit Sub

'Quelldaten ermitteln ************
sDatei = Dir(vVolllerPfad)
sPfad = Replace(vVolllerPfad, sDatei, "")
sBlatt = "Monate 1 - XX"
sBereich = "A:C"
'*********************************

With ActiveSheet.UsedRange 'ZielBlatt ANPASSEN ***********

'SVerweis-Formel Spalte A ....
sFormel = "IFERROR(IF(" & .Cells(1).Address(0, 0) & "="""","&qu ...
  Thema: Zählen, wieviele Zellen beschrieben sind und Zahl ausgeben 
Phelan XLPH

Antworten: 2
Aufrufe: 188

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2012, 21:40   Titel: AW: Zählen, wieviele Zellen beschrieben sind und Zahl ausgeb Version: Office 2010
verwende die ANZAHL2-Funktion.
  Thema: VBA-Konsolidierung 
Phelan XLPH

Antworten: 18
Aufrufe: 623

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2012, 18:12   Titel: AW: VBA-Konsolidierung Version: Office 2007
...

Sub Zusammenführen()
Dim i As Long
Dim vFileToOpen As Variant

vFileToOpen = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , , , True)
If Not IsArray(vFileToOpen) Then Exit Sub

For i = 1 To UBound(vFileToOpen)
With Workbooks.Open(vFileToOpen(i), 0, True)
If i = 1 Then .Worksheets(1).Rows(1).Copy Tabelle1.Cells(1)
.Worksheets(1).UsedRange.Offset(1).Copy _
Tabelle1.Cells(Tabelle1.Rows.Count, 1).End(xlUp).Offset(1)
.Close False
End With
Next
End Sub
  Thema: VBA-Konsolidierung 
Phelan XLPH

Antworten: 18
Aufrufe: 623

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2012, 17:18   Titel: AW: VBA-Konsolidierung Version: Office 2007
Und wie heißt jeweils das eine Blatt?
  Thema: Pärchenzuordnung per VBA 
Phelan XLPH

Antworten: 25
Aufrufe: 712

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2012, 16:55   Titel: AW: Pärchenzuordnung per VBA Version: Office 2010
Hallo Sascha,

so richtig verstanden habe ich das mit der 6-stell. Zahl aus SpalteD nicht
verstanden. Was soll noch verglichen werden, was erhält den Vorzug und
was soll zurückgegeben werden???
  Thema: String suchen, Variable draus machen und bearbeitet ausgeben 
Phelan XLPH

Antworten: 2
Aufrufe: 132

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2012, 16:40   Titel: AW: String suchen, Variable draus machen und bearbeitet ausg Version: Office 2011 (Mac)
Function ErsetzenSpezial(s)
Dim ar, i As Long, sTmp As String
ar = Split(s, "|")
For i = 0 To UBound(ar)
If ar(i) Like "_*?_" Then
sTmp = Replace(ar(i), "_", "")
sTmp = "^" & sTmp & "[^\-^\w^ß-ü]{1}|[^\-^ \w^ß-ü]{1}" & sTmp & _
"[^\-^\w^ß-ü]{1}|[^\-^ \w^ß-ü]{1}" & sTmp & "$|^" & sTmp & "$"
ar(i) = sTmp
End If
Next
ErsetzenSpezial = Join(ar, "|")
End Function

Bsp-Aufruf in einer Zelle: =ErsetzenSpezial(B3)
  Thema: Zeilen löschen wenn Zellen aus 2 Spalten leer sind 
Phelan XLPH

Antworten: 12
Aufrufe: 405

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2012, 13:44   Titel: AW: Zeilen löschen wenn Zellen aus 2 Spalten leer sind Version: Office 2010
Dann beschreib nochmals genau was das Makro machen soll.
 
Seite 133 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 130, 131, 132, 133, 134, 135, 136 ... 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 Project