Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 625 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 622, 623, 624, 625, 626, 627, 628 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Zeile löschen in Abhängigkeit von Zellwerten 
Phelan XLPH

Antworten: 8
Aufrufe: 338

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Jul 2009, 16:57   Titel: AW: Zeile löschen in Abhängigkeit von Zellwerten Version: Office 2003
Büdde:

Sub NullPruefungZeileLoeschen()
Dim i As Long
For i = Range("D" & Rows.Count).End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Range(Range("D" & i), Range("P" & i)), 0) = 13 Then _
Range(Range("D" & i), Range("P" & i)).EntireRow.Delete
Next
End Sub
  Thema: UDF zum Verketten von nichtleeren Zellen mit Format 
Phelan XLPH

Antworten: 5
Aufrufe: 1107

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Jul 2009, 16:21   Titel: AW: UDF zum Verketten von nichtleeren Zellen mit Format Version: Office 2003
Nimm den hab ihn optimiert:
Public Function Kommentar(Bereich As Range) As String
Dim sCom As String, sVar As String
Dim sAct As String, sBud As String
Dim rng As Range

Set rng = Bereich(1).Resize(, 4)
Debug.Print rng.Address
If rng(1) <> "" Then sVar = " (" & "Variance: " & rng(1).Text & ");"
If rng(2) <> "" Then sAct = " (" & "Actual: " & rng(2).Text & ");"
If rng(3) <> "" Then sBud = " (" & "Budget: " & rng(3).Text & ");"
If rng(4) <> "" Then sCom = rng(4).Text

Kommentar = sCom & sVar & sAct & sBud
If Right(Kommentar, 1) = ";" Then _
Kommentar = Left(Kommentar, Len(Kommentar) - 1)
End Function
  Thema: Kommentar einfügen mit Daten aus Tabellenblatt 
Phelan XLPH

Antworten: 6
Aufrufe: 971

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Jul 2009, 15:19   Titel: AW: Kommentar einfügen mit Daten aus Tabellenblatt Version: Office 2003
Ich hoff es ist nicht zu komplex:

Sub Bsp()
Dim strKom As String
Dim rng As Range
Dim rngZeile As Range

Set rng = Range("A1").CurrentRegion

For Each rngZeile In rng.Rows
strKom = strKom & Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(rngZeile)), ";") & vbLf
Next

If Not Range("C10").Comment Is Nothing Then
Range("C10").Comment.Delete
End If

Range("C10").AddComment strKom
Range("C10").Comment.Shape.TextFrame.AutoSize = True
End Sub
  Thema: Doppelte einträge abfragen und löschen 
Phelan XLPH

Antworten: 27
Aufrufe: 1984

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Jul 2009, 11:40   Titel: AW: Doppelte einträge abfragen und löschen Version: Office XP (2002)
Alles klar, ja dann nimm Variante 1 so gibts keine Tag-verschiebung.
  Thema: Doppelte einträge abfragen und löschen 
Phelan XLPH

Antworten: 27
Aufrufe: 1984

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Jul 2009, 10:25   Titel: AW: Doppelte einträge abfragen und löschen Version: Office XP (2002)
Teste mal beide Varianten:
Sub SpaltenAddieren()
Dim lngZ As Long
Dim wks As Worksheet
Dim arrDat As Variant
Dim arrMonat As Variant
Dim arrSum As Variant
Set wks = Worksheets("Tabelle1") 'Anpassen
lngZ = wks.Cells(wks.Rows.Count, 1).End(xlUp).Row

arrDat = wks.Range("G2:G" & lngZ).Value
arrMonat = wks.Range("H2:H" & lngZ).Value
arrSum = wks.Range("O2:O" & lngZ).Value
For lngZ = 1 To UBound(arrDat)
'arrSum(lngZ, 1) = DateAdd("m", arrMonat(lngZ, 1), arrDat(lngZ, 1)) 'Varinate1
arrSum(lngZ, 1) = arrDat(lngZ, 1) + arrMonat(lngZ, 1) * 30 'Variante2
Next
wks.Range("O2:O" & lngZ) = arrSum
wks.Range("O2:O" & lngZ).NumberFormat = "m/d/yyyy"
End Sub
  Thema: Listbox leeren und anschliessend fuellen geht nicht 
Phelan XLPH

Antworten: 9
Aufrufe: 277

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 21:15   Titel: AW: Listbox leeren und anschliessend fuellen geht nicht Version: Office 2003
Da hast du irgendwo anders noch was das das Change-Ereignis beeinflusst
bzw. vielleicht noch irgendwo anders ein LisBox.Clear.

Denn bei mir gehts. Poste mal deinen gesamten Code.
  Thema: Listbox leeren und anschliessend fuellen geht nicht 
Phelan XLPH

Antworten: 9
Aufrufe: 277

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 20:13   Titel: AW: Listbox leeren und anschliessend fuellen geht nicht Version: Office 2003
Ok tut doch. Aber du widersprichst dich auch.
Soll immer nur eine Zeile pro Auswahl angezeigt werden?

EDIT:

Also dein Code hat auch vorher schon getan, hab nur zusammen gefasst:
Private Sub ComboBox1_Change()
Dim x As Long
Dim z As Long
Dim c As Integer

ListBox1.Clear

For x = 3 To Tabelle2.Range("B65536").End(xlUp).Row
If Tabelle2.Range("B" & x) = ComboBox1.Text Then
z = Tabelle1.ListBox1.ListCount
ListBox1.AddItem Tabelle2.Cells(x, 2)
For c = 1 To 9
ListBox1.List(z, c) = Tabelle2.Cells(x, c + 2)
Next
End If
Next x

End Sub
  Thema: Listbox leeren und anschliessend fuellen geht nicht 
Phelan XLPH

Antworten: 9
Aufrufe: 277

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 19:51   Titel: AW: Listbox leeren und anschliessend fuellen geht nicht Version: Office 2003
Wo befinden sich Listbox und combobox?
  Thema: Strukturbaum erstellen 
Phelan XLPH

Antworten: 2
Aufrufe: 4848

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 19:29   Titel: AW: Strukturbaum erstellen Version: Office 2003
Wie liegen denn dir daten vor?
  Thema: Grafik über Regler drehen 
Phelan XLPH

Antworten: 5
Aufrufe: 2255

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 19:16   Titel: AW: Grafik über Regler drehen Version: Office 2007
Das wird hier gerne gehört.

Das sollte man doch in die Welt posaunen:
"Es gibt kein besseres Forum, wenn es um Office geht".
  Thema: Grafik über Regler drehen 
Phelan XLPH

Antworten: 5
Aufrufe: 2255

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 19:00   Titel: AW: Grafik über Regler drehen Version: Office 2007
Nochmal zusemmengefasst:
Private Sub ScrollBar1_GotFocus()
ScrollBar1.Min = 0
ScrollBar1.Max = 360
ScrollBar1.SmallChange = 1
ScrollBar1.LargeChange = 10
End Sub

Private Sub ScrollBar1_Scroll()
BidDrehen
End Sub

Private Sub ScrollBar1_Change()
BidDrehen
End Sub

Private Sub BidDrehen()
ActiveSheet.Shapes("Grafik 1").Rotation = ScrollBar1.Value
Range("A1") = ScrollBar1.Value 'Zelle Anpassen
End Sub

Ausgabe anpssen
  Thema: Arbeitsblätter mittels Auswahlformular automatisch einlesen 
Phelan XLPH

Antworten: 1
Aufrufe: 270

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 18:45   Titel: AW: Arbeitsblätter mittels Auswahlformular automatisch einle Version: Office 2003
Hallo,

teste das mal:

Sub BlattKopieInDieseMappe()
Dim fileToOpen As Variant
Dim i As Integer
Dim wkb As Workbook
Dim strNotExist As String

fileToOpen = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls", , , , True)
If Not IsArray(fileToOpen) Then Exit Sub

For i = 1 To UBound(fileToOpen)
Set wkb = Workbooks.Open(fileToOpen(i), 0)
If wkb.Worksheets.Count > 1 Then
wkb.Worksheets(2).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Else
strNotExist = strNotExist & vbLf & Dir(fileToOpen(i))
End If
wkb.Close False
Next
If strNotExist <> "" Then _
MsgBox "Folgende Dateien enthalten kein Blatt2:" _
& vbLf & strNotExist, , "Hinweis"
End If
End Sub
  Thema: Grafik über Regler drehen 
Phelan XLPH

Antworten: 5
Aufrufe: 2255

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 18:14   Titel: AW: Grafik über Regler drehen Version: Office 2007
Hallo,

benutze eine ActiveX-Scrollbar.

ins codefenster der Tabelle:
Private Sub ScrollBar1_GotFocus()
ScrollBar1.Min = 0
ScrollBar1.Max = 360
ScrollBar1.SmallChange = 1
ScrollBar1.LargeChange = 10
End Sub

Private Sub ScrollBar1_Scroll()
ActiveSheet.Shapes("Grafik 1").Rotation = ScrollBar1.Value
End Sub

Private Sub ScrollBar1_Change()
ActiveSheet.Shapes("Grafik 1").Rotation = ScrollBar1.Value
End Sub

GrafikNamen noch anpassen: Grafik 1
  Thema: Menü Kontexmenüpunkte sperren 
Phelan XLPH

Antworten: 19
Aufrufe: 1248

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 17:52   Titel: AW: Menü Kontexmenüpunkte sperren Version: Office 97
Da geht ihr den falschen Weg.

Es sind sinnvoller das Blatt schützen.
  Thema: kleinste zahl finden 
Phelan XLPH

Antworten: 4
Aufrufe: 1967

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 17:47   Titel: AW: kleinste zahl finden Version: Office 2007
hallo,

ins Codefenster der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim lngZeile As Long
Set rng = Range("A:A") 'Spalte Anpassen
If Not Intersect(Target, rng) Is Nothing Then
Set rng = rng.Columns(1).Cells
On Error Resume Next
lngZeile = WorksheetFunction.Match(WorksheetFunction.Min(rng), rng, 0)
If Err.Number = 0 Then
rng.EntireRow.Interior.ColorIndex = xlColorIndexNone
rng(lngZeile).EntireRow.Interior.ColorIndex = 4 'Grün
Else
Err.Clear
MsgBox "Keine Zahlen!", , "Hinweis"
End If
End If
End Sub
 
Seite 625 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 622, 623, 624, 625, 626, 627, 628 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA