Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Formatierung beim Ex- und Import beibehalten ?
22.08.2006 11:36:00
a_ke
Hallo,
ich stehe vor folgendem Problem:
Die Eingaben der Userform “usrPerson“ werden in der Tabelle “Daten“ gespeichert,
um dies von hier aus zu exportieren und später wieder einzulesen.
Wie kann ich beim Ex- und Import die Formatierung für die Zellen mit den Ausgaben WAHR bzw. FALSCH der OptionsButtons beibehalten ?
Sobald ich nämlich momentan die Daten wieder einlese, werden diese in der Form
Wahr und Falsch linksbündig in die Zellen eingelesen. Beim Öffnen der Userform werden die Werte dann nicht erkannt und alle Optionsbuttons grau hinterlegt, bis wieder eine Neuauswahl getroffen wurde.
Eine nachträgliche Umwandlung in Grossbuchstaben brachte nicht das gewünschte Ergebnis.
Am besten dürfte sich dies anhand der hochgeladenen Datei “Pers_Daten“ (als Zip)nachvollziehen lassen.
https://www.herber.de/bbs/user/36014.zip
Viele Grüsse
Andre

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formatierung beim Ex- und Import beibehalten
22.08.2006 19:26:13
fcs
Hallo Andre,
die Werte WAHR und FALSCH werden beim Importieren von deinen Prozeduren als Text eingelesen/interpretiert.
Mit den nachfolgenden Anpassungen werden in den Zellen Boolsche Werte WAHR und FALSCH eingetragen. Falls in den anderen Textzellen auch der Text "wahr" oder "falsch" stehen kann, dann muss als weiteres Kriterium ggf. die auszufüllende Zelladresse geprüft werden.
gruss
Franz

Sub Importieren_Alles()
Dim objblatt As Object
Dim varPfad As Variant
Dim strText As String
Dim lngZ As Long
Dim strFormat As String
Dim strTabelle As String, strZelle As String, varInhalt As String, strAktBlatt As String
lngZ = 1
varPfad = lblDatei.Caption
strAktBlatt = ActiveSheet.Name
Application.ScreenUpdating = False
Open varPfad For Input As #1
Do While Not EOF(1)
Line Input #1, strText
If lngZ > 1 Then
strTabelle = STRINGG(strText, 1)
For Each objblatt In ActiveWorkbook.Sheets
If objblatt.Name = strTabelle Then GoTo GEFUNDEN
Next
MsgBox "Das Blatt " & strTabelle & " wurde nicht gefunden, der Vorgang wird abgebrochen.", vbOKOnly + vbExclamation, "Fehler"
Application.StatusBar = False
Application.ScreenUpdating = True
Exit Sub
GEFUNDEN:
Application.StatusBar = "Daten werden importiert, Blatt " & strTabelle & ", Zelle " & strZelle & ", Inhalt: " & varInhalt
strZelle = STRINGG(strText, 2)
varInhalt = STRINGG(strText, 3)
Sheets(strTabelle).Select
strFormat = Range(strZelle).NumberFormat
Range(strZelle).NumberFormat = "General"
If Left(varInhalt, 1) = "=" Then
Range(strZelle).Formula = varInhalt
Else
'Anpassung Anfang
Select Case varInhalt
Case "Wahr", "WAHR", "wahr"
Range(strZelle) = True
Case "Falsch", "FALSCH", "falsch"
Range(strZelle) = False
Case Else
Range(strZelle) = varInhalt
End Select
'Anpassung Ende
End If
Range(strZelle).NumberFormat = strFormat
End If
lngZ = lngZ + 1
Loop
Close
Sheets(strAktBlatt).Select
End Sub
Sub Importieren_Spalte_F()
Dim objblatt As Object
Dim varPfad As Variant
Dim strText As String
Dim lngZ As Long
Dim strFormat As String
Dim strTabelle As String, strZelle As String, varInhalt As String, strAktBlatt As String
lngZ = 9
varPfad = lblDatei.Caption
strAktBlatt = ActiveSheet.Name
Application.ScreenUpdating = False
Open varPfad For Input As #1
Do While Not EOF(1)
Line Input #1, strText
If lngZ > 9 Then
Application.StatusBar = "Daten werden importiert, Zeile " & lngZ
strFormat = Sheets("Daten").Cells(lngZ, 6).NumberFormat
Sheets("Daten").Cells(lngZ, 6).NumberFormat = "General"
If Left(strText, 1) = "=" Then
Sheets("Daten").Cells(lngZ, 6).FormulaLocal = strText
Else
'Anpassung Anfang
Select Case strText
Case "Wahr", "WAHR", "wahr"
Sheets("Daten").Cells(lngZ, 6) = True
Case "Falsch", "FALSCH", "falsch"
Sheets("Daten").Cells(lngZ, 6) = False
Case Else
Sheets("Daten").Cells(lngZ, 6) = strText
End Select
'Anpassung Ende
End If
Sheets("Daten").Cells(lngZ, 6).NumberFormat = strFormat
End If
lngZ = lngZ + 1
Loop
Close
Sheets(strAktBlatt).Select
End Sub

Anzeige
AW: Formatierung beim Ex- und Import beibehalten
22.08.2006 19:59:54
a_ke
Hallo Franz,
ich habe Deine Lösung soeben in die Arbeitsmappe kopiert und den Export und anschließenden
Import ausprobiert.
ES KLAPPT ALLES WUNDERBAR !!!
Vielen Dank.
Dadurch kann ich jetzt wie geplant an der Datei weiterarbeiten.
Ein weiteres Kriterium für die Zelladresse ist meiner Meinung nach nicht notwendig,
da die Anpassung ja nur auf die exakte Übereinstimmung mit Wahr WAHR wahr usw.
angewandt wird. Andere Wörter, die dies enthalten, werden ja ignoriert wie z.B.
wahrscheinlich .
Viele Grüsse
Andre

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige