Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 651 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 648, 649, 650, 651, 652, 653, 654 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Microsoft Makro: LargeFileImport 
Phelan XLPH

Antworten: 10
Aufrufe: 607

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Apr 2009, 14:53   Titel: AW: Microsoft Makro: LargeFileImport Version: Office XP (2002)
Hallo,

ins StandardModul:
Sub OpenTextFileImport()
Dim fs As Object, f As Object
Dim TxT As String, i As Long, k As Long, m As Long
Dim arrZ As Variant, arrS As Variant, arrOut() As Variant
Dim t As Double, SpaltenAnz As Integer, ZeilenAnz As Long

On Error GoTo FEHLER

t = Timer
ZeilenAnz = 65536 '***ZeilenAnzahl pro Blatt***65536=GesamtZeilen ANPASSEN

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("D:\test\a100.txt", 1, False, 0)
TxT = f.ReadAll
f.Close

arrZ = Split(TxT, vbCrLf)

'Maximale ZeilenAnzahl ermitteln
If ZeilenAnz > UBound(arrZ) Then ZeilenAnz = UBound(arrZ)

'Maximale SpaltenAnzahl ermitteln
For i = 0 To UBound(arrZ)
arrS = Split(arrZ(i), ";")
If UBound(arrS) > SpaltenAnz Then
...
  Thema: Fehlermeldung: Laufzeitfehler 13, Typen unverträglich 
Phelan XLPH

Antworten: 15
Aufrufe: 837

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Apr 2009, 12:41   Titel: AW: Fehlermeldung: Laufzeitfehler 13, Typen unverträglich Version: Office 2003
...ja eigentlich logisch Smile
  Thema: vbComponents(ActiveSheet.Name).CodeModule - Problem 
Phelan XLPH

Antworten: 18
Aufrufe: 5611

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Apr 2009, 12:39   Titel: AW: vbComponents(ActiveSheet.Name).CodeModule - Problem Version: Office XP (2002)
Hallo,

selbst die Profs, wie ich das hier mitbekommen habe, versuchen es zu
vermeiden Code durch Code zu erzeugen oder zu ändern, grad weils nicht
ganz zuverlässig ist.

Aber ich lasse mich gerne eines besseren Belehren.
  Thema: Makro Zeilen ausblenden 
Phelan XLPH

Antworten: 4
Aufrufe: 206

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Apr 2009, 11:38   Titel: AW: Makro Zeilen ausblenden Version: Office 2007
Hallo,

test das hier mal:

Sub Zeile_Frachtkosten_ausblenden()
Sheets("Frachtkosten mit Menge").Select
Dim i As Integer
Dim rngF As Range
Application.ScreenUpdating = False
For i = 2 To 2000
Set rngF = Range("L" & i & ":O" & i).Find("Kein Wert")
If Not rngF Is Nothing Then Rows(i).Hidden = True
Next
Application.ScreenUpdating = True
End Sub
  Thema: Microsoft Makro: LargeFileImport 
Phelan XLPH

Antworten: 10
Aufrufe: 607

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Apr 2009, 11:21   Titel: AW: Microsoft Makro: LargeFileImport Version: Office XP (2002)
Hallo, und wieviele Spalten hast du?...oder variieren die?
  Thema: Variabeln (int) in einem Schritt deklarieren/initialisieren 
Phelan XLPH

Antworten: 4
Aufrufe: 5492

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Apr 2009, 11:18   Titel: AW: Variabeln (int) in einem Schritt deklarieren/initialisie Version: Office 2003
Das geht nur mit Konstanten:

Const a=3
  Thema: Listbox Werte in Tabelle schreiben 
Phelan XLPH

Antworten: 21
Aufrufe: 6428

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Apr 2009, 11:08   Titel: AW: Listbox Werte in Tabelle schreiben Version: Office XP (2002)
die FreiSchaltung dauert nicht lange.
  Thema: Userform: Einfärben von 12 Schaltflächen 
Phelan XLPH

Antworten: 5
Aufrufe: 308

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Apr 2009, 10:58   Titel: AW: Userform: Einfärben von 12 Schaltflächen Version: Office 2003
Ok in einer Userform...habs überlesen...
  Thema: Tabellenblätter durchsuchen 
Phelan XLPH

Antworten: 3
Aufrufe: 249

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Apr 2009, 10:50   Titel: AW: Tabellenblätter durchsuchen Version: Office 2003
...lad ne Bsp-Datei hoch!
  Thema: Werte einer Spalte in andere "zuordnen" 
Phelan XLPH

Antworten: 8
Aufrufe: 326

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Apr 2009, 10:47   Titel: AW: Werte einer Spalte in andere "zuordnen" Version: Office 2003
Hallo Sina 40.. tritt doch öfters auf soll dann immer nur der Wert beim ersten
Auftritt kopiert werden?
  Thema: Listbox Werte in Tabelle schreiben 
Phelan XLPH

Antworten: 21
Aufrufe: 6428

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Apr 2009, 10:40   Titel: AW: Listbox Werte in Tabelle schreiben Version: Office XP (2002)
Lad ne Bsp-Datei hoch! um alles nachzubauen hab ich keine Zeit und keine Lust Confused 8)
  Thema: Formatierung nach Verknüpfung 
Phelan XLPH

Antworten: 7
Aufrufe: 327

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Apr 2009, 10:14   Titel: AW: Formatierung nach Verknüpfung Version: Office 2007
Hallo,

teste das mal:

Sub TeilStringKursivSetzen()
Dim zell As Range
Dim strS As String

For Each zell In Range("H1", Range("H" & Rows.Count).End(xlUp))
If zell <> "" Then
zell.Offset(0, 1).Value = zell.Value
strS = Range("B" & zell.Row).Text & _
Range("C" & zell.Row).Text & _
Range("G" & zell.Row).Text
zell.Offset(0, 1).Characters(Start:=Len(strS) + 7).Font.FontStyle = "Kursiv"
End If
Next
End Sub
  Thema: Userform: Einfärben von 12 Schaltflächen 
Phelan XLPH

Antworten: 5
Aufrufe: 308

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Apr 2009, 09:43   Titel: AW: Userform: Einfärben von 12 Schaltflächen Version: Office 2003
Hallo,

dazu betnötigst du ne Klasse.

Schau dir das an, wenns die nicht zu komplex ist.
  Thema: Wert ermitteln, Spalten vergleichen 
Phelan XLPH

Antworten: 2
Aufrufe: 199

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Apr 2009, 09:34   Titel: AW: Wert ermitteln, Spalten vergleichen Version: Office 2003
zu ungenau!!!!!!!!!!!!

Wie soll ich "Schottland" mit "Zap" vergleichen?????
  Thema: suchen ersetzen vba 
Phelan XLPH

Antworten: 2
Aufrufe: 646

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Apr 2009, 09:29   Titel: AW: suchen ersetzen vba Version: Office 2007
Pitte:

Sub ZeichenErsetzen()
Dim zell As Range
Range("A:A").Replace "_", " ", , , True
Range("A:A").Replace "AT ", "", , , True

For Each zell In Range("A:A").ColumnDifferences(Range("A" & Rows.Count))
zell = "AT " & zell
Next
End Sub
 
Seite 651 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 648, 649, 650, 651, 652, 653, 654 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen