Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 433 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 430, 431, 432, 433, 434, 435, 436 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Syntax Sammlung 
Phelan XLPH

Antworten: 10
Aufrufe: 1139

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Aug 2010, 16:08   Titel: AW: Syntax Sammlung Version: Office 2010
With Tabelle1
Intersect(.Range(.Rows(4), .UsedRange.Find("*", , , , xlByRows, xlPrevious).EntireRow), .Range("A:A,C:P")).Copy _
Tabelle2.Cells(Rows.Count, 1).End(xlUp).Offset(1)
End With
  Thema: Listbox befüllen 
Phelan XLPH

Antworten: 9
Aufrufe: 519

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Aug 2010, 15:50   Titel: AW: Listbox befüllen Version: Office 2007
Dim Daten(0 To 500, 14) As Variant
rotmarkiertes streichen.
  Thema: Syntax Sammlung 
Phelan XLPH

Antworten: 10
Aufrufe: 1139

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Aug 2010, 15:48   Titel: AW: Syntax Sammlung Version: Office 2010
Was vertshst du hier nicht?
Stellt eine Zelle, eine Zeile, eine Spalte, eine Auswahl von Zellen aus einem oder mehreren zusammenhängenden Zellblöcken oder einen 3D-Bereich dar.

3D-Bereich?! Ich weiß nicht ob ich schon mal damit gearbeitet hab.
  Thema: VBA 2007 in VBA 2003 
Phelan XLPH

Antworten: 2
Aufrufe: 203

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Aug 2010, 15:11   Titel: AW: VBA 2007 in VBA 2003 Version: Office 2007
In VBA gibts keine großen Unterschiede.

Was in 2007 nicht läuft ist das FileSearch, das mir und hier im Forum einigen
aufgefallen ist. Sonst musst du noch bei der Formatierung (Farben) acht geben
denn die Farbpalette ist größer geworden.

Testen kannst du das ganze indem du eine in 2007 erstellte Datei als 2003
speicherts. Poppt eine Kompabilitätsmeldung auf so wurden 2007-erweiterte
Eigenschaften gesetzt die 2003 nicht versteht. Welche diese sind wird
in der Meldung angezeigt.
  Thema: gruppierung auf- bzw. zuklappen 
Phelan XLPH

Antworten: 11
Aufrufe: 2691

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Aug 2010, 14:49   Titel: AW: gruppierung auf- bzw. zuklappen Version: Office 2003
Hallo,

so?
  Thema: Daten (numerisch) in nächste zeile kopieren erweitern 
Phelan XLPH

Antworten: 4
Aufrufe: 297

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Aug 2010, 10:48   Titel: AW: Daten (numerisch) in nächste zeile kopieren erweitern Version: Office 2007
Hallo Klemmi,

Sub ph()
Dim arr As Variant
Dim arrOut() As Variant
Dim i As Long, m As Long
Dim k As Long
Dim Ebene As Long
Dim merk As Long


With Tabelle1 'Anpassen
Ebene = Application.InputBox("Bitte max. Ebene eingeben:", _
"Ebenen hinzufügen", WorksheetFunction.Max(.Range("B:B")), , , , , 1)
If Ebene = 0 Then Exit Sub
arr = Intersect(.UsedRange, .Range("A:B"))
End With

For i = 1 To UBound(arr)
If IsNumeric(arr(i, 1)) Then
If IsNumeric(arr(i, 2)) Then
If merk < 6 And merk > arr(i, 2) Then
For k = merk + 1 To Ebene
m = m + 1
ReDim Preserve arrOut(1 To 2, 1 To m)
arrOut(1, m ...
  Thema: Meldung, wenn mehr als 100 % 
Phelan XLPH

Antworten: 3
Aufrufe: 199

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Aug 2010, 07:24   Titel: AW: Meldung, wenn mehr als 100 % Version: Office 2010
Hallo,

in SpalteI steht die Formel.
  Thema: Nullen suchen, dann Zeilen löschen 
Phelan XLPH

Antworten: 32
Aufrufe: 1201

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Aug 2010, 07:10   Titel: AW: Nullen suchen, dann Zeilen löschen Version: Office XP (2002)
Hallo U.B.,

an welcdher Stelle denn?
  Thema: Nullen suchen, dann Zeilen löschen 
Phelan XLPH

Antworten: 32
Aufrufe: 1201

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Aug 2010, 00:53   Titel: AW: Nullen suchen, dann Zeilen löschen Version: Office XP (2002)
Teste mal...Pfad muss noch angepasst werden:

Sub Import_gefiltert()
Dim txt As String
Dim i As Long, m As Long
Dim arrZ As Variant
Dim arrTmp() As Variant
Dim Pfad As String

Dim t As Single

t = Timer
On Error GoTo ENDE

Application.ScreenUpdating = False

Pfad = "D:\test\xxx.txt" 'Anpassen

Open Pfad For Input As #1
txt = Input(LOF(1), #1)
Close #1

arrZ = Split(txt, vbCrLf)
For i = LBound(arrZ) To UBound(arrZ)
If m >= 65536 Then
Call Ausgabe(arrTmp)
Erase arrTmp
m = 0
End If
If arrZ(i) <> "" Then
If CDbl(Mid$(arrZ(i), 35, 5)) <> 0 Then
m = m + 1
ReDim Preserve arrTmp(1 To 1, 1 To m)
arrTmp(1, m) ...
  Thema: Nullen suchen, dann Zeilen löschen 
Phelan XLPH

Antworten: 32
Aufrufe: 1201

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Aug 2010, 22:26   Titel: AW: Nullen suchen, dann Zeilen löschen Version: Office XP (2002)
Da musst du mir einen kleinen Auszug der Text-Datei zeigen, damit ich
sehe welche Art der Daten (Text,Zahlen,Datum) und der Aufbau dieser ist.

Verfremde die Daten falls sie nicht für die Öffentlichkeit bestimmt sind.
  Thema: Nullen suchen, dann Zeilen löschen 
Phelan XLPH

Antworten: 32
Aufrufe: 1201

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Aug 2010, 22:03   Titel: AW: Nullen suchen, dann Zeilen löschen Version: Office XP (2002)
Hallo U.B,

da sollten wir das Übel an der Wurzel packen.

Wieso filterst du die Zeilen mit '0' in Spalte6 während des Einlesens der Text-Datei
nicht aus und legst die restliche Daten in eine Excel-Tabelle ab?
  Thema: Datenüberprüfung - Liste immer auf Anfang setzen 
Phelan XLPH

Antworten: 6
Aufrufe: 1157

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Aug 2010, 20:47   Titel: AW: Datenüberprüfung - Liste immer auf Anfang setzen Version: Office 2010
so?
  Thema: Textbox-Zeilen an Zellen des Tabellenblattes anpassen 
Phelan XLPH

Antworten: 2
Aufrufe: 690

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Aug 2010, 20:02   Titel: AW: Textbox-Zeilen an Zellen des Tabellenblattes anpassen Version: Office 2k (2000)
Hallo,

während Verschieben der TextBox die ALT-Taste gedrückt halten.
  Thema: Sortieren ohne Leerzeilen als Makro 
Phelan XLPH

Antworten: 13
Aufrufe: 1289

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Aug 2010, 19:49   Titel: AW: Sortieren ohne Leerzeilen als Makro Version: Office 2007
Klar due hast ja auch Formeln und keine Festwerte.

Was für Werte hast du in SpalteB? ...Zahlen? ...Zeichenketten? oder...?!
  Thema: Nullen suchen, dann Zeilen löschen 
Phelan XLPH

Antworten: 32
Aufrufe: 1201

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Aug 2010, 19:41   Titel: AW: Nullen suchen, dann Zeilen löschen Version: Office XP (2002)
Hallo,

mit Formel:

Sub ph_Loeschen()
With Tabelle1.UsedRange 'Tabelle Anpassen
With .Columns(.Columns.Count).Offset(, 1)
.Formula = "=IF(AND(OR(F1=0,F1=""0""),F1<>""""),1,"""")"
.Copy
.PasteSpecial xlPasteValues
.EntireRow.Sort .Cells(1), xlAscending, Header:=xlNo
.SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Delete
.ClearContents
End With
End With
End Sub

Urheber des Algorithmus ist Slowboarder.
 
Seite 433 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 430, 431, 432, 433, 434, 435, 436 ... 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