Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 678 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 675, 676, 677, 678, 679, 680, 681 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Kontrollkästchen 
Phelan XLPH

Antworten: 15
Aufrufe: 770

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2009, 18:13   Titel: AW: Kontrollkästchen Version: Office 2003
Hallo,

schau dir das mal an
  Thema: Forlaufendes Datum in automatisch erstellt Zeilen einfügen! 
Phelan XLPH

Antworten: 10
Aufrufe: 532

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2009, 15:39   Titel: AW: Forlaufendes Datum in automatisch erstellt Zeilen einfüg Version: Office 2003
Hallo,

wieso nicht gleich so, jetzt möchte ich keine klagen mehr hören:

Private Sub Vorfinanzierungeinfügen_Click()

Dim intMonate As Integer
Dim i As Integer
Dim z As Integer
Dim Datum As Date

z = 8
intMonate = Range("E4")
If intMonate > 0 Then
With ThisWorkbook.Worksheets("Berechnung")
.Rows(z & ":" & intMonate + z - 1).Insert Shift:=xlDown
.Range("A" & z & ":A" & z + intMonate - 1).Formula = "=$A$4/$E$4"
.Range("B" & z & ":B" & z + intMonate - 1).Formula = "=A8*(1+($B$4/12))^$E$4-A8"

.Range("G" & z) = .Range("G" & z - 4)
For i = 1 To intMonate - 1

Datum = .Range("G" & z)
If Month(Datum) <> Month& ...
  Thema: makro auf mehrere spalten erweitern 
Phelan XLPH

Antworten: 6
Aufrufe: 605

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2009, 14:41   Titel: AW: makro auf mehrere spalten erweitern Version: Office 2k (2000)
Hallo,

Malaga jetzt will ich aber keine klagen mehr hören! Laughing (Spass)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1) <> "" Then
If Not Intersect(Target, Range("AE:AE,AG:AK")) Is Nothing Then
Dim strCol As String
Dim i As Integer
Dim ArrSP As Variant
Dim strAdr As String
Select Case Target.Column
Case 31: strCol = "33,34"
Case 33: strCol = "0"
Case 34: strCol = "33"
Case 35: strCol = "33,34,31"
Case 36: strCol = "33,34,31,35"
Case 37: strCol = "33,34,31,35,36"
Case Else: strCol = "0"
End Select

If strCol = "0" Then Exit Sub

ArrSP = Split(strCol, ",")
For i = 0 To UBound(Ar ...
  Thema: Kombinationsfeld mit Daten aus 2 Spalten füllen?!? 
Phelan XLPH

Antworten: 6
Aufrufe: 1033

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2009, 14:10   Titel: AW: Kombinationsfeld mit Daten aus 2 Spalten füllen?!? Version: Office 2003
hallo,

dann ins codefenster der Tabelle
Private Sub ComboBox1_GotFocus()
ComboBox1.Value = ""
ComboBox1.ColumnCount = 2
Call DatenZusammenstellen(ComboBox1)
End Sub

Private Function DatenZusammenstellen(cb As MSForms.ComboBox)
Dim wks As Worksheet
Dim arrIn As Variant
Dim arrOut() As Variant
Dim i As Long
Dim k As Long

Set wks = ActiveSheet
arrIn = wks.Range("A1", wks.UsedRange.SpecialCells(xlCellTypeLastCell))

For i = 1 To UBound(arrIn)
If arrIn(i, 1) <> "" Or arrIn(i, 9) <> "" Then
k = k + 1
ReDim Preserve arrOut(1 To 2, 1 To k)
arrOut(1, k) = arrIn(i, 1)
arrOut(2, k) = arrIn(i, 9)
End If
Next
cb.Column = arrOut
End Function
  Thema: Zeile ausblenden 
Phelan XLPH

Antworten: 21
Aufrufe: 873

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2009, 14:01   Titel: AW: Zeile ausblenden Version: Office 2007
"Antwort Erstellen" unter großem Fenster links auf "Hilfe Datei Upload" klicken

ääähhh lachen ist aber gesund Smile

die frage hab ich nir auch mal gestellt Very Happy
  Thema: Fehlermeldung beim Öffnen Datei 
Phelan XLPH

Antworten: 2
Aufrufe: 845

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2009, 13:50   Titel: AW: Fehlermeldung beim Öffnen Datei Version: Office 2007
hallo,

ist vielleicht der dateipfad bei deinem kollegen ein anderer?
  Thema: makro auf mehrere spalten erweitern 
Phelan XLPH

Antworten: 6
Aufrufe: 605

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2009, 13:22   Titel: AW: makro auf mehrere spalten erweitern Version: Office 2k (2000)
Hallo,

teste das mal:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1) <> "" Then
If Not Intersect(Target, Range("AE:AE,AG:AK")) Is Nothing Then

Dim rngCol As Range
Dim Col As Integer
Dim bolLeerZelle As Boolean
Dim strSP As String

For Each rngCol In Range("AE:AE,AG:AK").Columns
If rngCol.Column >= Target.Column Then
Exit For
Else
If Cells(Target.Row, rngCol.Column) = "" Then
bolLeerZelle = True
Exit For
End If
End If
Next
If bolLeerZelle = True Then
Set rngCol = Range("AE" & Target.Row, Cells(Target.Row, Target.Column - 1))
...
  Thema: Zeile ausblenden 
Phelan XLPH

Antworten: 21
Aufrufe: 873

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2009, 12:32   Titel: AW: Zeile ausblenden Version: Office 2007
Hallo,

lad mal ein Bsp hoch! Ferndiagnose ist WoodoZauber!!!
  Thema: Ausblenden deluxe 
Phelan XLPH

Antworten: 11
Aufrufe: 386

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2009, 12:29   Titel: AW: Ausblenden deluxe Version: Office 2003
Hallo,

lad mal eine .jpg hoch. Kanns mir billich nicht vorstellen
  Thema: Statt nebeneinander untereinander! :P 
Phelan XLPH

Antworten: 3
Aufrufe: 2144

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2009, 12:23   Titel: AW: Statt nebeneinander untereinander! :P Version: Office 2007
Hallo,

hier die Datei
  Thema: Textfile einlesen 
Phelan XLPH

Antworten: 1
Aufrufe: 247

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2009, 12:04   Titel: AW: Textfile einlesen Version: Office XP (2002)
Hallo,

Kolonne?
  Thema: Rückgängig funktioniert nicht nach Prüfung 
Phelan XLPH

Antworten: 20
Aufrufe: 1663

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2009, 11:59   Titel: AW: Rückgängig funktioniert nicht nach Prüfung Version: Office 2003
Ach somit kann ich das RückgängigMachen von der Oberfläche aus steuern.
Trotzdem muss ich die werte zwischenspeichern und sie dann über
.OnUndo Steuern

Danke
  Thema: Daten übernehmen und fortlaufend schreiben!?! 
Phelan XLPH

Antworten: 17
Aufrufe: 1646

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2009, 11:53   Titel: AW: Daten übernehmen und fortlaufend schreiben!?! Version: Office 2003
Hallo schaus dir mal an:
  Thema: makro auf mehrere spalten erweitern 
Phelan XLPH

Antworten: 6
Aufrufe: 605

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2009, 11:25   Titel: AW: makro auf mehrere spalten erweitern Version: Office 2k (2000)
Hallo,

teste das hier mal:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1) <> "" Then
If Not Intersect(Target, Range("E:E,G:K")) Is Nothing Then

Dim rngCol As Range
Dim Col As Integer
Dim bolLeerZelle As Boolean
Dim strSP As String

strSP = "E,G,H,I,J,K,"
For Each rngCol In Range("E:E,G:K").Columns
If rngCol.Column >= Target.Column Then
Exit For
Else
If Cells(Target.Row, rngCol.Column) = "" Then
bolLeerZelle = True
Exit For
End If
End If
Next
If bolLeerZelle = True Then
strSP = Left(strSP, InStr(strSP, Chr(Target.Column + 64)) - 1)
strSP = Replace(strSP, ",", Target.Row ...
  Thema: Rückgängig funktioniert nicht nach Prüfung 
Phelan XLPH

Antworten: 20
Aufrufe: 1663

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2009, 09:48   Titel: AW: Rückgängig funktioniert nicht nach Prüfung Version: Office 2003
Hallo thomas wie meinst du das, kannst ein Bsp geben?


Wie verknüpfe ich das?
 
Seite 678 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 675, 676, 677, 678, 679, 680, 681 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver