Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 271 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 268, 269, 270, 271, 272, 273, 274 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: .txt bzw. .sta in Excel einlesen und sortieren 
Phelan XLPH

Antworten: 27
Aufrufe: 1773

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2011, 16:39   Titel: AW: .txt bzw. .sta in Excel einlesen und sortieren Version: Office 2003
Warum bekomme ich dann fünfer Blöcke.

Ich habe die von dir gepsoteten Daten genommen und bei mir tuts.
  Thema: Bedingte Formatierung mit 6 Bedingungen funkt nicht... (VBA) 
Phelan XLPH

Antworten: 5
Aufrufe: 277

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2011, 16:36   Titel: AW: Bedingte Formatierung mit 6 Bedingungen funkt nicht... ( Version: Office 2003
ins codefenster der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngC As Range, intFarbIdx As Integer
If Not Intersect(Target, Range("D23:D91")) Is Nothing Then
For Each rngC In Intersect(Target, Range("D23:D91"))
If rngC.Value = "" Then
intFarbIdx = xlColorIndexNone
Else
Select Case rngC.Value
' rot
Case Is <= -0.11: intFarbIdx = 3
' gelb
Case Is < -0.05: intFarbIdx = 6
' grün
Case Is < 0.11: intFarbIdx = 4
' hellgelb
Case Is <= 0.25: intFarbIdx = 36
' orange
Case Else: intFarbIdx = 45
End Select
End If
rngC.Interior.ColorIndex ...
  Thema: Sortieren funktioniert nicht mittels VBA 
Phelan XLPH

Antworten: 5
Aufrufe: 672

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2011, 16:17   Titel: AW: Sortieren funktioniert nicht mittels VBA Version: Office 2007
Key1:=Range("Q9")
  Thema: Buchstaben löschen aus einer Buchstaben-Zahlenkombination 
Phelan XLPH

Antworten: 5
Aufrufe: 665

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2011, 16:11   Titel: AW: Buchstaben löschen aus einer Buchstaben-Zahlenkombinatio Version: Office 2003
Du bist im EXCEL-Forum
  Thema: .txt bzw. .sta in Excel einlesen und sortieren 
Phelan XLPH

Antworten: 27
Aufrufe: 1773

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2011, 16:08   Titel: AW: .txt bzw. .sta in Excel einlesen und sortieren Version: Office 2003
ist schon alles berücksichtigt.

nimm eine neue datei und teste einfach mal beide codes.
  Thema: Zellinhalte per Makro horizontal verschieben 
Phelan XLPH

Antworten: 13
Aufrufe: 467

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2011, 16:01   Titel: AW: Zellinhalte per Makro horizontal verschieben Version: Office XP (2002)
Hoffentlich wird kein Shape markiert.
  Thema: Mehrere CSV-Dateien in eine Excel-Datei per VBA 
Phelan XLPH

Antworten: 39
Aufrufe: 3502

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2011, 15:59   Titel: AW: Mehrere CSV-Dateien in eine Excel-Datei per VBA Version: Office 2007
@Spotzal

berichtige folgende Zeile:
Call ClpSchreiben(Replace(Input(LOF(intFN), #intFN),";",vbTab))

Dass er 40 zusätzliche Zeilen schreibt kann ich nicht nachvollziehen.

Habs bei mir getestet, hat funktioniert.

@FriedrichW
Das mit der Dateiendung hatte ich direkt geändert. Hatte mir schon gedacht, dass Du den Code nicht direkt für mich gemacht hattest (kann ja keiner erwarten), sondern einen bestehenden für mich angepasst hast.

Da liegst du falsch.

Postet doch beide einen teil der CSV, oder ladet die Datei irgendwo hoch.
  Thema: .txt bzw. .sta in Excel einlesen und sortieren 
Phelan XLPH

Antworten: 27
Aufrufe: 1773

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2011, 15:50   Titel: AW: .txt bzw. .sta in Excel einlesen und sortieren Version: Office 2003
Irgendwie passt das nicht... teste mal beide.

Sub poco_2()

Dim strPfad As String
Dim strDateiname As String
Dim intFN As Integer
Dim lngZeilenZähler As Long
Dim intSpaltenZähler As Long
Dim lngLetzteZeile As Long
Dim arDaten() As Variant
Dim strTmp As String
Dim arZeilen As Variant
Dim arElement As Variant
Dim lngZeilenZählerDaten As Long
Dim lngBlockZahl As Long
Dim blnZeilenSchieben As Boolean


strPfad = "D:\Test\aali.txt" 'Anpassen **********


intFN = FreeFile
Open strPfad & strDateiname For Input As #intFN
strTmp = Input(LOF(intFN), #intFN)
Close #intFN

lngBlockZahl = 1
blnZeilenSchieben = True
ReDim Preserve arDaten(1 To 50, 1 To lngBlockZahl)

arZeilen = Split(strTmp ...
  Thema: .txt bzw. .sta in Excel einlesen und sortieren 
Phelan XLPH

Antworten: 27
Aufrufe: 1773

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2011, 15:41   Titel: AW: .txt bzw. .sta in Excel einlesen und sortieren Version: Office 2003
In der ersten Datei ist di Anordungn aber anders? Hat mich auch gewundert?!!!
  Thema: .txt bzw. .sta in Excel einlesen und sortieren 
Phelan XLPH

Antworten: 27
Aufrufe: 1773

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2011, 13:51   Titel: AW: .txt bzw. .sta in Excel einlesen und sortieren Version: Office 2003
Die anordnung 2x5-Blöcke hast du einfach so gewählt. Steckt also keine
besonderer Grund hinter?!

EDIT: habs jetzt.

schreib mal die Überschriften dazu (X,Y,Z,WID, usw.)
  Thema: Mehrere CSV-Dateien in eine Excel-Datei per VBA 
Phelan XLPH

Antworten: 39
Aufrufe: 3502

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2011, 13:48   Titel: AW: Mehrere CSV-Dateien in eine Excel-Datei per VBA Version: Office 2007
AN beide.

Das muss statt "*.txt" so heißen: "*.csv"
  Thema: Mehrere CSV-Dateien in eine Excel-Datei per VBA 
Phelan XLPH

Antworten: 39
Aufrufe: 3502

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2011, 13:45   Titel: AW: Mehrere CSV-Dateien in eine Excel-Datei per VBA Version: Office 2007
@FriedrichW

arDaten(lngZähler) = Split(Split(Input(LOF(intFN), #intFN), vbNewLine)(0), vbTab)(0)
  Thema: Zellinhalte per Makro horizontal verschieben 
Phelan XLPH

Antworten: 13
Aufrufe: 467

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2011, 13:38   Titel: AW: Zellinhalte per Makro horizontal verschieben Version: Office XP (2002)
Sub rechts()
Dim rngC As Range
Dim vntHilf(2) As Variant
With ActiveWindow.RangeSelection
If .EntireColumn.Column < .Parent.Columns.Count Then
For Each rngC In .Cells
vntHilf(0) = rngC.Next.Interior.ColorIndex
vntHilf(1) = rngC.Next.Value
rngC.Next.Interior.ColorIndex = rngC.Interior.ColorIndex
rngC.Next.Value = rngC.Value
rngC.Interior.ColorIndex = vntHilf(0)
rngC.Value = vntHilf(1)
Next
.Offset(, 1).Select
End If
End With
End Sub

Sub links()
Dim rngC As Range
Dim vntHilf(2) As Variant
With ActiveWindow.RangeSelection
If .EntireColumn.Column > 1 Then
For Each rngC In .Cells
vntHilf(0) = rngC.Previous.Interior.ColorIndex
vntHilf(1) = rngC.Prev ...
  Thema: Code für Copy and Paste 
Phelan XLPH

Antworten: 10
Aufrufe: 384

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2011, 12:44   Titel: AW: Code für Copy and Paste Version: Office 2007
With Sheets("Tabelle1")
Intersect(.Range(.Cells(12, 2), .Range("B12").End(xlDown)).Resize(, .Columns.Count - 1), .UsedRange).Copy Sheets("Tabelle2").Range("S4")
End With
  Thema: .txt bzw. .sta in Excel einlesen und sortieren 
Phelan XLPH

Antworten: 27
Aufrufe: 1773

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Apr 2011, 12:39   Titel: AW: .txt bzw. .sta in Excel einlesen und sortieren Version: Office 2003
Auf was bezieht sich jetzt das Ergebnis? Sind die X(Y,Z,...)-abhängig?
 
Seite 271 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 268, 269, 270, 271, 272, 273, 274 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS