Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 595 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 592, 593, 594, 595, 596, 597, 598 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Habe nochmal eine Frage 
Phelan XLPH

Antworten: 9
Aufrufe: 342

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2009, 15:32   Titel: AW: Habe nochmal eine Frage Version: Office 2007
so vielleicht:

Private Sub CommandButton1_Click()
Dim liZeile As Long
Dim lcTXTbox As Control, liSpalte As Integer

With Sheets("Adressen")
liZeile = .Range("A" & Rows.Count).End(xlUp).Row
If liZeile < 5 Then liZeile = 5

liSpalte = 65

For Each lcTXTbox In Controls
If TypeName(lcTXTbox) = "TextBox" Then
If IsNumeric(lcTXTbox) And Not IsDate(lcTXTbox) Then
.Cells(liZeile, liSpalte).Value = CDec(lcTXTbox.Text)
Else
If IsDate(lcTXTbox) Then
.Cells(liZeile, liSpalte).Value = CDate(lcTXTbox)
Else
.Cells(liZeile, liSpalte).Value = lcTXTbox
End If
End If
lcTXTbox = ""
liSpalte = liSpalte + 1
End If
Next
End With
E ...
  Thema: Zahlen auslesen 
Phelan XLPH

Antworten: 7
Aufrufe: 489

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2009, 14:31   Titel: AW: Zahlen auslesen Version: Office 2003
isch hald scho ebbes dolles, gell Very Happy
  Thema: Dropdown per Checkbox ausblenden 
Phelan XLPH

Antworten: 2
Aufrufe: 1443

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2009, 14:26   Titel: AW: Dropdown per Checkbox ausblenden Version: Office 2007
DropDown-Namen noch ändern:

ActiveSheet.Shapes("DropDown 1").OLEFormat.Object.Visible = False
  Thema: ScrollArea= "MeineTabelle, K14" <- Geht nicht! 
Phelan XLPH

Antworten: 6
Aufrufe: 456

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2009, 14:12   Titel: AW: ScrollArea= "MeineTabelle, K14" <- Geht nic Version: Office 2003
Dann musst du die Geschichte rumdrehen un E11 mit ins Boot nehmen.

Private Sub Worksheet_Calculate()
Dim i As Long
With ThisWorkbook.Worksheets("742380")
.Unprotect
.Cells.Locked = True
For i = .Range("rngTest").Columns.Count To (.Range("$E$14").Value + 1) Step -1
.Range("rngTest").Columns(i).Locked = False
Next i
.Range("E11").Locked = False
.Protect
.EnableSelection = xlUnlockedCells 'Auswahl nur entsperrter Zellen möglich
End With
End Sub
  Thema: Artikellisten plfegen mit Excel 
Phelan XLPH

Antworten: 8
Aufrufe: 644

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2009, 14:04   Titel: AW: Artikellisten plfegen mit Excel Version: Office 2k (2000)
bei mir schon, sehe auch keinen fehler.

Hast du die TabllenNamen auch umbenannt???

Aber das dürfte nicht der fehler sein, schau mal trotzdem.


Schreib mir ne PN mit deiner Email-adresse
  Thema: ScrollArea= "MeineTabelle, K14" <- Geht nicht! 
Phelan XLPH

Antworten: 6
Aufrufe: 456

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2009, 13:59   Titel: AW: ScrollArea= "MeineTabelle, K14" <- Geht nic Version: Office 2003
Das geht nicht!

Aber du verwendest doch eh .Protect.

Warum dann nicht so:
Private Sub Worksheet_Calculate()
Dim i As Long
With ThisWorkbook.Worksheets("742380")
.Unprotect
.Cells.Locked = False
For i = .Range("rngTest").Columns.Count To (.Range("$E$14").Value + 1) Step -1
.Range("rngTest").Columns(i).Locked = True
Next i
.Protect
.EnableSelection = xlUnlockedCells 'Auswahl nur entsperrter Zellen möglich
End With
End Sub
  Thema: Artikellisten plfegen mit Excel 
Phelan XLPH

Antworten: 8
Aufrufe: 644

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2009, 13:53   Titel: AW: Artikellisten plfegen mit Excel Version: Office 2k (2000)
Shock ...müsste so durchlaufen Question Question
  Thema: Zahlen auslesen 
Phelan XLPH

Antworten: 7
Aufrufe: 489

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2009, 13:40   Titel: AW: Zahlen auslesen Version: Office 2003
Hallo,

habs mal in eine Finktion umgewandelt und bei mir funzt das.

in ein StandardModul:
Public Function Ausschnitt(txt As String, AusgabePosition As Integer, Trennzeichen As String) As Variant
Ausschnitt = Split(txt, Trennzeichen)(AusgabePosition)
If IsNumeric(Ausschnitt) Then Ausschnitt = CDbl(Ausschnitt)
End Function


Auf dem Bild siehst du ein Beispiel des Funktionsaufrufs.
  Thema: Artikellisten plfegen mit Excel 
Phelan XLPH

Antworten: 8
Aufrufe: 644

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2009, 13:23   Titel: AW: Artikellisten plfegen mit Excel Version: Office 2k (2000)
so:

Sub Abgleich()
Dim arr1 As Variant
Dim arr2 As Variant
Dim arrOut() As Variant
Dim i As Long, k As Long
Dim m As Integer, n As Long

arr1 = Tabelle1.Range("A1").CurrentRegion 'Tabelle1 Anpassen
arr2 = Tabelle2.Range("A1").CurrentRegion 'Tabelle2 anpassen

ReDim arrOut(1 To UBound(arr2), 1 To UBound(arr2, 2))

For i = 1 To UBound(arr1)
For k = 1 To UBound(arr2)
If arr1(i, 1) = arr2(k, 1) Then
n = n + 1
For m = 1 To UBound(arr2, 2)
arrOut(n, m) = arr2(k, m)
Next
'Exit For
End If
Next
Next
If n <> 0 Then _
Tabelle3.Range("A1").Resize(UBound(arrOut), UBound(arrOut, 2)) = arrOut 'Tabelle3 Anpassen
End Sub
  Thema: Zahlen auslesen 
Phelan XLPH

Antworten: 7
Aufrufe: 489

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2009, 12:59   Titel: AW: Zahlen auslesen Version: Office 2003
Liste mal eineige deiner Zellinhalte auf, denn wenn sie nicht gleich
aufgebaut sind dann nützt das Makro nicht viel.

Mach mal noch einige beispiele wie die aussehen könnten.
  Thema: ScrollArea= "MeineTabelle, K14" <- Geht nicht! 
Phelan XLPH

Antworten: 6
Aufrufe: 456

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2009, 12:55   Titel: AW: ScrollArea= "MeineTabelle, K14" <- Geht nic Version: Office 2003
Tabelle1.ScrollArea = "A1:A10"
  Thema: dropdownliste die beschreibung anzeigt aber nummer einfügt 
Phelan XLPH

Antworten: 2
Aufrufe: 313

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2009, 12:44   Titel: AW: dropdownliste die beschreibung anzeigt aber nummer einfü Version: Office XP (2002)
Hi,

das geht schon Indirekt halt mir DropDown und einem Verweis
  Thema: Habe nochmal eine Frage 
Phelan XLPH

Antworten: 9
Aufrufe: 342

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jul 2009, 12:27   Titel: AW: Habe nochmal eine Frage Version: Office 2007
hi,

teste das mal:

Private Sub TextBox1_Change()
With TextBox1
If IsDate(.Text) Then
TextBox2.Text = Format(.Text, "mmmm")
Else
TextBox2.Text = ""
End If
End With
End Sub

EDIT:
@Gast

das war Absicht
  Thema: Formel in Wert umwandeln 
Phelan XLPH

Antworten: 10
Aufrufe: 2205

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Jul 2009, 18:29   Titel: AW: Formel in Wert umwandeln Version: Office 2003
Sub FormelInFestwert()
On Error Resume Next
With Range("A:A").SpecialCells(xlCellTypeFormulas)
.Value = .Value
End With
On Error GoTo 0
End Sub

Hier wird in Spalte A alle Zellen mit Formeln ermittelt und in Festwerte
umgewandelt
[/code]
  Thema: Druckersymbol unter Excel verbieten 
Phelan XLPH

Antworten: 6
Aufrufe: 2195

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Jul 2009, 18:24   Titel: AW: Druckersymbol unter Excel verbieten Version: Office 2003
ins Codefenster von "DieseArbeitsmappe":

Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "Drucken nicht erlaubt!", vbExclamation, "Hinweis"
Cancel = True
End Sub

Das Cancel = True bricht den Druckvorgang ab nach dem eine
Meldung erscheint.
 
Seite 595 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 592, 593, 594, 595, 596, 597, 598 ... 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