Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 225 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 222, 223, 224, 225, 226, 227, 228 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Kopieren mit Array; Hier: Reihenfolge 
Phelan XLPH

Antworten: 2
Aufrufe: 139

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Nov 2011, 14:38   Titel: AW: Kopieren mit Array; Hier: Reihenfolge Version: Office 2k (2000)
Du bist hier im Excel-Forum
  Thema: Ganze Zahlen aus Zahlenkolonnen erzeugen 
Phelan XLPH

Antworten: 11
Aufrufe: 287

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Nov 2011, 14:17   Titel: AW: Ganze Zahlen aus Zahlenkolonnen erzeugen Version: Office 2003
Sub Zahlenkolonne()
Dim ar As Variant
Dim arTmp As Variant
Dim i As Long

With Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
ar = .Value

ReDim arTmp(1 To UBound(ar), 1 To 1)

For i = 2 To UBound(ar) - 1
If Fix(ar(i, 1)) <> Fix(ar(i - 1, 1)) Then
If Abs(ar(i, 1) - Fix(ar(i, 1))) <= Abs(ar(i - 1, 1) - Fix(ar(i, 1))) Then
arTmp(i, 1) = Fix(ar(i, 1))
Else
arTmp(i - 1, 1) = Fix(ar(i, 1))
End If
End If
Next

arTmp(1, 1) = ar(1, 1)
arTmp(UBound(arTmp), 1) = ar(UBound(ar), 1)
.Offset( ...
  Thema: Spalten und Zeilen abgleichen 
Phelan XLPH

Antworten: 2
Aufrufe: 132

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Nov 2011, 13:08   Titel: AW: Spalten und Zeilen abgleichen Version: Office 2003
Hallo Chris22,

Blatt-CodeNamen anpassen!

Sub Kreuztabelle()
Dim rngQuellDaten As Range
Dim rngC As Range
Dim rngZ As Range
Dim rngS As Range

With Tabelle2 'Anpassen
Set rngQuellDaten = .Rows(3).SpecialCells(xlCellTypeConstants)
End With

With Tabelle1 'Anpassen
For Each rngC In rngQuellDaten
Set rngS = .Rows(1).Find(rngC.Offset(-2), , xlValues, xlWhole)
Set rngZ = .Columns(1).Find(rngC.Offset(-1), , xlValues, xlWhole)
If Not rngZ Is Nothing And Not rngS Is Nothing Then
Intersect(rngS.EntireColumn, rngZ.EntireRow) = rngC.Value
End If
Next
End With
End Sub
  Thema: Zell-Inhalte Counter für Text 
Phelan XLPH

Antworten: 6
Aufrufe: 127

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Nov 2011, 12:01   Titel: AW: Zell-Inhalte Counter für Text Version: Office 2003
Ich versteh den Sinn des Codes nicht.

Möchtest du immer nur eine zelle färben?

Kannst du genauer beschreiben was, wo, wie passieren soll?
  Thema: Zell-Inhalte Counter für Text 
Phelan XLPH

Antworten: 6
Aufrufe: 127

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Nov 2011, 11:42   Titel: AW: Zell-Inhalte Counter für Text Version: Office 2003
Das hat aber nix mit der Funktion zu tun.

Das muss so heißen:
For Each rngCell in Target
  Thema: Zell-Inhalte Counter für Text 
Phelan XLPH

Antworten: 6
Aufrufe: 127

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Nov 2011, 11:32   Titel: AW: Zell-Inhalte Counter für Text Version: Office 2003
Das muss funktionieren: =ZÄHLENWENN(M3:M167;"Offen")
  Thema: Bestimmte Einträge in Combobox sperren (d.h. nicht wählbar). 
Phelan XLPH

Antworten: 11
Aufrufe: 892

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Nov 2011, 11:24   Titel: AW: Bestimmte Einträge in Combobox sperren (d.h. nicht wählb Version: Office 2010
Oder so:

Private Sub ComboBox1_Change()
Dim vntIdx As Variant
Dim sVgl As String
Static lngIdx As Long

vntIdx = Array(0, 4, 8)
sVgl = vbLf & Join(vntIdx, vbLf) & vbLf

If InStr(sVgl, vbLf & ComboBox1.ListIndex & vbLf) Then ComboBox1.ListIndex = lngIdx

lngIdx = ComboBox1.ListIndex
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = Range("A1:A12").Value
ComboBox1.Style = fmStyleDropDownList
ComboBox1.ListIndex = 1
End Sub
  Thema: Wer verbessert meinen Code zur Arraysortierung 
Phelan XLPH

Antworten: 2
Aufrufe: 151

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Nov 2011, 10:43   Titel: AW: Wer verbessert meinen Code zur Arraysortierung Version: Office 2010
Hallo,

"Others" und "Nokia" werden ans Ende gestellt.

Sub test()

Dim arrData As Variant
Dim i As Integer
Dim strFirst As String
Dim strLast As String

ReDim arrData(4)

arrData(0) = "APPLE"
arrData(1) = "OTHERS"
arrData(2) = "NOKIA"
arrData(3) = "SAMSUNG"
arrData(4) = "SONY ERICSSON"

For i = LBound(arrData) To UBound(arrData)
Debug.Print arrData(i)
Next i

For i = LBound(arrData) To UBound(arrData)
If UCase(arrData(i) Like "OTH*") Or _
UCase(arrData(i) Like "NO*") Then
strLast = strLast & "|" & arrData(i)
Else
strFirst = strFirst & "|" & a ...
  Thema: For Schleife 
Phelan XLPH

Antworten: 4
Aufrufe: 127

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Nov 2011, 09:33   Titel: AW: For Schleife Version: Office 2007
Sub OderSo()
Dim rngQuellBereich As Range
Dim rngC As Range
Dim i As Long

Set rngQuellBereich = Range("Q15,S16,P18,P20")
rngQuellBereich.Select
For Each rngC In rngQuellBereich
Range("L" & 4 + i).Value = rngC.Value
i = i + 1
Next
End Sub

Offset ist eine wichtige Funktion
  Thema: Zeilen mit "x" in Spalte in anderes Blatt kopieren 
Phelan XLPH

Antworten: 3
Aufrufe: 968

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 21:50   Titel: AW: Zeilen mit "x" in Spalte in anderes Blatt kopi Version: Office 2007
Ins Codefenster der tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
With Me.UsedRange
.AutoFilter 6, "x"
Tabelle2.UsedRange.Clear
Intersect(.Parent.AutoFilter.Range.SpecialCells(xlCellTypeVisible), .Range("A:E")).Copy Tabelle2.Range("A1")
.AutoFilter
End With
Application.ScreenUpdating = True
End Sub
  Thema: Suchen und Ersetzben, nur nach ganzen Wörtern 
Phelan XLPH

Antworten: 9
Aufrufe: 281

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 17:59   Titel: AW: Suchen und Ersetzben, nur nach ganzen Wörtern Version: Office 2003
das hier einkommentieren:

wApp.Quit
Ende:
Set wDoc = Nothing
Set wApp = Nothing
  Thema: Export in txt 
Phelan XLPH

Antworten: 9
Aufrufe: 181

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 17:58   Titel: AW: Export in txt Version: Office 2010
If k >= 3 Then If k <= 5 Then ar(i, k) = Replace(Format(ar(i, k), "0.000"), ",", ".")
  Thema: Listenabgleich in selber Zeile / Differenzen 
Phelan XLPH

Antworten: 13
Aufrufe: 212

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 15:27   Titel: AW: Listenabgleich in selber Zeile / Differenzen Version: Office 2003
Dann ist die Zelle in Spalte4 nicht LEER.

If .Cells(i, 2) = .Cells(i, 4) Or .Cells(i, 3) = .Cells(i, 4) Or Trim(.Cells(i, 4)) = "" Then
  Thema: Listenabgleich in selber Zeile / Differenzen 
Phelan XLPH

Antworten: 13
Aufrufe: 212

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 15:17   Titel: AW: Listenabgleich in selber Zeile / Differenzen Version: Office 2003
Uuups.

Spalte2 wird doppelt geprüft und Spalte3 gar nicht.

If .Cells(i, 2) = .Cells(i, 4) Or .Cells(i, 3) = .Cells(i, 4) Or .Cells(i, 4) = "" Then
  Thema: Listenabgleich in selber Zeile / Differenzen 
Phelan XLPH

Antworten: 13
Aufrufe: 212

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2011, 15:06   Titel: AW: Listenabgleich in selber Zeile / Differenzen Version: Office 2003
Bsp: Tabelle1 ist der Codename; Crosscheck der Tabellen-Name
 
Seite 225 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 222, 223, 224, 225, 226, 227, 228 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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