Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 544 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 541, 542, 543, 544, 545, 546, 547 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Makro: Zeilen loeschen in denen nicht... 
Phelan XLPH

Antworten: 7
Aufrufe: 315

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2009, 07:09   Titel: AW: Makro: Zeilen loeschen in denen nicht... Version: OpenOffice/StarOffice
Ob das mit OpenOffice geht?

Sub x()
Dim Suchwerte As Variant
Dim rngBereich As Range
Dim rngF As Range
Dim rngDel As Range
Dim i As Integer

Suchwerte = Array("Peter", "Alex") 'Erweiterbar

Set rngBereich = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)


With rngBereich
'.Sort .Cells(1)
For i = 0 To UBound(Suchwerte)
Set rngF = .Find(Suchwerte(i), , xlValues, xlWhole)
If Not rngF Is Nothing Then
If rngDel Is Nothing Then
Set rngDel = .ColumnDifferences(rngF)
Else
Set rngDel = Intersect(rngDel, .ColumnDifferences(rngF))
End If
End If
Next
End With

If Not rngDel Is Nothing Then _
rngDel.EntireRow.Delete
End Sub
  Thema: Daten sortieren mit mehr als 3 Kriterien ??? 
Phelan XLPH

Antworten: 26
Aufrufe: 2665

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2009, 06:18   Titel: AW: Daten sortieren mit mehr als 3 Kriterien ??? Version: Office XP (2002)
Hallo Peter,

das kann ich dir leider auch nicht sagen, aber vielleicht willst du
versuchen es nachzubilden.

Code in Modul2 ist nicht relevant (BeispielCode).

Hier der Code in der Userform:
Option Explicit

Private Bereich As Range

Private Sub cmdUebernehmen_Click()
Dim arr As Variant
Dim i As Integer

If ComboBox1.ListIndex = -1 Then Exit Sub

arr = ListBox1.Column

If UBound(arr, 2) = -1 Then
arr = Array(ComboBox1.Value, ComboBox2.Value)
Else
ReDim Preserve arr(0 To 1, 0 To UBound(arr, 2) + 1)
arr(0, UBound(arr, 2)) = ComboBox1.Value
arr(1, UBound(arr, 2)) = ComboBox2.Value
End If
ListBox1.Column = arr

ComboBox1.RemoveItem ComboBox1.ListIndex
If ComboBox1.ListCount = 0 Then
ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox1.Locked = True
...
  Thema: Zahl von Punkt auf richtigen Wert ändern 
Phelan XLPH

Antworten: 2
Aufrufe: 321

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Sep 2009, 17:58   Titel: AW: Zahl von Punkt auf richtigen Wert ändern Version: Office 2003
Sub Zahlenformatieren()
Dim rng As Range, arr As Variant
Dim i As Long, x As Variant

Set rng = Range("E2:E" & Cells(Rows.Count, 5).End(xlUp).Row)
arr = rng
For i = 1 To UBound(arr)
x = arr(i, 1)
If x <> "" Then _
If IsNumeric(x) And _
Not IsDate(x) Then _
If InStr(x, ".") > 0 Then _
arr(i, 1) = Val(x) * 1000
Next
rng = arr
End Sub
  Thema: ComboBox 
Phelan XLPH

Antworten: 4
Aufrufe: 262

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Sep 2009, 14:47   Titel: AW: ComboBox Version: Office XP (2002)
Private Sub ComboBox1_Change()
Variante1
'Variante2
End Sub

Sub Variante1()
Range("B1") = ComboBox1.ListIndex + 1
End Sub

Sub Variante2()
Dim datum As String
datum = "01." & ComboBox1.Value & " 2009"
If IsDate(datum) Then
Range("B1") = Month(DateValue(datum))
End If
End Sub
  Thema: Zufallszahl 
Phelan XLPH

Antworten: 5
Aufrufe: 430

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Sep 2009, 23:37   Titel: AW: Zufallszahl Version: Office 2003
Sub ZuafaalllPlus()
Dim i As Integer, h As Variant
Dim pos As Integer, arr As Variant
Dim zell As Range, vorkommen As Integer

vorkommen = 2 'Anpassen

ReDim arr(1 To 9 * vorkommen)
For i = 1 To UBound(arr)
pos = pos + 1
arr(i) = pos
If pos = 9 Then pos = 1
Next

For i = 1 To UBound(arr)
Randomize
pos = Int(UBound(arr) * Rnd + 1)
h = arr(i)
arr(i) = arr(pos)
arr(pos) = h
Next

i = 0
For Each zell In Range("A1:C3")
i = i + 1
zell = arr(i)
Next
End Sub
  Thema: Zufallszahl 
Phelan XLPH

Antworten: 5
Aufrufe: 430

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Sep 2009, 20:49   Titel: AW: Zufallszahl Version: Office 2003
Sub Zuafaalll()
Dim i As Integer, h As Variant
Dim pos As Integer, arr As Variant
Dim zell As Range

arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)

For i = 0 To 8
Randomize
pos = Int(8 * Rnd)
h = arr(i)
arr(i) = arr(pos)
arr(pos) = h
Next

i = 0
For Each zell In Range("A1:C3")
zell = arr(i)
i = i + 1
Next
End Sub
  Thema: Gruppierung und AutoFilter global freigeben 
Phelan XLPH

Antworten: 3
Aufrufe: 734

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Sep 2009, 17:46   Titel: AW: Gruppierung und AutoFilter global freigeben Version: Office 2k (2000)
Sub Workbook_open()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Protect userinterfaceonly:=True
wks.EnableOutlining = True 'für Gliederung
wks.EnableAutoFilter = True 'für Autofilter
Next
Sheets("LIES MICH! | READ ME!").Select
End Sub
[/code]
  Thema: Zeilen in Spalte(n) auflisten 
Phelan XLPH

Antworten: 30
Aufrufe: 1777

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Sep 2009, 07:20   Titel: AW: Zeilen in Spalte(n) auflisten Version: Office 2003
Sub phelan()
Dim arr As Variant
Dim arrOut() As Variant
Dim Dic As Object
Dim i As Long, k As Long
Dim m As Long

Set Dic = CreateObject("Scripting.Dictionary")

With Tabelle1.Range("A1").CurrentRegion
arr = .Offset(1).Resize(.Rows.Count - 1)
End With

For i = 1 To UBound(arr)
If UBound(arr, 2) > 3 Then
For k = 4 To UBound(arr, 2)
Dic(arr(i, 1) & "#" & arr(i, 2) & "#" & arr(i, 3)) = _
Dic(arr(i, 1) & "#" & arr(i, 2) & "#" & arr(i, 3)) & ";" & arr(i, k)
Next
End If
Next

arr = Dic.Keys
For i = 0 To Dic.Count - 1
For k = 0 To UBound(Split(Dic(arr(i)), ";")) - 1
If Split(Dic(arr(i)), &qu ...
  Thema: Daten sortieren mit mehr als 3 Kriterien ??? 
Phelan XLPH

Antworten: 26
Aufrufe: 2665

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Sep 2009, 21:49   Titel: AW: Daten sortieren mit mehr als 3 Kriterien ??? Version: Office XP (2002)
Very Happy Razz Very Happy Laughing 8)
  Thema: Jahre der Arbeit und das Wäre der letzte Schritt (Suchmasch. 
Phelan XLPH

Antworten: 8
Aufrufe: 466

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Sep 2009, 20:42   Titel: AW: Jahre der Arbeit und das Wäre der letzte Schritt (Suchma Version: Office 2007
Hab meinen eigene im Kopf.

Der code berückssichtigt auch die Anzahl von Ziffern.

D.h. 211 wird in 2161 erkannt aber nicht in 2182
  Thema: Tabellenblätter global definieren 
Phelan XLPH

Antworten: 6
Aufrufe: 397

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Sep 2009, 14:35   Titel: AW: Tabellenblätter global definieren Version: Office 2003
Hab ich mir gedacht, danke.
  Thema: txt-Datei 
Phelan XLPH

Antworten: 15
Aufrufe: 426

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2009, 22:56   Titel: AW: txt-Datei Version: Office 2003
würde ich meinen. Versuch die Datei mal mit dem Text-Editor zu öffnen.
Wenn sie lesbar ist dann müsste es auch gehen.
  Thema: txt-Datei 
Phelan XLPH

Antworten: 15
Aufrufe: 426

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2009, 22:42   Titel: AW: txt-Datei Version: Office 2003
Teste das mal:
Pfad anpassen

Sub WeiteresBsp()
Dim TxT As String
Dim arr As Variant

Open "d:\test\test2.txt" For Input As #1
TxT = Input(LOF(1), #1)
Close #1

With Worksheets("Tabelle2")
.UsedRange.Clear
If InStr(TxT, vbCrLf) Then
arr = Split(TxT, vbCrLf)
.Range("A1").Resize(UBound(arr)) = _
WorksheetFunction.Transpose(arr)
Else
arr = TxT
End If
With .Range("A:A")
.TextToColumns .Cells(1), xlDelimited, _
xlTextQualifierDoubleQuote, True, True, True, True, True
End With
End With
End Sub


EDIT: Mit dem von dir geposteten Code kannst du doch die .LOG-Datei auswählen, oder nicht?
  Thema: Textbox mit Enter verlassen 
Phelan XLPH

Antworten: 10
Aufrufe: 1823

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2009, 22:10   Titel: AW: Textbox mit Enter verlassen Version: Office 2003
Herzlichen Glückwunsch zu deiner Excel-Version oder deiner Teststellung

Danke Razz
  Thema: txt-Datei 
Phelan XLPH

Antworten: 15
Aufrufe: 426

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Sep 2009, 22:09   Titel: AW: txt-Datei Version: Office 2003
Klar, du öffnest ja auch eine Textdatei in Excelumgebung. Jetzt kopierst du einfach
den Inhalt der tabelle in deine Zieltabelle und schliesst die Neu geöffnete Datei.

Nichts anderes machen meine beiden Codes.

teste das mal:

Sub TextImportWkbOpenText()
Dim wkb As Workbook, Pfad As String

Pfad = "C:\Dokumente und Einstellungen\Engino\Desktop\Fahrzeugdynamik_Test\NMEA_Gruppe1.LOG"

Workbooks.OpenText Pfad, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=True, _
Comma:=True, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1) ...
 
Seite 544 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 541, 542, 543, 544, 545, 546, 547 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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