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

Antworten: 17
Aufrufe: 359

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jan 2013, 14:17   Titel: AW: Checkbox abhänigkeit/ausgrauen anhand einer Matrix Version: Office 2010
schau in den post davor
  Thema: Vergleiche und Lösche 
Phelan XLPH

Antworten: 10
Aufrufe: 99

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jan 2013, 13:42   Titel: AW: Vergleiche und Lösche Version: Office 2010
Sub Telefonnummern()
Dim TelNr As String
Dim i As Long
' Anrufende Nummern die nicht lila-logistik Nummern sind werden gelöscht.
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
TelNr = Cells(i, 1).Value2
Select Case True
Case TelNr Like "+492325787*"
Case TelNr Like "+4915115011*"
Case Else: Rows(i).Delete
End If
Next
End Sub
  Thema: Vergleiche und Lösche 
Phelan XLPH

Antworten: 10
Aufrufe: 99

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jan 2013, 13:22   Titel: AW: Vergleiche und Lösche Version: Office 2010
Sollen denn die Inhalte der Zeile oder die ganze Zeile gelöscht werden?
  Thema: Vergleiche und Lösche 
Phelan XLPH

Antworten: 10
Aufrufe: 99

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jan 2013, 13:22   Titel: AW: Vergleiche und Lösche Version: Office 2010
Sollen denn die Inhalte der Zeile oder die ganze Zeile gelöscht werden?
  Thema: Kommentare mit VBA übertragen 
Phelan XLPH

Antworten: 4
Aufrufe: 106

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jan 2013, 13:18   Titel: AW: Kommentare mit VBA übertragen Version: Office 2010
Hallo,

es wird die Komplette Zelle mit dem Kommentar kopiert.

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
com.Parent.Copy ws.Range(com.Parent.Address)
Next
End If
Next
End Sub
  Thema: Combobox Vergleich hunderter und tausender 
Phelan XLPH

Antworten: 9
Aufrufe: 117

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jan 2013, 13:03   Titel: AW: Combobox Vergleich hunderter und tausender Version: Office 2003
Hallo,

hier wird eine ComboBox gefüllt mir voriger Ermittlung der maximalen
Stellenanzahl und anschließender Auffüllung mit '0'en.

Private Sub UserForm_Initialize()
Call ComboFüllen
End Sub

Private Sub ComboFüllen()
Dim v As Variant
Dim AnzStellen As Integer
With Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
AnzStellen = Len(CStr(WorksheetFunction.Max(.Cells)))
For Each v In .Value
If v <> "" Then
ComboBox1.AddItem Format(v, String(AnzStellen, "0"))
End If
Next
End With
End Sub
  Thema: Vergleiche und Lösche 
Phelan XLPH

Antworten: 10
Aufrufe: 99

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jan 2013, 12:41   Titel: AW: Vergleiche und Lösche Version: Office 2010
satatt:
c = c.Offset(0, 3)

das:
c = Empty
  Thema: AdvancedFilter 
Phelan XLPH

Antworten: 12
Aufrufe: 168

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jan 2013, 12:30   Titel: AW: AdvancedFilter Version: Office 2007
Eventuell bleibt die Spalte I aber auch (teilwiese) leer bzw. befindet sich zwischen den Schlagwörtern eine Reihe ohne Schlagwörter.

...und das darf nicht sein.

Sub schlag_erg_ermitteln()

Sheets("Ergebnis_Gesamt").UsedRange.Clear

With Sheets("Zw_Ergebnis").Columns("A:I")
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Datenbank-Abfrage").Range("I1:I2"), _
CopyToRange:=Sheets("Ergebnis_Gesamt").Range("A1"), _
Unique:=False
End With

End Sub
  Thema: Checkbox abhänigkeit/ausgrauen anhand einer Matrix 
Phelan XLPH

Antworten: 17
Aufrufe: 359

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jan 2013, 11:56   Titel: AW: Checkbox abhänigkeit/ausgrauen anhand einer Matrix Version: Office 2010
Hallo Robertus,

füg den Code noch ein:
Private Sub ListBox1_Change()
With ListBox1
Range("N6").Value = IIf(.ListCount, .Value, Empty)
End With
End Sub


Ausgabe erfolgt in Zelle [N6]
  Thema: Makro zum Transponieren 
Phelan XLPH

Antworten: 32
Aufrufe: 12284

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jan 2013, 23:29   Titel: AW: Makro zum Transponieren
Sub Transpo_2()
Dim i As Long
With Range("A:A")
With .ColumnDifferences(.Find("")).Areas
For i = 1 To .Count
With .Item(i)
If .Rows.Count > 1 Then
.Cells(1).Offset(, 1).Resize(1, .Rows.Count - 1).Value = _
WorksheetFunction.Transpose(Intersect(.Cells, .Offset(1)))
Intersect(.Cells, .Offset(1)).ClearContents
End If
End With
Next
End With
End With
End Sub
  Thema: Makro zum Transponieren 
Phelan XLPH

Antworten: 32
Aufrufe: 12284

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jan 2013, 19:03   Titel: AW: Makro zum Transponieren
Sub Transpo()
Dim i As Long
With Range("A:A")
With .ColumnDifferences(.Find("")).Areas
For i = 1 To .Count
Range("B" & i).Resize(1, .Item(i).Rows.Count).Value = _
WorksheetFunction.Transpose(.Item(i))
Next
End With
'.Delete
End With
End Sub
  Thema: Array unter einander in Zellen ausgeben 
Phelan XLPH

Antworten: 2
Aufrufe: 82

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jan 2013, 18:29   Titel: AW: Array unter einander in Zellen ausgeben Version: Office 2010
Sub Test_Array()
Dim myArray As Variant
Dim lngConter As Long
Dim strConn As String
Dim cnWt As ADODB.Connection 'Datenbank Connector
Dim rsWt As ADODB.Recordset 'Datenkbank auslesen
Dim sqlStr As String
Dim out As Integer

On Error GoTo Errormask

myArray = Tabelle1.Range("A1:A10")

Set cnWt = New ADODB.Connection
Set rsWt = New ADODB.Recordset

strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=Server;INITIAL CATALOG=DB;"
strConn = strConn & " INTEGRATED SECURITY=sspi;"
strConn = strConn & " Trusted_connection=yes;"

cnWt.Open strConn

For lngConter = 1 To UBound(myArray)

sqlStr = "blablabla kom_Daten='" & myArray(lngConter, 1) & "';"

With rsWt
' Assign the Connection object.
.ActiveConnection = cnWt
' Extract the required records.
.Open sqlStr
' Copy the records into cell G2 on Tabelle1.
...
  Thema: Checkbox abhänigkeit/ausgrauen anhand einer Matrix 
Phelan XLPH

Antworten: 17
Aufrufe: 359

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jan 2013, 15:21   Titel: AW: Checkbox abhänigkeit/ausgrauen anhand einer Matrix Version: Office 2010
War doch einfacher, als Kompliziert angegangen. Rolling Eyes
  Thema: Spezialfilter nimmt keine Kriterien an 
Phelan XLPH

Antworten: 11
Aufrufe: 171

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jan 2013, 14:33   Titel: AW: Spezialfilter nimmt keine Kriterien an Version: Office 2010
Muss nicht unbedingt als Formel eingegeben werden, das langt:
>=2013-01-28

...daran habe ich gar nicht gedacht, gut zu wissen.
Aber Uhrzeiten werden erkannt, komisch !? Rolling Eyes
  Thema: string Array zu long Array umwandeln. 
Phelan XLPH

Antworten: 5
Aufrufe: 298

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jan 2013, 12:57   Titel: AW: string Array zu long Array umwandeln. Version: Office 2007
NewValue = "2001,298743,23,"

somit ist das letzte ArrayElement ein Leerstring "".
Und das kann Clng() nicht in eine Zahl umwandeln.

Falls leerstrings vorkommen kannst du für die Umwandlung auch Val() benutzen.
 
Seite 75 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 72, 73, 74, 75, 76, 77, 78 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps