Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 74 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 71, 72, 73, 74, 75, 76, 77 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: 5 Zellen einer Spalte auswerten 
Phelan XLPH

Antworten: 18
Aufrufe: 326

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Feb 2013, 00:13   Titel: AW: 5 Zellen einer Spalte auswerten Version: Office 2010
...so Cool
  Thema: 5 Zellen einer Spalte auswerten 
Phelan XLPH

Antworten: 18
Aufrufe: 326

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Feb 2013, 21:30   Titel: AW: 5 Zellen einer Spalte auswerten Version: Office 2010
@kurochan,

dein Code gefällt mir, leider berücksichtigt SMALL keine Doppelungen. Evil or Very Mad

Hier eine weitere Variante mit Berücksichtigung von Doppelungen:

Sub Drei_Kleinste_2()
'Berücksichtigt Doppelte Werte
Dim lngI As Long
Dim intK As Integer
Dim avData As Variant
Dim lngAnzKleinste As Long
Dim dicKleinste As Object

Set dicKleinste = CreateObject("scripting.dictionary")

avData = Range("A1:Q" & Cells(Rows.Count, 1).End(xlUp).Row)

For lngI = 5 To UBound(avData)
dicKleinste.RemoveAll

For intK = 7 To UBound(avData, 2) Step 2
dicKleinste(avData(lngI, intK)) = Empty
Next

lngAnzKleinste = UBound(dicKleinste.keys) + 1
If lngAnzKleinste >= 1 Then dicKleinste(WorksheetFunction.Small(dicKleinste.keys, 1)) = 4
If lngAnzKleinste & ...
  Thema: Ab = Text rot 
Phelan XLPH

Antworten: 17
Aufrufe: 339

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Feb 2013, 19:19   Titel: AW: Ab = Text rot Version: Office 2007
Hallo,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim loP As Long, sWert As String, rngC As Range
If Not Intersect(Target, Columns(3)) Is Nothing Then
Application.ScreenUpdating = False
For Each rngC In Intersect(Target, Columns(3), UsedRange)
sWert = rngC.Value
loP = InStr(sWert, "=")
If loP Then
With rngC.Characters(Start:=loP + 1, Length:=Len(sWert)).Font
.ColorIndex = 3
.Bold = True
End With
End If
Next
End If
End Sub

Noch nicht formatierte Werte in Spalte 3, löst du wie folgt:
Spalte C kopieren und in sich selber (Spalte C) einfügen.
  Thema: Spalte nach String durchsuchen und "Nachbarwert" a 
Phelan XLPH

Antworten: 7
Aufrufe: 316

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Feb 2013, 16:06   Titel: AW: Spalte nach String durchsuchen und "Nachbarwert& Version: Office 2010
Sub Kopieren_wenn_gleich_String_2()
Dim lLetzteZeile As Long
Dim lZeile As Long
Dim lZeileErg As Long
Dim vWert As Variant

lLetzteZeile = Cells(Rows.Count, 1).End(xlUp).Row

vWert = InputBox("Welche Zeichenfolge ist gesucht?")
If Len(vWert) = 0 Then Exit Sub

For lZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(lZeile, 1).Value = vWert Then
lZeileErg = lZeileErg + 1
Cells(lZeileErg, 5).Formula = Cells(lZeile, 2).Formula
End If
Next
End Sub
  Thema: Ab = Text rot 
Phelan XLPH

Antworten: 17
Aufrufe: 339

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Feb 2013, 15:16   Titel: AW: Ab = Text rot Version: Office 2007
Sub Teilstring_Färben()
Dim lngZeile As Long
Dim lngZeileStart As Long
Dim intStartColor As Integer
Dim sWert As String

lngZeileStart = 10

With Tabelle1
For lngZeile = lngZeileStart To .Cells(.Rows.Count, 3).End(xlUp).Row
With .Cells(lngZeile, 3)
sWert = .Value2
intStartColor = InStr(sWert, "=")
If intStartColor > 0 Then
.Characters(Start:=intStartColor, Length:=Len(sWert)).Font.ColorIndex = 3
End If
End With
Next lngZeile
End With
End Sub
  Thema: excel termine sortieren 
Phelan XLPH

Antworten: 29
Aufrufe: 658

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Feb 2013, 23:11   Titel: AW: excel termine sortieren Version: Office 2010
Sub x()
Dim vIN As Variant
Dim vOUT As Variant
Dim i As Long
Dim k As Integer
Dim n As Long

vIN = Tabelle1.Range("A1").CurrentRegion
ReDim vOUT(1 To (UBound(vIN) - 1) * (UBound(vIN, 2) - 1) + 1, 1 To 5)

n = 1
vOUT(n, 1) = "Datum"
vOUT(n, 2) = "Monat"
vOUT(n, 3) = "Jahr"
vOUT(n, 4) = "Termin"
vOUT(n, 5) = "Projekt"

For i = 2 To UBound(vIN)
For k = 2 To UBound(vIN, 2)
If IsDate(vIN(i, k)) Then
n = n + 1
vOUT(n, 1) = vIN(i, k)
vOUT(n, 2) = Month(vIN(i, k))
vOUT(n, 3) = Year(vIN(i, k))
vOUT(n, 4) = k - 1
vOUT(n, 5) = vIN(i, 1)
End If
...
  Thema: Nur 2 Zellen der Zeile kopieren NICHT EntireRow ?! 
Phelan XLPH

Antworten: 15
Aufrufe: 189

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Feb 2013, 18:12   Titel: AW: Nur 2 Zellen der Zeile kopieren NICHT EntireRow ?! Version: Office 2010
verbundene Zellen sind immer Mist, da weiß man nie, wo der Eintrag ist..

-> Oben links!
  Thema: Combobox Vergleich hunderter und tausender 
Phelan XLPH

Antworten: 9
Aufrufe: 117

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Feb 2013, 14:10   Titel: AW: Combobox Vergleich hunderter und tausender Version: Office 2003
ghet leider unter version 2010 nicht mehr....

...sagt wer?

Versuchshiermit:
If Format(Val(ComboBox3.Value), "0000") < Format(Val(ComboBox10.Value), "0000") Then
oder gleich:
If Val(ComboBox3.Value) < Val(ComboBox10.Value) Then
  Thema: Vergleiche und Lösche 
Phelan XLPH

Antworten: 10
Aufrufe: 99

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Feb 2013, 14:05   Titel: AW: Vergleiche und Lösche Version: Office 2010
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
  Thema: abhängige ComboBoxen 
Phelan XLPH

Antworten: 22
Aufrufe: 2079

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Feb 2013, 01:04   Titel: AW: abhängige ComboBoxen Version: Office 2003
Wink
  Thema: Mit Dictionary filtern und Anzahl Tage zählen 
Phelan XLPH

Antworten: 3
Aufrufe: 129

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jan 2013, 21:00   Titel: AW: Mit Dictionary filtern und Anzahl Tage zählen Version: Office 2007
Hallo,

du kannst den Code an deinem hochgeladenen Beispiel testen.

Geh den Code Schritt für Schritt mit F8-Taste durch und schau was sich regt.

Dann verstehst du es auch. Wink
  Thema: Vergleiche und Lösche 
Phelan XLPH

Antworten: 10
Aufrufe: 99

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jan 2013, 17:59   Titel: AW: Vergleiche und Lösche Version: Office 2010
statt: End If
das: End Select
  Thema: AdvancedFilter 
Phelan XLPH

Antworten: 12
Aufrufe: 168

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jan 2013, 17:43   Titel: AW: AdvancedFilter Version: Office 2007
statt:
letztezeile = ActiveSheet.Cells(Rows.Count, 9).End(xlUp).Row

das einsetzen:
With Sheets("Datenbank-Abfrage")
letztezeile = .Cells(.Rows.Count, 9).End(xlUp).Row
End With
  Thema: Mit Dictionary filtern und Anzahl Tage zählen 
Phelan XLPH

Antworten: 3
Aufrufe: 129

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jan 2013, 17:35   Titel: AW: Mit Dictionary filtern und Anzahl Tage zählen Version: Office 2007
Sub xyz()
Dim sID As String
Dim avSortCol As Variant
Dim rngF As Range
Dim i As Long

avSortCol = Array(7, 5, 12, 5, 4)

Application.ScreenUpdating = False

With Range("A1").CurrentRegion
With .Columns(.Columns.Count).Offset(, 1)
.Formula = "=ROW()"
.Value = .Value
End With
End With

With Range("A1").CurrentRegion

For i = LBound(avSortCol) To UBound(avSortCol)
.Sort .Cells(avSortCol(i)), xlAscending, Header:=xlYes
Next

sID = Cells(2, 4) & Cells(2, 5) & Cells(2, 12)
For i = 2 To .Rows.Count
If sID = Cells(i + 1, 4) & Cells(i + 1, 5) & Cells(i + 1, 12) Then
If Cells(i, 7) = Cells(i + 1, 6) Then
If Cells(i, 6) = ...
  Thema: Kommentare mit VBA übertragen 
Phelan XLPH

Antworten: 4
Aufrufe: 106

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jan 2013, 14:33   Titel: AW: Kommentare mit VBA übertragen Version: Office 2010
Sub x()
Dim com As Comment
Dim ws As Worksheet
Dim wsQuelle As Worksheet

Set wsQuelle = Worksheets("Tabelle4") ' Anpassen

For Each ws In Worksheets
If Not ws Is wsQuelle Then
For Each com In wsQuelle.Comments
With ws.Range(com.Parent.Address)
If Not .Comment Is Nothing Then .Comment.Delete
.AddComment com.Text
End With
Next
End If
Next
End Sub
 
Seite 74 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 71, 72, 73, 74, 75, 76, 77 ... 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