Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 378 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 375, 376, 377, 378, 379, 380, 381 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Probleme mit "Unterklasse" 
Phelan XLPH

Antworten: 14
Aufrufe: 299

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Nov 2010, 23:03   Titel: AW: Probleme mit "Unterklasse" Version: Office 2003
Vielen Dank meine LIEBE! Cool

...das leuchtet ein, die Synthax ist mir noch unklar (friendly), aber das bekomm ich
schon hin Very Happy
  Thema: Werte anhand Matrix ermitteln 
Phelan XLPH

Antworten: 9
Aufrufe: 314

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Nov 2010, 23:00   Titel: AW: Werte anhand Matrix ermitteln Version: Office 2003
Dennoch befinden sich laut deinem Bespiel beide Fehler in
verschiedenen Klassen, wie soll darauf reagiert werden?
  Thema: Probleme mit "Unterklasse" 
Phelan XLPH

Antworten: 14
Aufrufe: 299

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Nov 2010, 22:47   Titel: AW: Probleme mit "Unterklasse" Version: Office 2003
@isabelle

wieso funktioniert das hier nicht, wenn pzahl auf public gesetzt wird

Dim sup As New clsPotenz


Public Function Hoch2() As Long
Hoch2 = sup.pZahl ^ 2
End Function


Public Function Hoch3() As Long
Hoch3 = sup.pZahl ^ 3
End Function
  Thema: Werte anhand Matrix ermitteln 
Phelan XLPH

Antworten: 9
Aufrufe: 314

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Nov 2010, 22:06   Titel: AW: Werte anhand Matrix ermitteln Version: Office 2003
Gibts auch die Konstellation dass
Fehler 1 = 3000 u.
Fehler2 = 500000

welcher Fehlerklasser wird diese Konstellation zugeschrieben?

Falls nicht lässt sich dass sehr einfach mit SVerweis lösen.
  Thema: Tabelle in Zeilenblöcke durch einf. v. Leerzeil. zerlegen 
Phelan XLPH

Antworten: 10
Aufrufe: 212

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Nov 2010, 21:55   Titel: AW: Tabelle in Zeilenblöcke durch einf. v. Leerzeil. zerlege Version: Office 2007
Hallo,

Sub ph()
Dim i As Long
Dim ar As Variant
With Tabelle1.UsedRange
With .Columns(.Columns.Count).Offset(1, 1)
.Formula = "=IF(B1<>B2,Row(),"""")"
ar = WorksheetFunction.Transpose(.Value)
.ClearContents
End With
End With
Application.ScreenUpdating = False
For i = UBound(ar) To 1 Step -1
If ar(i) <> "" Then Tabelle1.Rows(ar(i)).Insert
Next
Application.ScreenUpdating = True
End Sub
  Thema: Formatierung der Textdatei beim importieren ändern 
Phelan XLPH

Antworten: 6
Aufrufe: 269

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Nov 2010, 21:25   Titel: AW: Formatierung der Textdatei beim importieren ändern Version: Office 2007
Hallo,

versuchs mal hiermit:

Sub Input_Files_From_Path()

Dim strPfad As String
Dim strDatei As String
Dim intFF As Integer
Dim strText As String
Dim lngI As Long
Dim wks As Worksheet

Set wks = Worksheets("Ergebnis") 'Anpassen ***********
strPfad = "d:\test\" 'Anpassen ***********
strDatei = Dir(strPfad & "T*.txt") 'Anpassen ***********

Do While strDatei <> ""
intFF = FreeFile()
Open strPfad & strDatei For Input As #intFF
strText = Input(LOF(1), #intFF)
Close #intFF

WriteToClp strText

With wks
.Paste .Cells(Rows.Count, 1).End(xlUp).Offset(2)
End With

strDatei = Dir()
Loop

With wks
With .Columns(1).ColumnDifferences(.Cells(1)).Areas
For lngI = 2 To .Count Step 2
...
  Thema: Ideen für Erstellung Reporting gesucht 
Phelan XLPH

Antworten: 4
Aufrufe: 262

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Nov 2010, 20:44   Titel: AW: Ideen für Erstellung Reporting gesucht Version: Office 2007
Iallo Stoxx,
  Thema: Range festlegen 
Phelan XLPH

Antworten: 4
Aufrufe: 465

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Nov 2010, 20:06   Titel: AW: Range festlegen Version: Office 2003
Hier mal 2 Varianten:

Sub Variante_Gelb()
Union(Range(Cells(3, 1), Cells(8, 2)), Range(Cells(10, 1), Cells(15, 2)), Cells(17, 1)).Interior.ColorIndex = 6
End Sub

Sub Variante_Rot()
Intersect(Union(Rows("3:8"), Rows("10:15"), Cells(17, 1)), Range("A:B")).Interior.ColorIndex = 3
End Sub
  Thema: abhängige ComboBoxen 
Phelan XLPH

Antworten: 22
Aufrufe: 2079

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Nov 2010, 19:58   Titel: AW: abhängige ComboBoxen Version: Office 2003
@schrimp

welch genialer Code, könnte glatt von mir stammen. Very Happy Cool
  Thema: VBA mich SearchEngine 
Phelan XLPH

Antworten: 6
Aufrufe: 171

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Nov 2010, 19:04   Titel: AW: VBA mich SearchEngine Version: Office 2010
Gibts FileSearch in 2010 wieder oder was?
  Thema: Range festlegen 
Phelan XLPH

Antworten: 4
Aufrufe: 465

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Nov 2010, 19:02   Titel: AW: Range festlegen Version: Office 2003
Union(Cells(3, 1), Cells (8, 2), Cells(10, 1), Cells(15, 2), Cells(17, 1)).Select
  Thema: Formatierung der Textdatei beim importieren ändern 
Phelan XLPH

Antworten: 6
Aufrufe: 269

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Nov 2010, 18:53   Titel: AW: Formatierung der Textdatei beim importieren ändern Version: Office 2007
Dann stelle einen teil der textdatei hier rein, damit ich sehe wie sie aufgebaut ist,
und gib an welche spalte/n eingelesen werden sollen.
  Thema: Formatierung der Textdatei beim importieren ändern 
Phelan XLPH

Antworten: 6
Aufrufe: 269

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Nov 2010, 13:57   Titel: AW: Formatierung der Textdatei beim importieren ändern Version: Office 2007
Hallo,

sieht ganz nach meiner Handschrift aus Cool

versuchs hiermit:
Sub Input_Files_From_Path()

Dim strPfad As String
Dim strDatei As String
Dim intFF As Integer
Dim strText As String
Dim arrZ As Variant
Dim lngI As Long
Dim arrOut() As Variant
Dim wks As Worksheet
Dim lngZeile As Long

Set wks = Worksheets("Ergebnis") 'Anpassen ***********
strPfad = Worksheets("Auswahl").Range("I9") 'Anpassen ***********
strDatei = Dir(strPfad & "*.txt") 'Anpassen ***********

Do While strDatei <> ""
intFF = FreeFile()
Open strPfad & strDatei For Input As #intFF
strText = Input(LOF(1), #intFF)
Close #intFF

arrZ = Split(strText, vbCrLf)
ReDim arrOut(1 To UBound(arrZ) + 1)
F ...
  Thema: Ideen für Erstellung Reporting gesucht 
Phelan XLPH

Antworten: 4
Aufrufe: 262

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Nov 2010, 13:45   Titel: AW: Ideen für Erstellung Reporting gesucht Version: Office 2007
Hallo,

schau dir das mal an
  Thema: Listbox befüllen funktioniert nicht 
Phelan XLPH

Antworten: 16
Aufrufe: 1684

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Nov 2010, 12:55   Titel: AW: Listbox befüllen funktioniert nicht Version: Office 2003
Die Antwort wurde schon gegeben Confused !

loletzte > 0 sein um nicht in einen Fehler zu laufen
 
Seite 378 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 375, 376, 377, 378, 379, 380, 381 ... 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 Diagramme